aliens/tekuti
1
0
Fork 0
Code Activity

Fix tag pages by reverting to the original layout

Browse source
This commit is contained in:
Tom Willemse 2021-05-31 20:44:34 -07:00
parent d34a14b3d6
commit 32b9adf4bf
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tekuti/page.scm
View file

@ -301,10 +301,13 @@
(post-from-key index key)) (post-from-key index key))
(hash-ref tags tag '())))) (hash-ref tags tag '()))))
(if (pair? posts) (if (pair? posts)
(respond `(,(tag-sidebar tag index) (respond `((h2 "posts tagged \"" ,tag "\" ("
(h2 "posts tagged \"" ,tag "\"") ,(rellink '("feed" "atom") "feed"
,@(map (lambda (post) (show-post post #f)) #:query `(("with" . ,tag)))
(take-max (reverse posts) 10))) ")")
,@(map (lambda (post) `(p ,(post-link post)))
(take-max (reverse posts) 10))
,(related-tag-cloud tag index))
#:etag (assq-ref index 'master) #:etag (assq-ref index 'master)
#:title (string-append "posts tagged \"" tag "\"")) #:title (string-append "posts tagged \"" tag "\""))
(respond `((h2 "Unknown tag " ,tag) (respond `((h2 "Unknown tag " ,tag)