|
@@ -30,7 +30,7 @@
|
30
|
30
|
"Return an index of all CONTENT matching the given TAG."
|
31
|
31
|
(make-instance 'tag-index :slug (tag-slug tag)
|
32
|
32
|
:content (remove-if-not (lambda (x) (tag-p tag x)) content)
|
33
|
|
- :title (format nil "Posts tagged ~a" (tag-name tag))))
|
|
33
|
+ :title (format nil "Content tagged ~a" (tag-name tag))))
|
34
|
34
|
|
35
|
35
|
(defmethod publish ((doc-type (eql (find-class 'tag-index))))
|
36
|
36
|
(dolist (index (find-all 'tag-index))
|
|
@@ -53,7 +53,7 @@
|
53
|
53
|
"Return an index of all CONTENT matching the given MONTH."
|
54
|
54
|
(make-instance 'month-index :slug month
|
55
|
55
|
:content (remove-if-not (lambda (x) (month-p month x)) content)
|
56
|
|
- :title (format nil "Posts from ~a" month)))
|
|
56
|
+ :title (format nil "Content from ~a" month)))
|
57
|
57
|
|
58
|
58
|
(defmethod publish ((doc-type (eql (find-class 'month-index))))
|
59
|
59
|
(dolist (index (find-all 'month-index))
|
|
@@ -77,7 +77,7 @@
|
77
|
77
|
(let ((content (subseq content (* 10 i))))
|
78
|
78
|
(make-instance 'numeric-index :slug (1+ i)
|
79
|
79
|
:content (take-up-to 10 content)
|
80
|
|
- :title "Recent Posts")))
|
|
80
|
+ :title "Recent Content")))
|
81
|
81
|
|
82
|
82
|
(defmethod publish ((doc-type (eql (find-class 'numeric-index))))
|
83
|
83
|
(let ((indexes (sort (find-all 'numeric-index) #'< :key #'index-slug)))
|
|
@@ -113,9 +113,9 @@
|
113
|
113
|
(defmethod discover ((doc-type (eql (find-class 'tag-feed))))
|
114
|
114
|
(let ((content (by-date (find-all 'post))))
|
115
|
115
|
(dolist (tag (feeds *config*))
|
116
|
|
- (let ((posts (remove-if-not (lambda (x) (tag-p tag x)) content)))
|
|
116
|
+ (let ((tagged (remove-if-not (lambda (x) (tag-p tag x)) content)))
|
117
|
117
|
(dolist (format '(rss atom))
|
118
|
|
- (let ((feed (make-instance 'tag-feed :content (take-up-to 10 posts)
|
|
118
|
+ (let ((feed (make-instance 'tag-feed :content (take-up-to 10 tagged)
|
119
|
119
|
:format format
|
120
|
120
|
:slug tag)))
|
121
|
121
|
(add-document feed)))))))
|