From 32b9adf4bf93a2ff2987f8940cf12679d26e9fc5 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 31 May 2021 20:44:34 -0700 Subject: [PATCH] Fix tag pages by reverting to the original layout --- tekuti/page.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/tekuti/page.scm b/tekuti/page.scm index 3fcd26b..917f316 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -301,10 +301,13 @@ (post-from-key index key)) (hash-ref tags tag '())))) (if (pair? posts) - (respond `(,(tag-sidebar tag index) - (h2 "posts tagged \"" ,tag "\"") - ,@(map (lambda (post) (show-post post #f)) - (take-max (reverse posts) 10))) + (respond `((h2 "posts tagged \"" ,tag "\" (" + ,(rellink '("feed" "atom") "feed" + #:query `(("with" . ,tag))) + ")") + ,@(map (lambda (post) `(p ,(post-link post))) + (take-max (reverse posts) 10)) + ,(related-tag-cloud tag index)) #:etag (assq-ref index 'master) #:title (string-append "posts tagged \"" tag "\"")) (respond `((h2 "Unknown tag " ,tag)