src/unheard/instrument_utils.clj


1
2
3
4
5
6
7
8
9
10
11
12
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]))))