aliens/tekuti
1
0
Fork 0
Code Activity

Remove sidebar-ul

Browse source
This commit is contained in:
Tom Willemsen 2012-09-10 11:03:49 +02:00
parent 4258614af9
commit 5366157a75
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tekuti/page-helpers.scm
View file

@ -42,7 +42,7 @@
relurl rellink relurl rellink
post-url post-url
post-editing-form post-editing-form
sidebar-ul top-tags tag-cloud top-tags tag-cloud
main-sidebar post-sidebar related-tag-cloud main-sidebar post-sidebar related-tag-cloud
post-link admin-post-url admin-post-link post-link admin-post-url admin-post-link
show-post with-authentication show-post with-authentication
@ -219,10 +219,6 @@
(value "delete") (class "btn btn-primary"))))) (value "delete") (class "btn btn-primary")))))
'()))) '())))
(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))))