aliens/tekuti
1
0
Fork 0
Code Activity

per-tag feed links

Browse source 
* tekuti/page.scm (page-show-tag): Add a feed link here.
This commit is contained in:
Andy Wingo 2011-04-26 15:39:06 +02:00
parent 62a351d8d5
commit 7a1944b240
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tekuti/page.scm
View file

@ -286,7 +286,10 @@
(post-from-key (assq-ref index 'master) key)) (post-from-key (assq-ref index 'master) key))
(hash-ref tags tag '())))) (hash-ref tags tag '()))))
(if (pair? posts) (if (pair? posts)
(respond `((h2 "posts tagged \"" ,tag "\"") (respond `((h2 "posts tagged \"" ,tag "\" ("
,(rellink '("feed" "atom") "feed"
#:query `(("with" . ,tag)))
")")
,@(map (lambda (post) `(p ,(post-link post))) ,@(map (lambda (post) `(p ,(post-link post)))
posts) posts)
,(related-tag-cloud tag index)) ,(related-tag-cloud tag index))