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