From 5819fa0e1c06b6da1e0b75a47dfa7cae600409ab Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Mon, 19 Dec 2016 11:31:03 +0100
Subject: [PATCH] Add a footer.

---
 haunt.scm             | 18 +++++++++++++++++-
 static/css/screen.css | 10 ++++++++++
 2 files changed, 27 insertions(+), 1 deletion(-)

diff --git a/haunt.scm b/haunt.scm
index c5744c4..d1a8a83 100644
--- a/haunt.scm
+++ b/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))
diff --git a/static/css/screen.css b/static/css/screen.css
index d7c2f26..0072868 100644
--- a/static/css/screen.css
+++ b/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 {