|
@@ -9,9 +9,9 @@
|
9
|
9
|
(tag-posts (list) (remove-if-not (lambda (x) (tag-p tag x)) list)))
|
10
|
10
|
(let ((template (theme-fn template "feeds"))
|
11
|
11
|
(index (if tag
|
12
|
|
- (make-instance 'tag-index :id path
|
|
12
|
+ (make-instance 'tag-index :slug path
|
13
|
13
|
:posts (first-10 (tag-posts posts)))
|
14
|
|
- (make-instance 'index :id path
|
|
14
|
+ (make-instance 'index :slug path
|
15
|
15
|
:posts (first-10 posts)))))
|
16
|
16
|
(write-page (page-path index) (render-page index template)))))
|
17
|
17
|
|