marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #141 from dertuxmalwieder/master

Browse source 
Not fscking up is sooo 90s
This commit is contained in:
Brit Butler 2017-08-03 15:58:31 -04:00 • committed by GitHub
commit f4a66dc523
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
docs/plugin-use.md
View file

@ -19,7 +19,7 @@
**Description**: Provides traffic analysis through
[Piwik](https://www.piwik.org).
**Example**: `(piwik :piwik-url "piwik.example.com")`
**Example**: `(piwik :piwik-url "piwik.example.com" :piwik-site "example-site")`
## CL-WHO

8
plugins/piwik.lisp
View file

@ -12,14 +12,14 @@
_paq.push(['enableLinkTracking']);
(function() {
var u="//~a/";
var u='//~a/';
_paq.push(['setTrackerUrl', u+'piwik.php']);
_paq.push(['setSiteId', {$IDSITE}]);
_paq.push(['setSiteId', '~a']);
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)))
(defun enable (&key piwik-url piwik-site)
(let ((snippet (format nil *piwik-js* piwik-url piwik-site)))
(add-injection (constantly snippet) :head)))