WvHTMLPostProcessor

Source code:

<copy-of xmlns="http://www.askemos.org/2000/NameSpaceDSSSL">

(define (wvHtml-filter lv)
  (node-list-map 
   (lambda (node)
     (cond
      ((match-element? 'div node) (wvHtml-filter (children node)))
      ((match-element? 'font node) (wvHtml-filter (children node)))
      ((match-element? 'p node)
       (if (node-list-empty? (children node))
           (empty-node-list)
         (make element 'p #f '() (wvHtml-filter (children node)))))
      ((xml-element? node)
       (make element (gi node) #f (attributes node)
                     (wvHtml-filter (children node))))
      (else node)))
   lv))

</copy-of>
<!--

 ;;; Local Variables: ***
 ;;; mode: scheme ***
 ;;; End: ***

-->