Cleanup packages.
This commit is contained in:
parent
083d88462a
commit
3612d9ed18
2 changed files with 11 additions and 5 deletions
|
@ -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))
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue