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 d66887ef56
commit e9087b948c
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"))))))