diff options
Diffstat (limited to 'tekuti/page.scm')
| -rw-r--r-- | tekuti/page.scm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/tekuti/page.scm b/tekuti/page.scm index 58ad45e..1794645 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -283,13 +283,10 @@ (post-from-key index key)) (hash-ref tags tag '())))) (if (pair? posts) - (respond `((h2 "posts tagged \"" ,tag "\" (" - ,(rellink '("feed" "atom") "feed" - #:query `(("with" . ,tag))) - ")") - ,@(map (lambda (post) `(p ,(post-link post))) - posts) - ,(related-tag-cloud tag index)) + (respond `(,(tag-sidebar tag index) + (h2 "posts tagged \"" ,tag "\"") + ,@(map (lambda (post) (show-post post #f)) + (take-max posts 10))) #:etag (assq-ref index 'master) #:title (string-append "posts tagged \"" tag "\"")) (respond `((h2 "Unknown tag " ,tag) |