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 ++++--
 js/piwik.js | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 36 insertions(+), 2 deletions(-)
 create mode 100644 js/piwik.js

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")
diff --git a/js/piwik.js b/js/piwik.js
new file mode 100644
index 0000000..8779997
--- /dev/null
+++ b/js/piwik.js
@@ -0,0 +1,32 @@
+/*
+ * |@licstart The following is the entire license notice for the JavaScript code in this page.|
+ *
+ * Copyright 2012 Matthieu Aubry.
+ *
+ * This program is free software: you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License as
+ * published by the Free Software Foundation, either version 3 of the
+ * License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see http://www.gnu.org/licenses/.
+ *
+ * |@licend The above is the entire license notice for the JavaScript code in this page.|
+ */
+
+var _paq = _paq || [];
+_paq.push(["setDomains", ["*.dthompson.us","*.dthompson.us"]]);
+_paq.push(['trackPageView']);
+_paq.push(['enableLinkTracking']);
+(function() {
+  var u="//stats.dthompson.us/";
+  _paq.push(['setTrackerUrl', u+'piwik.php']);
+  _paq.push(['setSiteId', 1]);
+  var d=document, g=d.createElement('script'), s=d.getElementsByTagName('script')[0];
+  g.type='text/javascript'; g.async=true; g.defer=true; g.src=u+'piwik.js'; s.parentNode.insertBefore(g,s);
+})();
-- 
cgit v1.2.3