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

helper function for $

gets the context for loading forms

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

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

selects all patterns from a starting point (map nav/value (select (nav/parse-root “(defn hello ) (defn hello2 )”) ’defn if try)) => ’((defn hello ) (defn hello2 ))

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 [])

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

helper for dealing with vectors