Google Analytics support.

prb · Apr 7, 2009 · fe743b0 · fe743b0
1 parent 45c33c6
commit fe743b0
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 3 deletions.
diff --git a/src/Blog/Constants.hs b/src/Blog/Constants.hs
@@ -105,4 +105,7 @@ logfile :: String
 logfile = content_root ++ "/logs/perpubplat.log"
 
 google_user :: String
-google_user = "" -- fill yours in
+google_user = "" -- fill yours in
+
+google_analytics_identifier :: Maybe String
+google_analytics_identifier = Nothing -- fill yours in
diff --git a/src/Blog/FrontEnd/ContentAtoms.hs b/src/Blog/FrontEnd/ContentAtoms.hs
@@ -11,14 +11,35 @@ heading = divid "header" ( (h1 $ _at (V.url $ V.All Nothing) C.blog_title)
                            (h2 $ stringToHtml C.blog_tagline) )
 
 footer :: Html
-footer = (divid "footer") . concatHtml $ [  p ! [ theclass "copyright" ] << primHtml C.license_xhtml
-                                         , p ! [ theclass "generator" ] << generator_tagline ]
+footer = ((divid "footer") . concatHtml $ [  p ! [ theclass "copyright" ] << primHtml C.license_xhtml
+                                         , p ! [ theclass "generator" ] << generator_tagline ])
+         +++ google_analytics_block
     where
       generator_tagline =  concatHtml [ stringToHtml "Running "
                                       , _at C.generator_uri C.generator_name
                                       , stringToHtml " version "
                                       , stringToHtml C.generator_version ]
 
+google_analytics_block :: Html
+google_analytics_block = case C.google_analytics_identifier of
+                           Nothing ->
+                               noHtml
+                           Just ua_code ->
+                             primHtml $ "<script type=\"text/javascript\">\n"
+                                          ++ "var gaJsHost = \"http://www.\";\n"
+                                          ++ "document.write(unescape(\"%3Cscript src='\""
+                                          ++ " + gaJsHost + \"google-analytics.com/ga.js' "
+                                          ++ "type='text/javascript'%3E%3C/script%3E\"));"
+                                          ++ "</script>\n"
+                                          ++ "<script type=\"text/javascript\">\n"
+                                          ++ "try{\n"
+                                          ++ "  var pageTracker = _gat._getTracker(\""
+                                          ++ ua_code
+                                          ++ "\");\n"
+                                          ++ "  pageTracker._trackPageview();"
+                                          ++ "} catch(err) {}"
+                                          ++ "</script>"
+
 divid :: String -> Html -> Html
 divid label h = thediv ! [ identifier label ] << h