diff options
| author |  Tom Willemsen | 2012-09-09 01:27:24 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-09-09 01:30:21 +0200 |
| commit | b6faf6fded2ef5eeca6ca4d3f3097e857a013ac8 (patch) | |
| tree | be361163ac510e0ce40090f6cb9c9b2aa6bce887 | |
| parent | c32c4f62403985c83ed4efa6aca71d0db264fc06 (diff) | |
| download | tekuti-b6faf6fded2ef5eeca6ca4d3f3097e857a013ac8.tar.gz tekuti-b6faf6fded2ef5eeca6ca4d3f3097e857a013ac8.zip | |
Turn footer into small
* tekuti/template.scm (templatize): Replace `div.footer' with
`p small', looks more like fine-print.
| -rw-r--r-- | tekuti/template.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/tekuti/template.scm b/tekuti/template.scm index c472b12..874dc22 100644 --- a/tekuti/template.scm +++ b/tekuti/template.scm @@ -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")))))) |