hara.core.base.shorthand — hara/base 3.0.11

call-> clj

(call-> obj [ff & args])

Indirect call, takes obj and a list containing either a function, a symbol representing the function or the symbol ? and any additional arguments. Used for calling functions that have been stored as symbols.

(call-> 1 '(+ 2 3 4)) => 10

(call-> 1 '(< 2)) => true

(call-> {:a {:b 1}} '((get-in [:a :b]) = 1)) => true

check clj

(check obj chk)

(check obj sel chk)

checks

(check 2 2) => true

(check 2 even?) => true

(check 2 '(> 1)) => true

(check {:a {:b 1}} '([:a :b] (= 1))) => true

(check {:a {:b 1}} :a vector?) => false

(check {:a {:b 1}} [:a :b] 1) => true

check-> clj

(check-> obj pchk)

Shorthand ways of checking where m fits prchk

(check-> {:a 1} :a) => true

(check-> {:a 1 :val 1} [:val 1]) => true

(check-> {:a {:b 1}} [[:a :b] odd?]) => true

check-all clj

(check-all obj & pairs)

Returns true if obj satisfies all pairs of sel and chk

(check-all {:a {:b 1}} :a #(instance? clojure.lang.IPersistentMap %) [:a :b] 1) => true

check?-> clj

(check?-> obj prchk)

(check?-> obj prchk res)

Tests obj using prchk and returns obj or res if true

(check?-> :3 even?) => nil

(check?-> 3 even?) => nil

(check?-> 2 even?) => true

(check?-> {:id :1} '[:id (= :1)]) => true

eq-> clj

(eq-> obj1 obj2 sel)

Compare if two vals are equal.

(eq-> {:id 1 :a 1} {:id 1 :a 2} :id) => true

(eq-> {:db {:id 1} :a 1} {:db {:id 1} :a 2} [:db :id]) => true

fn-> clj

(fn-> form)

Constructs a function from a form representation.

((fn-> '(+ 10)) 10) => 20

get-> clj

(get-> obj sel)

Provides a shorthand way of getting a return value. sel can be a function, a vector, or a value.

(get-> {:a {:b {:c 1}}} :a) => {:b {:c 1}}

(get-> {:a {:b {:c 1}}} [:a :b]) => {:c 1}

shorthand-fn-expr clj

(shorthand-fn-expr form)

Makes a function expression out of the form

(shorthand-fn-expr '(+ 2)) => '(fn [?] (+ ? 2))

shorthand-form clj

(shorthand-form sym [ff & more])

Makes an expression using sym

(shorthand-form 'y '(str)) => '(str y)

(shorthand-form 'x '((inc) (- 2) (+ 2))) => '(+ (- (inc x) 2) 2)