actionho-commons.common.util — org.clojars.actionho/actionho-commons 0.10-SNAPSHOT

add-map-key-prefix clj/s

(add-map-key-prefix prefix-str m)

Assumes map keys are keywords

add-prefix-to-map-keys clj/s

(add-prefix-to-map-keys m prefix-str keys-seq)

Changes map so that keys given in keys-seq are prefixed with prefix-str, assumes keys are keywords.

all-not-nil? clj/s

(all-not-nil? & args)

Expects args to be a sequence. Can't use (and) as (and) is a macro, https://clojuredocs.org/clojure.core/and

convert-dash-keys->underscores clj/s

(convert-dash-keys->underscores m)

Replaces all map keys with - in them with _

current-log-level clj/s

default-logger-app-prefix clj/s

dev-debug-mode clj/s

distinct-by clj/s

(distinct-by f)

(distinct-by f coll)

Basically (distinct), but you can pass it a function to compare by

Returns a lazy sequence of the elements of coll, removing any elements that return duplicate values when passed to a function f. From https://crossclj.info/fun/medley.core/distinct-by.html

fn-helper clj/s

(fn-helper in-fn in-var)

For use in threading macros -> and ->>, so that inline/lamba functions can be defined and called in the threading macro.

get-keys-paths-in-map clj/s

(get-keys-paths-in-map m)

Given a map, returns a vec of all the key-path vecs in the map. Only shows the full leaf paths, so no partial paths with more nodes underneath it. from http://stackoverflow.com/questions/21768802/how-can-i-get-the-nested-keys-of-a-map-in-clojure

get-log-level-int clj/s

(get-log-level-int log-level)

get-ordered-map clj/s

(get-ordered-map m ordered-keys-vec)

get-utc-now clj/s

(get-utc-now)

Get unix timestamp for right now

has-keys? clj/s

(has-keys? m key_vec)

if-helper clj/s

(if-helper check-var in-fn in-var)

For use in threading macros, if check-var is true, returns (in-fn in-var), otherwise in-var.

in-repl-logging-atom clj/s

in? clj/s

(in? seq elm)

true if seq contains elem, else false

is-blank-string? clj/s

(is-blank-string? in-str)

jas clj/s

(jas predicate & message)

Javascript Assert for a truth value only

logger clj

logl clj/s

(logl log-level in-str)

logl* clj/s

(logl* in-str)

logl-npprint-vec clj/s

(logl-npprint-vec log-level str-vec clj-obj-vec)

Prevents npprint from evaluating if there is no logging to be done, as pprint is extremely slow, and when flagged as not used in production via a :debug level, should not execute. Without this, with eager and not lazy evaluation, pprint will execute even if logging level is low.

Takes in 2 vecs, one for strings, and the other for clj-objs to npprint, interleaved together. e.g. ['abc: '] [clj-obj1] will give (str 'abc: ' (npprint clj-obj1))

Assumes length of str-vec is greater or equal than clj-obj-vec

not-blank-str? clj/s

(not-blank-str? in-str)

npprint clj/s

(npprint clj-obj)

convenience wrapper around pprint to string, mostly for keeping the pprint import in one place

positions clj/s

(positions pred coll)

e.g. (def v ["one" "two" "three" "two"]) (positions #{"two"} v) ; -> (1 3) from http://stackoverflow.com/questions/4830900/how-do-i-find-the-index-of-an-item-in-a-vector

print-vec-to-str clj/s≠

(print-vec-to-str print-type str-vec clj-obj-vec)

clj

Inputs: [print-type :- (ps/pred (fn* [p1__13458#] (in? [:normal-str :npprint] p1__13458#))) str-vec clj-obj-vec]

Takes in 2 vecs, one for strings, and the other for clj-objs to npprint, interleaved together. e.g. ['abc: '] [clj-obj1] will give (str 'abc: ' (npprint clj-obj1))

Assumes length of str-vec is greater or equal than clj-obj-vec.

Either does plain old str on uses npprint.

cljs

Inputs: [print-type :- (ps/pred (fn* [p1__16932#] (in? [:normal-str :npprint] p1__16932#))) str-vec clj-obj-vec]

Takes in 2 vecs, one for strings, and the other for clj-objs to npprint, interleaved together. e.g. ['abc: '] [clj-obj1] will give (str 'abc: ' (npprint clj-obj1))

Assumes length of str-vec is greater or equal than clj-obj-vec.

Either does plain old str on uses npprint.

reduce-indexed clj/s

(reduce-indexed f coll)

(reduce-indexed f init coll)

(reduce-indexed f init i coll)

Reduce while adding an index as the second argument to the function function signature for inner function is [in-coll idx var] from https://crossclj.info/fun/mc.util/reduce-indexed.html, unable to find on clojars

rename-map-keys clj/s

(rename-map-keys m in-regex replacement-str)

Assumes map keys are keywords

repl-log clj/s

(repl-log in-str)

Needed so only in repl will this fire, otherwise will print out twice to console for everything

select-keys-regex clj/s

(select-keys-regex m regex)

Same as (select-keys), but does a regex search on the key names instead of by a straight list

set-clj-log4j-logger clj

(set-clj-log4j-logger logger-name-str)

should-log? clj/s

(should-log? log-level)

Uses global var current-log-level

should-log?-memo clj/s

sp-table clj/s

(sp-table keys-vec vec-of-maps)

Wrapper around print-table so it'll work easily with logl.

underscores->- clj/s

(underscores->- in-str)

Replace underscores with dashes

when-helper clj/s

(when-helper check-fn in-var)

For use in threading macros some-> and some->>, if check-fn passes, returns val, otherwise nil.

word-count clj/s

word-count* clj/s

(word-count* in-str)

Exactly as it sounds, counts the number of words in in-str