Преглед на файлове

Add draft restructured-text plugin, minor heroku cleanup.

Brit Butler преди 12 години
родител
ревизия
d256db6bbc
променени са 3 файла, в които са добавени 12 реда и са изтрити 4 реда
  1. 1 1
      plugins/heroku.lisp
  2. 0 2
      plugins/pygments.lisp
  3. 11 1
      plugins/restructured-text.lisp

+ 1 - 1
plugins/heroku.lisp

@@ -1,5 +1,5 @@
1 1
 (eval-when (:compile-toplevel :load-toplevel)
2
-  (ql:quickload '(hunchentoot)))
2
+  (ql:quickload 'hunchentoot))
3 3
 
4 4
 (defpackage :coleslaw-heroku
5 5
   (:use :cl)

+ 0 - 2
plugins/pygments.lisp

@@ -1,2 +0,0 @@
1
-(in-package :coleslaw)
2
-

+ 11 - 1
plugins/restructured-text.lisp

@@ -2,6 +2,16 @@
2 2
   (ql:quickload 'docutils))
3 3
 
4 4
 (defpackage :coleslaw-rst
5
-  (:use :cl :coleslaw))
5
+  (:use :cl)
6
+  (:import-from :coleslaw #:render-content)
7
+  (:import-from :cl-docutils #:read-rst
8
+                             #:write-html)
9
+  (:export #:enable))
6 10
 
7 11
 (in-package :coleslaw-rst)
12
+
13
+(defmethod render-content (text (format (eql :rst)))
14
+  (with-output-to-string (str)
15
+    (write-html str (read-rst text))))
16
+
17
+(defun enable ())