diff options
| author |  Andy Wingo | 2008-04-11 13:15:19 +0200 |
|---|---|---|
| committer | Andy Wingo | 2008-04-11 13:15:19 +0200 |
| commit | e1e44eb8f007244dd408fa57c0e696360b5334b1 (patch) | |
| tree | 86d5861ace3d34cefbe00df5af36b6f5b81e055b | |
| parent | df96b1f07ea1d71f07061dafac79c0b6da955ca2 (diff) | |
| download | tekuti-e1e44eb8f007244dd408fa57c0e696360b5334b1.tar.gz tekuti-e1e44eb8f007244dd408fa57c0e696360b5334b1.zip | |
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!
| -rw-r--r-- | tekuti/page-helpers.scm | 2 | ||||
| -rw-r--r-- | 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)) |