(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]))))