diff options
| author |  Tom Willemsen | 2012-09-09 01:27:24 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-09-09 01:27:53 +0200 |
| commit | e9087b948ce1cdb43851a2c18837d83ba17619ac (patch) | |
| tree | f8da9a2e7a6c63357b00d61aeb204a3a9e26e23f | |
| parent | d66887ef56109fb9ae719cf68613ed6274a27deb (diff) | |
| download | tekuti-e9087b948ce1cdb43851a2c18837d83ba17619ac.tar.gz tekuti-e9087b948ce1cdb43851a2c18837d83ba17619ac.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")))))) |