aliens/tekuti
1
0
Fork 0
Code Activity

Turn footer into small

Browse source 
* tekuti/template.scm (templatize): Replace `div.footer' with
  `p small', looks more like fine-print.
This commit is contained in:
Tom Willemsen 2012-09-09 01:27:24 +02:00
parent c32c4f6240
commit b6faf6fded
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
tekuti/template.scm
View file

@ -42,6 +42,7 @@
(let lp ((in (cdr l)) (out (list (car l)))) (let lp ((in (cdr l)) (out (list (car l))))
(cond ((null? in) (reverse out)) (cond ((null? in) (reverse out))
(else (lp (cdr in) (cons* (car in) infix out))))))) (else (lp (cdr in) (cons* (car in) infix out)))))))
(define (make-navbar) (define (make-navbar)
`((div (@ (class "navbar navbar-inverse navbar-fixed-top")) `((div (@ (class "navbar navbar-inverse navbar-fixed-top"))
(div (@ (class "navbar-inner")) (div (@ (class "navbar-inner"))
@ -82,11 +83,11 @@
,@(make-navbar) ,@(make-navbar)
(div (@ (class "container")) (div (@ (class "container"))
(div (@ (id "content")) ,@body) (div (@ (id "content")) ,@body)
(div (@ (id "footer")) (p (small
"powered by " "powered by "
(a (@ (href "http://wingolog.org/software/tekuti/")) (a (@ (href "http://wingolog.org/software/tekuti/"))
"tekuti") "tekuti")
", " ", "
(a (@ (href "http://twitter.github.com/bootstrap/")) (a (@ (href "http://twitter.github.com/bootstrap/"))
"bootstrap"))) "bootstrap"))))
(script (@ (src ,*bootstrap-base* "/js/bootstrap.min.js")))))) (script (@ (src ,*bootstrap-base* "/js/bootstrap.min.js"))))))