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.
This commit is contained in:
David Thompson 2015-08-09 10:21:53 -04:00
parent a02ac9238d
commit 081f8b6e9f
2 changed files with 41 additions and 2 deletions

View File

@ -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")))

30
website/js/piwik.js Normal file
View File

@ -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);
})();