hara.code.query — hara/code 3.0.6

$ clj macro

($ context path & args)

select and manipulation of clojure source code

($ {:string "(defn hello1) (defn hello2)"} [(defn _ ^:%+ (keyword "oeuoeuoe"))]) => '[(defn hello1 :oeuoeuoe) (defn hello2 :oeuoeuoe)]

($ {:string "(defn hello1) (defn hello2)"} [(defn _ | ^:%+ (keyword "oeuoeuoe"))]) => '[:oeuoeuoe :oeuoeuoe]

(->> ($ {:string "(defn hello1) (defn hello2)"} [(defn _ | ^:%+ (keyword "oeuoeuoe"))] {:return :string})) => [":oeuoeuoe" ":oeuoeuoe"]

($ (nav/parse-root "a b c") [{:is a}]) => '[a]

$* clj

($* context path & [func? opts?])

helper function for $

context-zloc clj

(context-zloc context)

gets the context for loading forms

match clj

(match zloc selector)

matches the source code (match (nav/parse-string "(+ 1 1)") '(symbol? _ _)) => false

(match (nav/parse-string "(+ 1 1)") '(^:% symbol? _ _)) => true

(match (nav/parse-string "(+ 1 1)") '(^:%- symbol? _ | _)) => true

(match (nav/parse-string "(+ 1 1)") '(^:%+ symbol? _ _)) => false

modify clj

(modify zloc selectors func)

(modify zloc selectors func opts)

modifies location given a function (nav/string (modify (nav/parse-root "^:a (defn hello3) (defn hello)") ['(defn | _)] (fn [zloc] (nav/insert-left zloc :hello)))) => "^:a (defn :hello hello3) (defn :hello hello)"

select clj

(select zloc selectors)

(select zloc selectors opts)

selects all patterns from a starting point (map nav/value (select (nav/parse-root "(defn hello [] (if (try))) (defn hello2 [] (if (try)))") '[defn if try])) => '((defn hello [] (if (try))) (defn hello2 [] (if (try))))

traverse clj

(traverse zloc pattern)

(traverse zloc pattern func)

uses a pattern to traverse as well as to edit the form

(nav/value (traverse (nav/parse-string "^:a (+ () 2 3)") '(+ () 2 3))) => '(+ () 2 3)

(nav/value (traverse (nav/parse-string "()") '(^:&+ hello))) => '(hello)

(nav/value (traverse (nav/parse-string "()") '(+ 1 2 3))) => throws

(nav/value (traverse (nav/parse-string "(defn hello "world" {:a 1} [])") '(defn ^:% symbol? ^:?%- string? ^:?%- map? ^:% vector? & _))) => '(defn hello [])

wrap-return clj

(wrap-return f)

decides whether to return a string, zipper or sexp representation`

wrap-vec clj

(wrap-vec f)

helper for dealing with vectors