aliens/tekuti
1
0
Fork 0
Code Activity

Improve bootstrappiness of sidebar

Browse source 
* tekuti/page-helpers.scm: Don't put the sidebar in a `ul'.
  (main-sidebar): Remove the image after "subscribe".  Add a search
  icon next to the search bar.  Don't put the tags cloud in a `ul'.
This commit is contained in:
Tom Willemsen 2012-08-25 21:31:04 +02:00
parent 138c65c01b
commit 428ea7c3b0
1 changed files with 14 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
tekuti/page-helpers.scm
View file

@ -192,10 +192,6 @@
,(show-post post #f))
'())))
(define (sidebar-ul body)
`(div (@ (id "menu"))
(ul ,@body)))
(define (admin-post-url post)
(relurl `("admin" "posts" ,(post-key post))))
@ -320,20 +316,21 @@
" "))
(define (main-sidebar request index)
(sidebar-ul
`((li (h2 (a (@ (href ,(relurl '("feed" "atom"))))
"subscribe "
(img (@ (src ,(relurl '("wp-content" "feed-icon-14x14.png")))
(alt "[feed]")))
)))
(li (h2 "search")
`((h2 (a (@ (href ,(relurl '("feed" "atom"))))
"subscribe"))
(h2 "search")
(form (@ (method "POST")
(action ,(relurl '("search"))))
(action ,(relurl '("search")))
(class "form-search"))
(div (@ (class "input-append"))
(input (@ (name "string") (type "text") (size "15")
(value "")))))
(li (h2 "tags " ,(rellink '("tags") ">>"))
(ul (li (@ (style "line-height: 150%"))
,@(tag-cloud (top-tags index 30))))))))
(value "")
(class "input-small search-query")))
(button (@ (type "submit")
(class "btn"))
(i (@ (class "icon-search")) ""))))
(h2 "tags " ,(rellink '("tags") ">>"))
,@(tag-cloud (top-tags index 30))))
(define (post-sidebar post index)
(sidebar-ul