From ea8c3a56421f734d12d5574a581dbbc451569706 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 3 Apr 2013 03:16:02 +0200
Subject: Make tag page look more like index

Blurr the distinction between the index page and a tag page so that
tag pages may be used as stand-alone pages.
---
 tekuti/page-helpers.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'tekuti/page-helpers.scm')

diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm
index ab0a5e7..27f989a 100644
--- a/tekuti/page-helpers.scm
+++ b/tekuti/page-helpers.scm
@@ -43,7 +43,7 @@
             post-url
             post-editing-form
             sidebar-ul top-tags tag-cloud
-            main-sidebar post-sidebar related-tag-cloud
+            main-sidebar post-sidebar tag-sidebar related-tag-cloud
             post-link admin-post-url admin-post-link
             show-post with-authentication
             find-posts-matching
@@ -348,6 +348,17 @@
                            ,(post-link (car post-and-tags))))
                     (take-max (compute-related-posts post index) 10)))))))
 
+(define (tag-sidebar tag index)
+  (sidebar-ul
+   `((li (h2 (a (@ (href ,(relurl '("feed" "atom")
+                                  #:query `(("with" . ,tag)))))
+                "subscribe "
+                (img (@ (src ,(relurl '("wp-content" "feed-icon-14x14.png")))
+                        (alt "[feed]"))))))
+     (li (h2 "related tags " ,(rellink '("tags") ">>"))
+         (ul (li (@ (style "line-height: 150%"))
+                 ,@(tag-cloud (compute-related-tags tag index))))))))
+
 (define (related-tag-cloud tag index)
   `(div (@ (id "tag-cloud"))
         (h2 "related tags")
-- 
cgit v1.2.3-54-g00ecf