From f2fa130527ec8407edc038a681fb8901597d4d8a Mon Sep 17 00:00:00 2001
From: Brit Butler <redline6561@gmail.com>
Date: Mon, 14 Jan 2013 12:29:28 -0500
Subject: [PATCH] Add Analytics plugin, extend example coleslawrc.

---
 README.md                       |  1 +
 examples/single-site.coleslawrc |  4 +++-
 plugins/analytics.lisp          | 24 +++++++++++++++++++++++-
 3 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 3b1ad35..7df6868 100644
--- a/README.md
+++ b/README.md
@@ -17,6 +17,7 @@ Coleslaw aims to be flexible blog software suitable for replacing a single-user
 * [Multi-site publishing](http://blub.co.za/posts/Adding-multi-site-support-to-Coleslaw.html) support.
 * Plugins for...
   * Comments via Disqus
+  * Analytics via Google
   * Using LaTeX (inside pairs of $$) via Mathjax
   * Importing posts from wordpress
 * There is also a [Heroku buildpack](https://github.com/jsmpereira/coleslaw-heroku) maintained by Jose Pereira.
diff --git a/examples/single-site.coleslawrc b/examples/single-site.coleslawrc
index 12d5d57..43de206 100644
--- a/examples/single-site.coleslawrc
+++ b/examples/single-site.coleslawrc
@@ -2,7 +2,9 @@
  :deploy "/home/git/blog/"
  :domain "http://blog.redlinernotes.com"
  :feeds ("lisp")
- :plugins (mathjax)
+ :plugins (mathjax
+           (disqus :shortname "my-site-name")
+           (analytics :tracking-code "foo"))
  :repo "/home/git/tmp/improvedmeans/"
  :sitenav ((:url "http://redlinernotes.com/" :name "Home")
            (:url "http://twitter.com/redline6561" :name "Twitter")
diff --git a/plugins/analytics.lisp b/plugins/analytics.lisp
index fb7f3d6..e74b6ff 100644
--- a/plugins/analytics.lisp
+++ b/plugins/analytics.lisp
@@ -1,2 +1,24 @@
-(in-package :coleslaw)
+(defpackage :coleslaw-analytics
+  (:use :cl)
+  (:export #:enable))
+
+(in-package :coleslaw-analytics)
+
+(defvar *analytics-js*
+  "<script type=\"text/javascript\">
+
+  var _gaq = _gaq || [];
+  _gaq.push(['_setAccount', '~a']);
+  _gaq.push(['_trackPageview']);
+
+  (function() {
+    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
+    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
+    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
+  })();
+
+</script>")
+
+(defun enable (&key tracking-code)
+  (add-injection (format nil *analytics-js* tracking-code) :head))