12 lines
343 B
Common Lisp
12 lines
343 B
Common Lisp
(eval-when (:compile-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 ((3mbd-code-blocks:*code-blocks* t))
|
|
(with-output-to-string (str)
|
|
(3bmd:parse-string-and-print-to-stream text str))))
|