From 7a1944b2400e418daebc3c8d16349e934c4f171d Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Tue, 26 Apr 2011 15:39:06 +0200
Subject: per-tag feed links

* tekuti/page.scm (page-show-tag): Add a feed link here.
---
 tekuti/page.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tekuti/page.scm b/tekuti/page.scm
index 17cafa8..32d81bd 100644
--- a/tekuti/page.scm
+++ b/tekuti/page.scm
@@ -286,7 +286,10 @@
                        (post-from-key (assq-ref index 'master) key))
                      (hash-ref tags tag '()))))
     (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)))
                           posts)
                    ,(related-tag-cloud tag index)) 
-- 
cgit v1.3-2-g0d8e