From 55242f40eff6328f33ef1723f0d39ac15df5a6f5 Mon Sep 17 00:00:00 2001
From: Cthulhux <git@tuxproject.de>
Date: Wed, 9 Sep 2015 00:29:23 +0200
Subject: [PATCH] added support for isso: http://posativ.org/isso/

---
 plugins/isso.lisp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 plugins/isso.lisp

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*
+  "<div class=\"comments\">
+      <section id=\"isso-thread\"></section>
+      <script data-isso=\"~a/\"
+              src=\"~a/js/embed.min.js\"></script>
+    </div>")
+
+(defun enable (&key isso-url)
+  (flet ((inject-p (x)
+           (when (typep x 'post)
+             (format nil *isso-header* isso-url))))
+    (add-injection #'inject-p :body)))