[defdoc-cvs] CVS DefDoc/src/layout

[rjain]

Update of /project/defdoc/cvsroot/DefDoc/src/layout
In directory clnet:/tmp/cvs-serv18720/src/layout

Modified Files:
	html-engine.lisp 
Log Message:
Add conversion for itemized lists


--- /project/defdoc/cvsroot/DefDoc/src/layout/html-engine.lisp	2004/02/15 05:35:04	1.5
+++ /project/defdoc/cvsroot/DefDoc/src/layout/html-engine.lisp	2007/10/11 16:20:10	1.6
@@ -273,6 +273,12 @@
   (with-html-block (:BLOCKQUOTE)
     (convert)))
 
+(define-html-conversion itemized-list (input)
+  (with-html-block (:UL)
+    (dolist (element (contents input))
+      (with-html-block (:LI)
+        (convert element)))))
+
 (define-html-conversion preformatted-paragraph (input)
   (with-html-block+ (0 nil :PRE)
     (let ((*suppress-html-wrapping* t))