17 lines
434 B
Common Lisp
17 lines
434 B
Common Lisp
(eval-when (:compile-toplevel :load-toplevel)
|
|
(ql:quickload 'docutils))
|
|
|
|
(defpackage :coleslaw-rst
|
|
(:use :cl)
|
|
(:import-from :coleslaw #:render-content)
|
|
(:import-from :cl-docutils #:read-rst
|
|
#:write-html)
|
|
(:export #:enable))
|
|
|
|
(in-package :coleslaw-rst)
|
|
|
|
(defmethod render-content (text (format (eql :rst)))
|
|
(with-output-to-string (str)
|
|
(write-html str (read-rst text))))
|
|
|
|
(defun enable ())
|