(in-package :alimenta.feed-archive.encoders)

(defmethod yason:encode-slots progn ((feed alimenta:feed))
  (prog1 feed
    (patmatch:let-pat* (((alimenta:feed :title title
                                        :feed-link feed-link
                                        :link link
                                        :description description)
                         feed))
      (yason:encode-object-element "title" title)
      (yason:encode-object-element "fetch-url" (puri:render-uri feed-link nil))
      (yason:encode-object-element "link" link)
      ;;(yason:encode-object-element "source-type" source-type)
      (yason:encode-object-element "description" description))))


(defmethod yason:encode-slots progn ((item alimenta:item))
  (patmatch:let-pat* (((alimenta:item :author author
                                      :content content
                                      :date date
                                      :id id
                                      :link link
                                      :title title)
                       item))
    (let* ((date (local-time:format-timestring nil date)))
      (yason:encode-object-element "title" title)
      (yason:encode-object-element "date" date)
      (yason:encode-object-element "author" author)
      (yason:encode-object-element "id" (princ-to-string id))
      (yason:encode-object-element "link" link)
      (yason:encode-object-element "content" content))))

(defmethod yason:encode ((object pathname) &optional stream)
  (prog1 object
    (yason:encode (princ-to-string (uiop:native-namestring object))
                  stream)))

(defmethod yason:encode ((object puri:uri) &optional stream)
  (prog1 object
    (yason:encode (puri:render-uri object nil)
                  stream)))

(defmethod yason:encode ((feed-entity alimenta:feed-entity) &optional stream)
  (prog1 feed-entity
    (yason:with-output (stream :indent t)
      (yason:encode-object feed-entity))))

(defun encode-collection-object (other-pairs collection-key collection-value element-encoder)
  (yason:with-object ()
    (loop for (key value) on other-pairs by #'cddr
       do
         (yason:encode-object-element key value))
    (yason:with-object-element (collection-key)
      (yason:with-array ()
        (dolist (item collection-value)
          (funcall element-encoder item))))))

(defmacro with-collection ((item-sym key collection &rest other-pairs) &body encoder)
  (once-only (key collection)
    `(encode-collection-object (list ,@other-pairs)
                               ,key ,collection
                               (lambda (,item-sym)
                                 ,@encoder))))