diff --git a/plugins/isso.lisp b/plugins/isso.lisp new file mode 100644 index 0000000..7ca5c70 --- /dev/null +++ b/plugins/isso.lisp @@ -0,0 +1,20 @@ +(defpackage :coleslaw-isso + (:use :cl) + (:export #:enable) + (:import-from :coleslaw #:add-injection + #:post)) + +(in-package :coleslaw-isso) + +(defvar *isso-header* + "
+
+ +
") + +(defun enable (&key isso-url) + (flet ((inject-p (x) + (when (typep x 'post) + (format nil *isso-header* isso-url)))) + (add-injection #'inject-p :body)))