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