diff options
| author | Jake Zerrer <him@jakezerrer.com> | 2025-11-06 14:15:51 -0500 |
|---|---|---|
| committer | Jake Zerrer <him@jakezerrer.com> | 2025-11-06 15:10:01 -0500 |
| commit | c62ed160a04c1ee5d08297d13a26630a590c5d6a (patch) | |
| tree | 57f43c2b6b4ad3d8f427f8375cc33228e3780ef6 /src/unheard/instrument_utils.clj | |
| parent | 1941fed92200e60c0912115e4eb87d114c206383 (diff) | |
Define minilab3 values
Diffstat (limited to 'src/unheard/instrument_utils.clj')
| -rw-r--r-- | src/unheard/instrument_utils.clj | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/unheard/instrument_utils.clj b/src/unheard/instrument_utils.clj new file mode 100644 index 0000000..1ceae6b --- /dev/null +++ b/src/unheard/instrument_utils.clj @@ -0,0 +1,13 @@ +(ns unheard.instrument-utils) + +(defn is-knob [inst] + (fn [n [ch k _v]] + (= [ch k] (get-in inst [:knobs n])))) + +(defn is-fader [inst] + (fn [n [ch k _v]] + (= [ch k] (get-in inst [:faders n])))) + +(defn is-pad [inst] + (fn [n [ch k _v]] + (= [ch k] (get-in inst [:pads n])))) |