Cleanup packages.

This commit is contained in:
Brit Butler 2012-09-15 17:39:00 -04:00
parent 083d88462a
commit 3612d9ed18
2 changed files with 11 additions and 5 deletions

View file

@ -1,5 +1,6 @@
(defpackage :coleslaw-disqus
(:use :cl :coleslaw))
(:use :cl)
(:import-from :coleslaw #:add-injection))
(in-package :coleslaw-disqus)
@ -21,5 +22,5 @@
<a href=\"http://disqus.com\" class=\"dsq-brlink\">comments powered by <span class=\"logo-disqus\">Disqus</span></a>")
(defun enable (&key shortname)
(coleslaw:add-injection (list (format nil *disqus-header* shortname)
(lambda (x) (typep x post))) :head))
(add-injection (list (format nil *disqus-header* shortname)
(lambda (x) (typep x post))) :head))

View file

@ -1,5 +1,10 @@
(defpackage :coleslaw-mathjax
(:use :cl :coleslaw))
(:use :cl)
(:import-from :coleslaw #:add-injection
#:post
#:index
#:post-tags
#:index-posts))
(in-package :coleslaw-mathjax)
@ -21,4 +26,4 @@ src=\"http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLor
(etypecase content
(post (math-post-p content))
(index (some #'math-post-p (index-posts content))))))
(coleslaw:add-injection (list *mathjax-header* #'mathjax-p) :head)))
(add-injection (list *mathjax-header* #'mathjax-p) :head)))