;;
;; how to generate documents

(in-package :web-user)


<h2>CL-XML: How To: Transform Documents</h2>
<p>20031024  <br/>
<a href="mailto:James.Anderson@setf.de">james anderson</a> (c)2003, </p>

<table border="1" cellpadding="0" cellspacing="0" width="100%">
  <tr>
   <td align="center">
    [<a href="./load.html">loading</a>]
    [<a href="./parse.html">parsing</a>]
    [<a href="./functional-accessors.html">accessor functions</a>]
    [<a href="./path-accessors">paths</a>]
    [<a href="./combined-methods.html">combinations</a>]
    [<a href="#Transformations">transformations</a>]
    <a name="TOP"></a></td></tr>
  </table>

<a name='Transformations'><hr /></a>
<h2>Transformations</h2>
(defVar *dm* )

(setq *dm* (parse-document "file://xml/documentation/howto/howto.xml"))


(defun write-items-as-tables (doc)
  (flet ((section-element-p (n) (eq (name n) '{}section))
         (item-element-p (n) (eq (name n) '{}item)))
    (let* ((root (root doc))
           (sections (remove-if-not #'section-element-p (children root)))
           (items (reduce #'append (mapcar #'(lambda (section) (remove-if-not #'item-element-p
                                                                              (children section)))
                                           sections))))
      (xml ({}html ({xmlns}|| "http://www.w3.org/1999/xhtml"))
           (xml {}head)
           (xml {}body
                (xml {}table
                     (xml {}tr
                          (dolist (a (attributes (first items)))
                            (xml {}th (encode-node (name a))))
                          (dolist (c (children (first items)))
                            (xml {}th (encode-node (name c)))))
                     (dolist (i items)
                       (xml {}tr
                         (dolist (a (attributes i))
                            (xml {}td (encode-node (value a))))
                         (dolist (c (children i))
                           (xml {}td (encode-node (value-string c))))))))))))

(with-xml-writer (*trace-output*)
  (write-items-as-tables *dm*))

(defparameter *svg-dm* (parse-document "file://xml/documentation/howto/shapes-line-01-t.svg"))

(defun write-items-as-tables (doc svg)
  (flet ((section-element-p (n) (eq (name n) '{}section))
         (item-element-p (n) (eq (name n) '{}item)))
    (let* ((root (root doc))
           (sections (remove-if-not #'section-element-p (children root)))
           (items (reduce #'append (mapcar #'(lambda (section) (remove-if-not #'item-element-p
                                                                              (children section)))
                                           sections))))
      (xml ({}html ({xmlns}|| "http://www.w3.org/1999/xhtml"))
           (xml {}head)
           (xml {}body
                (xml {}table
                     (xml {}tr
                          (dolist (a (attributes (first items)))
                            (xml {}th (encode-node (name a))))
                          (dolist (c (children (first items)))
                            (xml {}th (encode-node (name c)))))
                     (dolist (i items)
                       (xml {}tr
                         (dolist (a (attributes i))
                            (xml {}td (encode-node (value a))))
                         (dolist (c (children i))
                           (xml {}td (encode-node (value-string c)))))))
                (xml {}hr)
                (encode-node (root svg)))))))

(with-open-file (stream "xml:documentation;howto;howto-svg.html"
                        :direction :output
                        :if-exists :supersede :if-does-not-exist :create)
  (with-xml-writer (stream)
    (write-items-as-tables *dm* *svg-dm*)))

:eof