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

make output from restructured text generator useable

Browse source
This commit is contained in:
tycho garen 2014-03-01 22:27:17 -05:00
parent ea81fddd96
commit 1b72440a61
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
plugins/rst.lisp
View file

@ -4,14 +4,20 @@
(defpackage :coleslaw-rst
(:use :cl)
(:import-from :coleslaw #:render-content)
(:import-from :docutils #:read-rst
#:write-html)
(:import-from :docutils #:read-rst #:write-part #:register-settings-spec
#:visit-node #:write-document)
(:import-from :docutils.writer.html #:html-writer #:write-part)
(:export #:enable))
(in-package :coleslaw-rst)
(defmethod render-content (text (format (eql :rst)))
(register-settings-spec '((:generator nil)
(:datestamp nil)))
(with-output-to-string (str)
(write-html str (read-rst text))))
(let ((writer (make-instance 'html-writer))
(document (read-rst text)))
(visit-node writer document)
(write-document writer document str))))
(defun enable ())