From b66b1dd02b0c2f25944695da4cf37be50a58688e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 20 Aug 2016 07:00:07 -0400
Subject: Add Piwik tracking JS.

---
 haunt.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'haunt.scm')

diff --git a/haunt.scm b/haunt.scm
index 447f36a..fdcd967 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -71,7 +71,7 @@
 (define %piwik-code
   '((script (@ (type "text/javascript") (src "/js/piwik.js")))
     (noscript
-     (p (img (@ (src "//stats.dthompson.us/piwik.php?idsite=3")
+     (p (img (@ (src "//stats.dthompson.us/piwik.php?idsite=1")
                 (style "border:0;")
                 (alt "")))))))
 
@@ -127,7 +127,8 @@ free culture works available under the " ,%cc-by-sa-link " license.")
                               ", a static site generator written in "
                               (a (@ (href "https://gnu.org/software/guile"))
                                  "Guile Scheme")
-                              "."))))))
+                              ".")))
+              ,%piwik-code)))
          #:post-template
          (lambda (post)
            `((h1 (@ (class "title")),(post-ref post 'title))
@@ -515,6 +516,7 @@ Convert SubRip formatted subtitles to WebVTT format.
                        guile-sdl2-page
                        shroud-page
                        srt2vtt-page
+                       (static-directory "js")
                        (static-directory "css")
                        (static-directory "fonts")
                        (static-directory "images")
-- 
cgit v1.2.3