Add Piwik tracking JS.

1 files changed, 4 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")