Source
net/cgrand/enlive_html.clj:495
top
(defn zip-select-nodes* [locs state]
(letfn [(select1 [loc previous-state]
(when-let [state (step previous-state loc)]
(let [descendants (mapcat #(select1 % state) (children-locs loc))]
(if (accept-key state) (cons loc descendants) descendants))))]
(mapcat #(select1 % state) locs)))
Comments top
No comments for zip-select-nodes*. Log in to add a comment.