diff options
-rw-r--r-- | haunt.scm | 6 | ||||
-rw-r--r-- | js/piwik.js | 32 |
2 files changed, 36 insertions, 2 deletions
@@ -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); +})(); |