Reformulating bottom matter.

- Shifted footer around.
- Now shows the git version of the compiled system
- Moved credits to who page.

Author: pnathan

begin-footer.html

@@ -0,0 +1,2 @@
+<hr/>
+<footer>

content-footer.html

@@ -1,13 +1,8 @@
-<hr/>
-<footer>
-        <p>&copy; Paul Nathan 2013</p>
-        <p><a href="https://github.com/pnathan/articulate-common-lisp"> Github source</a> - contributions welcome!</p>
-        <p>Analytics by <a href="https://www.quantcast.com/">Quantcast</a>
-        <p>Theme by <a href="http://twitter.github.com/bootstrap/">Twitter Bootstrap</a>
-</footer>
 
-<center>
+<center style="font-size: x-small">
+
+  <p>&copy; Paul Nathan 2013</p>
+  <p><a href="https://github.com/pnathan/articulate-common-lisp"> Github source</a> - contributions welcome!</p>
+
   &lambda;
 </center>
-</div>
-</div>

end-footer.html

@@ -0,0 +1,3 @@
+</footer>
+</div>
+</div>

make.lisp

@@ -10,7 +10,10 @@
 (defun generate-command (fn)
   (list "-B" "banner.html"
     "-B" "content-begin.html"
+    "-A" "begin-footer.html"
     "-A" "content-footer.html"
+    "-A" "version.html"
+    "-A" "end-footer.html"
     "-A" "quantcast.html"
     "-T" "Articulate Common Lisp"
     "--template=pandoc-data/templates/default.html5"
@@ -24,6 +27,25 @@
     "-o" (format nil "site/~a.html" fn)))
 
 
+(defun build-git-hash-file ()
+  (let ((hash (first
+               (split-sequence:split-sequence
+                #\Space
+                (with-output-to-string (s)
+                  (external-program:run "git"  '("show" "-s" "--oneline")
+                                        :output s))))))
+    (with-open-file (stream
+                     "version.html"
+                     :direction :output
+                     :if-exists :supersede
+                     :if-does-not-exist :create)
+      (format stream
+              "~&<div>~%
+<center style=\"font-size=x-small; color:lightgrey\">
+ ~%version: ~a~%
+</center>~%
+</div>" hash))))
+
 (defun determine-name (fn)
   (subseq fn (1+ (position #\: fn))))
 
@@ -145,6 +167,7 @@
 
 
 (defun build-files ()
+  (build-git-hash-file)
   (loop for file in (find-file-prefixes (ls))
         do
            (format t "~&articulating ~a into the final form...~&" file)

who.md

@@ -15,4 +15,11 @@ Feedback of all sorts will be gratefully welcomed. Contributions and
 bug reports should be done via the github location for maximum
 coordination.
 
-Happy hacking!
+Happy hacking!
+
+
+*Credit*
+
+* Analytics by [Quantcast](https://www.quantcast.com/)
+
+* Theme by [Twitter Bootstrap](http://twitter.github.com/bootstrap/)