diff options
| author |  Andy Wingo | 2011-04-26 15:39:06 +0200 |
|---|---|---|
| committer | Andy Wingo | 2011-04-26 15:39:06 +0200 |
| commit | 7a1944b2400e418daebc3c8d16349e934c4f171d (patch) | |
| tree | 6f79aee7031d44a8cfbed0f8ed8bb61008a74b90 | |
| parent | 62a351d8d5c9bd28e2cb50e8ce1c34b67daa4981 (diff) | |
| download | tekuti-7a1944b2400e418daebc3c8d16349e934c4f171d.tar.gz tekuti-7a1944b2400e418daebc3c8d16349e934c4f171d.zip | |
per-tag feed links
* tekuti/page.scm (page-show-tag): Add a feed link here.
| -rw-r--r-- | tekuti/page.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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)) |