diff --git a/plugins/disqus.lisp b/plugins/disqus.lisp index a2cab65..f52d6d1 100644 --- a/plugins/disqus.lisp +++ b/plugins/disqus.lisp @@ -6,25 +6,25 @@ (in-package :coleslaw-disqus) -(defvar *disqus-header* +(defparameter *disqus-header* "
- - - comments powered by Disqus") + + ") -(defun enable (&key shortname) +(defun enable (&key shortname site-url) (flet ((inject-p (x) (when (typep x 'post) - (format nil *disqus-header* shortname)))) + (format nil *disqus-header* site-url shortname shortname)))) (add-injection #'inject-p :body))) +