评论由:bpeter 提出
我发现了一个 "解决方法",如下所示,并见 (链接: ^zip-xml-bug-descent.tgz)
`
(defn descent=
[tagname]
(fn [loc]
(filter #(and (zip/branch? %) (= tagname (:tag (zip/node %))))
(testing "使用 descent 选择内部名称"
(is (= "Inner"
(-> (zip-xml/xml1-> root :Root :Group (descent= :Group) :Name zip-xml/text)))))
`
似乎在 {{tag=}} 匹配元素本身时,(link: ^zip-xml-bug-descent.tgz) 中的 {{or}} 表达式中的第一个表达式是我的问题中的问题。我怀疑它可以用作选择根元素。是否还有其他需求?
`
(defn tag=
[tagname]
(fn [loc]
(or (= tagname (:tag (zip/node loc)))
(filter #(and (zip/branch? %) (= tagname (:tag (zip/node %))))
(zf/children-auto loc)))))
`
也许应该有一个 {{self}} 断言?