(defpackage :fwoar.rss-render (:use :cl ) (:export #:summary)) (in-package :fwoar.rss-render) (defmethod alimenta.render:render-feed (feed (renderer (eql 'summary))) (plump:parse (spinneret:with-html-string (:div.feed (:section (:h2.title (plump:decode-entities (alimenta:title feed))) (:p.description (plump:decode-entities (alimenta:description feed)))) (:ul.items))))) (defmethod alimenta.render:render-item (item feed (renderer (eql 'summary))) (plump:first-element (plump:parse (spinneret:with-html-string (:li (:a :href (alimenta:link item) (plump:decode-entities (alimenta:title item))) (:p.description (plump:decode-entities (alimenta:description item)))))))) (defmethod alimenta.render:add-rendered-item (feed-r item-r (renderer (eql 'summary))) (lquery:$ (inline feed-r) ".items" (append item-r)) feed-r)