From e1e44eb8f007244dd408fa57c0e696360b5334b1 Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Fri, 11 Apr 2008 13:15:19 +0200
Subject: add main tag cloud page

* tekuti/page-helpers.scm: Export top-tags.

* tekuti/page.scm (page-show-tags): Implement the main tag cloud page.
  Yay!
---
 tekuti/page-helpers.scm | 2 +-
 tekuti/page.scm         | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm
index 6937bdd..be89ea1 100644
--- a/tekuti/page-helpers.scm
+++ b/tekuti/page-helpers.scm
@@ -38,7 +38,7 @@
   #:export (relurl rellink redirect post-url
             published-posts
             post-editing-form
-            sidebar-ul main-sidebar tag-cloud post-sidebar
+            sidebar-ul main-sidebar top-tags tag-cloud post-sidebar
             post-link admin-post-link admin-post-redirect
             show-post with-authentication
             atom-header atom-entry))
diff --git a/tekuti/page.scm b/tekuti/page.scm
index aec265e..372af01 100644
--- a/tekuti/page.scm
+++ b/tekuti/page.scm
@@ -251,7 +251,11 @@
               (else (lp (cdr posts))))))))
 
 (define (page-show-tags request index)
-  (not-implemented request index))
+  (rcons* request
+          'title (string-append "all tags -- " *title*)
+          'body `((div (@ (id "tag-cloud"))
+                       (h2 "all tags")
+                       ,@(tag-cloud (top-tags index 200))))))
 
 (define (page-show-tag request index tag)
   (let* ((tags (assq-ref index 'tags))
-- 
cgit v1.2.3-54-g00ecf