aliens/tekuti
1
0
Fork 0
Code Activity

Return sidebar-ul, still needed. Oops

Browse source
This commit is contained in:
Tom Willemsen 2012-08-25 21:39:42 +02:00
parent 6030bc2cdc
commit 99d03989b5
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tekuti/page-helpers.scm
View file

@ -192,6 +192,10 @@
,(show-post post #f)) ,(show-post post #f))
'()))) '())))
(define (sidebar-ul body)
`(div (@ (id "menu"))
(ul ,@body)))
(define (admin-post-url post) (define (admin-post-url post)
(relurl `("admin" "posts" ,(post-key post)))) (relurl `("admin" "posts" ,(post-key post))))