diff options
| -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")))))) |