marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix feed handling bug backwards compatibly. No name changes.

Browse source
This commit is contained in:
Brit Butler 2014-09-23 17:38:59 -04:00
parent 1289706b46
commit 1b3acd107e
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
examples/example.coleslawrc
View file

@ -14,7 +14,7 @@
(:tag-index "tag/~a")
(:month-index "date/~a")
(:numeric-index "~d")
(:standard-feed "~a.xml")
(:feed "~a.xml")
(:tag-feed "tag/~a.xml"))
:sitenav ((:url "http://redlinernotes.com/" :name "Home")
(:url "http://twitter.com/redline6561" :name "Twitter")

14
src/feeds.lisp
View file

@ -2,25 +2,25 @@
;;; Atom and RSS Feeds
(defclass feed () ((format :initarg :format :reader feed-format)))
(defclass base-feed () ((format :initarg :format :reader feed-format)))
(defclass standard-feed (index feed) ())
(defclass feed (index base-feed) ())
(defmethod discover ((doc-type (eql (find-class 'standard-feed))))
(defmethod discover ((doc-type (eql (find-class 'feed))))
(let ((content (by-date (find-all 'post))))
(dolist (format '(rss atom))
(let ((feed (make-instance 'standard-feed :format format
(let ((feed (make-instance 'feed :format format
:content (take-up-to 10 content)
:slug (format nil "~(~a~)" format))))
(add-document feed)))))
(defmethod publish ((doc-type (eql (find-class 'standard-feed))))
(dolist (feed (find-all 'standard-feed))
(defmethod publish ((doc-type (eql (find-class 'feed))))
(dolist (feed (find-all 'feed))
(write-document feed (theme-fn (feed-format feed) "feeds"))))
;;; Tag Feeds
(defclass tag-feed (index feed) ())
(defclass tag-feed (index base-feed) ())
(defmethod discover ((doc-type (eql (find-class 'tag-feed))))
(let ((content (by-date (find-all 'post))))