From 081f8b6e9f4a71881c2f27ba6e9739acafa91d72 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 9 Aug 2015 10:21:53 -0400
Subject: website: Add Piwik analytics.

* website/haunt.scm (%piwik-code): New variable.
  (haunt-theme): Include Piwik JS on all pages.
* website/js/piwik.js: New file.
---
 website/haunt.scm   | 13 +++++++++++--
 website/js/piwik.js | 30 ++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+), 2 deletions(-)
 create mode 100644 website/js/piwik.js

(limited to 'website')

diff --git a/website/haunt.scm b/website/haunt.scm
index a1a5f32..c25fdc6 100644
--- a/website/haunt.scm
+++ b/website/haunt.scm
@@ -68,6 +68,13 @@
   '(a (@ (href "https://creativecommons.org/licenses/by-sa/4.0/"))
       "Creative Commons Attribution Share-Alike 4.0 International"))
 
+(define %piwik-code
+  '((script (@ (type "text/javascript") (src "/js/piwik.js")))
+    (noscript
+     (p (img (@ (src "//stats.dthompson.us/piwik.php?idsite=3")
+                (style "border:0;")
+                (alt "")))))))
+
 (define haunt-theme
   (theme #:name "Haunt"
          #:layout
@@ -77,7 +84,8 @@
               (meta (@ (charset "utf-8")))
               (title ,(string-append title " — " (site-title site)))
               ,(stylesheet "reset")
-              ,(stylesheet "main"))
+              ,(stylesheet "main")
+              ,%piwik-code)
              (body
               (header (@ (class "navbar"))
                       (div (@ (class "container"))
@@ -200,4 +208,5 @@ the official git repository:")
                        (atom-feeds-by-tag)
                        downloads-page
                        (static-directory "images")
-                       (static-directory "css")))
+                       (static-directory "css")
+                       (static-directory "js")))
diff --git a/website/js/piwik.js b/website/js/piwik.js
new file mode 100644
index 0000000..a092f58
--- /dev/null
+++ b/website/js/piwik.js
@@ -0,0 +1,30 @@
+/*
+ * |@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(['trackPageView']);
+_paq.push(['enableLinkTracking']);
+(function() {
+  var u="//stats.dthompson.us/";
+  _paq.push(['setTrackerUrl', u+'piwik.php']);
+  _paq.push(['setSiteId', 3]);
+  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