Add draft restructured-text plugin, minor heroku cleanup.
This commit is contained in:
parent
87b85b1d29
commit
d256db6bbc
3 changed files with 12 additions and 4 deletions
|
@ -1,5 +1,5 @@
|
||||||
(eval-when (:compile-toplevel :load-toplevel)
|
(eval-when (:compile-toplevel :load-toplevel)
|
||||||
(ql:quickload '(hunchentoot)))
|
(ql:quickload 'hunchentoot))
|
||||||
|
|
||||||
(defpackage :coleslaw-heroku
|
(defpackage :coleslaw-heroku
|
||||||
(:use :cl)
|
(:use :cl)
|
||||||
|
|
|
@ -1,2 +0,0 @@
|
||||||
(in-package :coleslaw)
|
|
||||||
|
|
|
@ -2,6 +2,16 @@
|
||||||
(ql:quickload 'docutils))
|
(ql:quickload 'docutils))
|
||||||
|
|
||||||
(defpackage :coleslaw-rst
|
(defpackage :coleslaw-rst
|
||||||
(:use :cl :coleslaw))
|
(:use :cl)
|
||||||
|
(:import-from :coleslaw #:render-content)
|
||||||
|
(:import-from :cl-docutils #:read-rst
|
||||||
|
#:write-html)
|
||||||
|
(:export #:enable))
|
||||||
|
|
||||||
(in-package :coleslaw-rst)
|
(in-package :coleslaw-rst)
|
||||||
|
|
||||||
|
(defmethod render-content (text (format (eql :rst)))
|
||||||
|
(with-output-to-string (str)
|
||||||
|
(write-html str (read-rst text))))
|
||||||
|
|
||||||
|
(defun enable ())
|
||||||
|
|
Loading…
Add table
Reference in a new issue