[Add preview to page/weblog editors
clinton@unknownlamer.org**20081213005049] hunk ./src/web-admin.lisp 6
+(defcomponent markdown-preview (bee-widget)
+  ((text :initarg :text :reader text)))
+
+(defmethod render ((m markdown-preview))
+  (<:div
+   (cl-markdown:markdown (text m) :stream yaclml:*yaclml-stream* :format :html))
+  (<:div (<ucw:a :action (answer)
+		 (<:as-html "Ok"))))
+
hunk ./src/web-admin.lisp 41
+(defmethod render :before ((e weblog-entry-editor))
+  (with-slots (body)
+    (<:div (<ucw:submit :value "Preview" :action (call 'markdown-preview
+						       :text (value body))))))
+
hunk ./src/web-admin.lisp 128
+(defmethod render :before ((e page-editor))
+  (with-slots (content) e
+    (<:div (<ucw:submit :value "Preview" :action (call 'markdown-preview
+						       :text (value content))))))
+