diff options
| -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)) |