Returns a zipper for xml elements (as from xml/parse),
given a root element
(defn xml-zip
"Returns a zipper for xml elements (as from xml/parse),
given a root element"
[root]
(z/zipper #(or (tag? %) (document? %))
(comp seq :content) #(assoc %1 :content %2) root))
Comments top
No comments for xml-zip. Log in to add a comment.