(in-package :fwoar.rss-reader) (defgeneric feed-key (object)) (defgeneric feed-url (object)) (fw.lu:defclass+ feed-reference () ((%key :initarg :key :reader feed-key) (%url :initarg :url :reader feed-url))) (fw.lu:defclass+ plump-cleaner ((feed-reference (key url))) ()) (defgeneric resolve-feed-reference (reference) (:method ((r feed-reference)) (alimenta.pull-feed:pull-feed (feed-url r)))) (defgeneric prepare-feed-item-description (reference item) (:method ((r feed-reference) (item alimenta:item)) (alimenta:description item)) (:method ((r plump-cleaner) (item alimenta:item)) (let ((description (alimenta:description item))) (when description (format t "~&aaaaa~%") (plump:text (plump:parse description))))))