marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Brit Butler 2012-08-22 16:47:12 -04:00
parent 023004269a
commit 0837833c14
3 changed files with 7 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
coleslaw.asd
View file

@ -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")

12
plugins/markdown.lisp
View file

@ -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))))

5
src/posts.lisp
View file

@ -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 ()