如何在Enlive中使用选择器否定(但…)更复杂的HTML片段？

我有一个类似于HTML代码段：

<div id="root">
    <div id="A" attrib_2="bar"></div>
    <div id="B" attrib_2="baz">
        <div id="H" attrib_1="gnu">
            <p>
                <div id="F" attrib_2="baz"></div>
            </p>
        </div>
    </div>
    <div id="C" attrib_2="owl"></div>
    <div id="D" attrib_2="uhu"></div>
    <div id="E" attrib_2="boom"></div>
</div>

现在,我想选择所有具有attrib_2(* [attrb_2])的片段,不包括具有attrib_1集合的节点的下降点.可以有更多的嵌套级别与任意标签(如本例中的< p>).有了Enlive(http://enlive.cgrand.net/),我已经尝试过如下：

(select snippet [(but (attr? :attrib_1)) (attr? :attrib_2)])

但是这不行,因为否定(但是(attr？：attrib_1))也匹配< p>标签.有没有办法用给定的选择器谓词(http://enlive.cgrand.net/syntax.html)表达这一点,还是要写自己的？

提前致谢

-Jochen

解决方法

你必须编写自己的选择器：

(def parents 
  (zip-pred (fn [loc pred]
              (some pred (take-while identity (iterate zip/up loc))))))

(另)

接着

(select snippet [[(attr? :attrib_2) (but (parents (attr? :attrib_1))]])

应该工作