Add a footer.

haunt.scm

@@ -114,6 +114,21 @@ place them in the directory DEST."
 
 
 
+(define footer
+  `(footer
+    "Made with " (span (@ (class "highlight")) "♥")
+    " by "
+    (a (@ (href "/who.html"))
+       "humans")
+    " and powered by "
+    (a (@ (href "https://gnu.org/software/guile"))
+       "GNU Guile") ".  "
+    (a (@ (href "http://git.savannah.gnu.org/cgit/guix/bootstrappable.git/"))
+       "Source code")
+    " under the "
+    (a (@ (href "https://gnu.org/licenses/agpl-3.0.html"))
+       "GNU AGPL") "."))
+
 (define (make-layout big-banner?)
   (lambda (site title body)
     `((doctype "html")
@@ -145,7 +160,8 @@ place them in the directory DEST."
                                     (src "/images/banner-slim.svg")))))
                     (h1 ,title)))
             (div (@ (id "page"))
-                 ,body)))))
+                 ,body)
+            ,footer))))
 
 (define default-layout (make-layout #f))
 (define index-layout (make-layout #t))

static/css/screen.css

@@ -50,6 +50,16 @@ body {
 #banner-slim {
     padding-bottom: 1em; }
 
+footer {
+  background-color: #fff;
+  box-shadow: 0px -3px 8px #ccc;
+  color: #000;
+  font-size: 12px;
+  margin-top: 3rem;
+  padding: 1em;
+  text-align: center; }
+  footer .highlight {
+    color: #ff00ff; }
 
 @media screen and (max-width: 600px) {
   #index {