From c62ed160a04c1ee5d08297d13a26630a590c5d6a Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Thu, 6 Nov 2025 14:15:51 -0500
Subject: Define minilab3 values

---
 src/unheard/instrument_utils.clj | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/unheard/instrument_utils.clj

(limited to 'src/unheard/instrument_utils.clj')

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]))))
-- 
cgit v1.2.3