diff options
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])))) |