(ql:quickload :clack)
(ql:quickload :ningle )
(ql:quickload :araneus)
(ql:quickload :spinneret)
(ql:quickload :lass)

(defun get-css ()
  (lass:compile-and-write
    `(*
       :padding "0px"
       :margin "0px")
    `(body
       :box-sizing "border-box"
       :font-family sans-serif
       )

    `(header
       :border-bottom "thin solid black"
       :width "100%"
       :text-align center
       :margin-bottom "2em"
       :padding "1em")

    `(article
       :padding "1em"
       :border "4px double #888"
       :display "inline-block"
       :width "30%"
       :overflow "hidden"
       :min-height "4em"
       )
    ))

 (defmethod araneus:view ((name (eql 'root)) (item alimenta:item))
  (with-slots ((title alimenta:title) (link alimenta:link)) item
    (spinneret:with-html 
      (:article
        (:div.title title)
        (:a.link :href link link)))))

(defmethod araneus:view ((name (eql 'root)) (feed alimenta:feed))
  (with-slots ((title alimenta:title) (link alimenta:link)) feed
    (spinneret:with-html
      (:header
        (:h1.feed-title title)
        (:a.feed-link link)))))

(defmethod araneus:view :around ((name (eql 'root)) (feed alimenta:feed))
  (with-slots ((title alimenta:title) (items alimenta::items)) feed
    (spinneret:with-html-string
      (:html
        (:head (:title title))
        (:style
          :type "text/css"
          (get-css))
        (:body
          (:main
            (call-next-method)
            (loop for item in items
                  do (araneus:view 'root item))))))))

(araneus:define-controller root (params)
  (let* ((url "https://reddit.com/r/programming.rss")
         (feed (alimenta.pull-feed::fetch-doc-from-url url)))
    (alimenta:to-feed feed :type :atom :feed-link url)))

(defvar *app* (make-instance 'ningle:<app>))

(araneus:defroutes *app*
  (("/") (araneus:as-route 'root)))

(defvar *handler* (clack:clackup *app* :port 4939))