评论者: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=}}匹配元素本身在{{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}}谓词?