commit f9c62cfc53278a1c921626a62c34883e7835f7de Cthulhux <git@tuxproject.de> 2017-07-31 16:54:54 +0200 Added Piwik analytics
README.md | 2 +- docs/plugin-use.md | 7 +++++++ plugins/piwik.lisp | 25 +++++++++++++++++++++++++ 3 files changed, 33 insertions(+), 1 deletion(-)
diff --git a/README.md b/README.md index 7e56ddc..158a695 100644 --- a/README.md +++ b/README.md @@ -25,7 +25,7 @@ Have questions? Come talk to us on IRC in **#coleslaw** on Freenode! * Static Pages * Sitemap generation * Incremental builds - * Analytics via Google + * Analytics via Google or [Piwik](http://www.piwik.org) * Comments via [Disqus](http://disqus.com/) or [isso](http://posativ.org/isso) * Hosting via [Github Pages](https://pages.github.com/) or [Amazon S3](http://aws.amazon.com/s3/) * Embedding [gfycats](http://gfycat.com/) diff --git a/docs/plugin-use.md b/docs/plugin-use.md index 3e3c2f9..a40f18e 100644 --- a/docs/plugin-use.md +++ b/docs/plugin-use.md @@ -14,6 +14,13 @@ **Example**: `(analytics :tracking-code "google-provided-unique-id")` +## Analytics via Piwik + +**Description**: Provides traffic analysis through + [Piwik](https://www.piwik.org). + +**Example**: `(piwik :piwik-url "piwik.example.com")` + ## CL-WHO **Description**: Allows the user to write posts cl-who markup. Just create a diff --git a/plugins/piwik.lisp b/plugins/piwik.lisp new file mode 100644 index 0000000..a3e9e5c --- /dev/null +++ b/plugins/piwik.lisp @@ -0,0 +1,25 @@ +(defpackage :coleslaw-piwik + (:use :cl) + (:export #:enable) + (:import-from :coleslaw #:add-injection)) + +(in-package :coleslaw-piwik) + +(defvar *piwik-js* + "<script type="text/javascript"> + var _paq = _paq || []; + _paq.push(['trackPageView']); + _paq.push(['enableLinkTracking']); + + (function() { + var u="//~a/"; + _paq.push(['setTrackerUrl', u+'piwik.php']); + _paq.push(['setSiteId', {$IDSITE}]); + 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); + })(); +</script>") + +(defun enable (&key piwik-url) + (let ((snippet (format nil *piwik-js* piwik-url))) + (add-injection (constantly snippet) :head)))