From b6faf6fded2ef5eeca6ca4d3f3097e857a013ac8 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sun, 9 Sep 2012 01:27:24 +0200
Subject: Turn footer into small

* tekuti/template.scm (templatize): Replace `div.footer' with
  `p small', looks more like fine-print.
---
 tekuti/template.scm | 15 ++++++++-------
 1 file 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"))))))
-- 
cgit v1.2.3-54-g00ecf