add tracker

.gitignore

@@ -1,2 +1,4 @@
 *.fasl
+*.dx64fsl
 *#
+

README.md

@@ -16,6 +16,9 @@ light-weight, a toolkit rather than a platform.
 
 May be run at the demo site: [http://wuwei.name](http://wuwei.name)
 
+For a real application, take a look at [BioCyc Smart Tables](http://biocyc.org/groups).
+
+
 ## Credits
 
   WuWei was written primarily by Mike Travers, originally under the sponsorship of CollabRx, Inc.

examples/home.lisp

@@ -82,7 +82,7 @@
 			 "Running Common Lisp applications in the cloud")
 			" on Heroku"))
 
-		  (tracker)
+		  (html (tracker))
 
 		  )))))
 

heroku-setup.lisp

@@ -11,4 +11,18 @@
 
 (ql:quickload :wuwei-examples)
 
+(in-package :wu)
+
+(defun tracker ()
+  "<script>
+  (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
+  (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
+  m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
+  })(window,document,'script','//www.google-analytics.com/analytics.js','ga');
+
+  ga('create', 'UA-345282-10', 'auto');
+  ga('send', 'pageview');
+
+ </script>")
+
 (print ">>> Done building system")