;; tinmop: an humble gemini and pleroma client
;; Copyright © cage

;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.
;; If not, see [[http://www.gnu.org/licenses/][http://www.gnu.org/licenses/]].

(in-package :json-rpc-communication)

(defclass iri-complete-response (box) ())

(defun gemini-gemlog-subscribe (iri)
  (gemini-subscription::subscribe iri))

(defclass gemini-gemlog-subscriptions (box) ())

(defmethod yason:encode ((object gemini-gemlog-subscriptions) &optional (stream *standard-output*))
  (encode-flat-array-of-plists (unbox object) stream))

(defun gemini-gemlog-all-subscription ()
  (let ((table (db:gemini-all-subscriptions)))
    (make-instance 'gemini-gemlog-subscriptions
                   :contents table)))

(defun gemini-gemlog-unsubscribe (iri)
  (db:gemini-cancel-subscription iri))

(defun gemini-gemlog-entries (iri title subtitle)
  (let* ((table (db:gemlog-entries iri))
         (page  (program-events::build-gemlog-page title
                                                   subtitle
                                                   table)))
    (gemini-parse-string page)))