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

31
tekuti/page-helpers.scm
View file

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