summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--haunt.scm6
-rw-r--r--js/piwik.js32
2 files changed, 36 insertions, 2 deletions
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);
+})();