function | since v0.0-927 | ![]() | Edit |
(xml-zip root)
Returns a zipper for xml elements (as from xml/parse), given a root element
(defn xml-zip
[root]
(zipper (complement string?)
(comp seq :content)
(fn [node children]
(assoc node :content (and children (apply vector children))))
root))