clojure.data.zip.xml是否有方法返回clojure.zip/append-node的正确位置？

clojure.data.zip.xml具有查找数据的（xml->…）函数。 是否有函数返回位置（使用类似于（xml->semantics），以便我可以使用clojure.zip库使用（zip/append child…）将节点附加到树中

---

谢谢，

xml->

返回一系列拉链LOC，每个LOC都可以与

附加子项一起使用

：

;; using data.xml 0.0.7 and data.zip 0.1.1
(require '[clojure.zip :as zip]
         '[clojure.data.xml :as xml]
         '[clojure.data.zip.xml :as xz])

(-> (xz/xml-> (zip/xml-zip (xml/parse-str "<a><b>Foo</b><c>Bar</c></a>"))
              (xz/tag= :b))
    first
    (zip/append-child (xml/->Element :d {} "Quux"))
    zip/root
    xml/emit-str)
;= "<?xml version=\"1.0\" encoding=\"UTF-8\"?><a><b>Foo<d>Quux</d></b><c>Bar</c></a>"

；；使用data.xml 0.0.7和data.zip 0.1.1
（需要“[clojure.zip:as-zip]
“[clojure.data.xml:as-xml]
“[clojure.data.zip.xml:as xz]）
（->（xz/xml->（zip/xml-zip（xml/parse-str“FooBar”））
（xz/标签=：b））
第一
（zip/append子元素（xml/->Element:d{}“qux”））
zip/root
xml/emit（str）
；=“FooQuuxBar”

xml->

返回一系列拉链LOC，每个LOC都可以与

附加子项一起使用

：

;; using data.xml 0.0.7 and data.zip 0.1.1
(require '[clojure.zip :as zip]
         '[clojure.data.xml :as xml]
         '[clojure.data.zip.xml :as xz])

(-> (xz/xml-> (zip/xml-zip (xml/parse-str "<a><b>Foo</b><c>Bar</c></a>"))
              (xz/tag= :b))
    first
    (zip/append-child (xml/->Element :d {} "Quux"))
    zip/root
    xml/emit-str)
;= "<?xml version=\"1.0\" encoding=\"UTF-8\"?><a><b>Foo<d>Quux</d></b><c>Bar</c></a>"

；；使用data.xml 0.0.7和data.zip 0.1.1
（需要“[clojure.zip:as-zip]
“[clojure.data.xml:as-xml]
“[clojure.data.zip.xml:as xz]）
（->（xz/xml->（zip/xml-zip（xml/parse-str“FooBar”））
（xz/标签=：b））
第一
（zip/append子元素（xml/->Element:d{}“qux”））
zip/root
xml/emit（str）
；=“FooQuuxBar”

谢谢你，Michał。这是一个很好的例子。我错过了需要获取xml->返回的第一个元素的事实。谢谢你，Michał。这是一个很好的例子。我错过了需要获取xml->返回的第一个元素的事实。