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

any clj

(any x)

returns true for any value (any nil) => true (any '_) => true

cursor? clj

(cursor? ele)

checks if element is | (cursor? '|) => true (cursor? '_) => false

deletion? clj

(deletion? ele)

checks if element has a delete meta (deletion? '^:- a) => true (deletion? 'a) => false

expand-meta clj

(expand-meta ele)

separates out the meta into individual flags

(meta (expand-meta ^:? ())) => {:? true}

(meta (expand-meta ^:+%? ())) => {:+ true, :? true, :% true}

find-index clj

(find-index pred seq)

(find-index pred [x & more :as seq] idx)

returns the index of the first occurrence (find-index #{2} '(1 2 3 4)) => 1

finto clj

(finto to from)

into but the right way for lists (finto () '(1 2 3)) => '(1 2 3)

insertion? clj

(insertion? ele)

checks if element has an insert meta (insertion? '^:+ a) => true (insertion? 'a) => false

none clj

(none x)

returns false for any value (none nil) => false (none '_) => false

prepare-deletion clj

(prepare-deletion pattern)

removes extraneous symbols for deletion walk (prepare-deletion '(+ a 2)) => '(+ a 2)

(prepare-deletion '(+ ^:+ a | 2)) => '(+ 2)

prepare-insertion clj

(prepare-insertion pattern)

removes extraneous symbols for deletion walk (prepare-insertion '(+ a 2)) => '(+ a 2)

(prepare-insertion '(+ ^:+ a | ^:- b 2)) => '(+ a 2)

prepare-query clj

(prepare-query pattern)

removes extraneous symbols for query walk

(prepare-query '(+ ^:+ a | ^:- b 2)) => '(+ 2)

prewalk clj

(prewalk f form)

helper function for changing elements eagerly

remove-items clj

(remove-items pred pattern)

removes items from a form matching the predicate (remove-items #{1} '(1 2 3 4)) => '(2 3 4)

(remove-items #{1} '(1 (1 (1 (1))))) => '(((())))