code.query.walk — xyz.zcaudate/code.query 4.1.0

levelwalk clj

(levelwalk nav [matcher] f)

(levelwalk nav [matcher] f {:keys [debug] :as opts})

only match the form at the top level (-> (levelwalk (nav/parse-string "(+ (+ (+ 8 9)))") [(match/compile-matcher '+) (match/compile-matcher '+)] (fn [nav] (-> nav nav/down (nav/replace '-) nav/up))) nav/value) => '(- (+ (+ 8 9)))

matchwalk clj

(matchwalk nav matchers f)

(matchwalk nav matchers f {:keys [suppress] :as opts})

match every entry within a form

(-> (matchwalk (nav/parse-string "(+ (+ (+ 8 9)))") [(match/compile-matcher '+)] (fn [nav] (-> nav nav/down (nav/replace '-) nav/up))) nav/value) => '(- (- (- 8 9)))

wrap-meta clj

(wrap-meta walk-fn)

allows matchwalk to handle meta tags

wrap-suppress clj

(wrap-suppress walk-fn)

allows matchwalk to handle exceptions