aliens/tekuti
1
0
Fork 0
Code Activity

add main tag cloud page

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

* tekuti/page.scm (page-show-tags): Implement the main tag cloud page.
  Yay!
This commit is contained in:
Andy Wingo 2008-04-11 13:15:19 +02:00
parent df96b1f07e
commit e1e44eb8f0
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tekuti/page-helpers.scm
View file

@ -38,7 +38,7 @@
#:export (relurl rellink redirect post-url #:export (relurl rellink redirect post-url
published-posts published-posts
post-editing-form 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 post-link admin-post-link admin-post-redirect
show-post with-authentication show-post with-authentication
atom-header atom-entry)) atom-header atom-entry))

6
tekuti/page.scm
View file

@ -251,7 +251,11 @@
(else (lp (cdr posts)))))))) (else (lp (cdr posts))))))))
(define (page-show-tags request index) (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) (define (page-show-tag request index tag)
(let* ((tags (assq-ref index 'tags)) (let* ((tags (assq-ref index 'tags))