[defdoc-cvs] CVS DefDoc/src/layout

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))