Move markdown into core since it's tiny and blows up trying to load split-sequence.

coleslaw.asd

@@ -5,7 +5,8 @@
   :license "BSD"
   :author "Brit Butler <redline6561@gmail.com>"
   :pathname "src/"
-  :depends-on (:closure-template :iolib.os :alexandria :cl-fad :local-time)
+  :depends-on (:alexandria :closure-template :3bmd :3bmd-ext-code-blocks
+               :local-time :iolib.os :cl-fad)
   :serial t
   :components ((:file "packages")
                (:file "config")

plugins/markdown.lisp

@@ -1,12 +0,0 @@
-(eval-when (:compile-toplevel :load-toplevel)
-  (ql:quickload '(3bmd 3bmd-ext-code-blocks)))
-
-(defpackage :coleslaw-md
-  (:use :cl :coleslaw))
-
-(in-package :coleslaw-md)
-
-(defmethod render-content (text (format (eql :md)))
-  (let ((3bmd-code-blocks:*code-blocks* t))
-    (with-output-to-string (str)
-      (3bmd:parse-string-and-print-to-stream text str))))

src/posts.lisp

@@ -42,6 +42,11 @@
   (:method (text (format (eql :html)))
     text))
 
+(defmethod render-content (text (format (eql :md)))
+  (let ((3bmd-code-blocks:*code-blocks* t))
+    (with-output-to-string (str)
+      (3bmd:parse-string-and-print-to-stream text str))))
+
 (defun read-post (in)
   "Make a POST instance based on the data from the stream IN."
   (flet ((check-header ()