Skip to content

Commit

Permalink
this time for sure! for sure!
Browse files Browse the repository at this point in the history
  • Loading branch information
Mike Travers committed Aug 18, 2015
1 parent 4546613 commit 0688959
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions examples/home.lisp
Expand Up @@ -21,7 +21,9 @@
(html ((:a :href (string+ "/code/" (pathname-name pathname) ".lisp") :target "code") "Code"))))))


(defparameter tracker
(defun tracker ()
(html
(:princ
"<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),
Expand All @@ -31,7 +33,7 @@
ga('create', 'UA-345282-10', 'auto');
ga('send', 'pageview');
</script>")
</script>")))

(publish :path "/"
:content-type "text/html"
Expand Down Expand Up @@ -90,7 +92,7 @@
(:li ((:a :href "https://github.com/mtravers/heroku-buildpack-cl/blob/master/README.md")
"Running Common Lisp applications in the cloud")
" on Heroku"))
(:princ tracker)
(tracker)
)))))

;;;<a href='http://www.monitor.us'><img src='http://images.monitor.us/monbadges120-40.png' title='Monitor.Us - Free website, server & network monitoring tool' border=0 /></a>
Expand Down

0 comments on commit 0688959

Please sign in to comment.