From bc14d6a631a6305ae1647c7e45f98af35930052b Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Tue, 4 Nov 2025 09:30:49 -0500
Subject: Adding basic midi filter functions

---
 src/scratch.clj | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 src/scratch.clj

(limited to 'src/scratch.clj')

diff --git a/src/scratch.clj b/src/scratch.clj
new file mode 100644
index 0000000..77eb609
--- /dev/null
+++ b/src/scratch.clj
@@ -0,0 +1,36 @@
+(ns scratch
+  (:require [midi :refer [print-all-midi-devices >bus <bus] :as midi]
+            [missionary.core :as m]))
+
+#_(print-all-midi-devices)
+
+(def midi-keyboard  "CoreMIDI4J - Minilab3 MIDI")
+
+(def run
+  (<bus
+   midi-keyboard
+   #_
+   (fn [f] (m/ap
+             (let [[i] ]
+               (m/group-by #(.getCh %) ))
+             (println (m/?< f))))
+   (fn [f]
+     (m/ap
+       (let [[ch vs]
+             (m/?> 128 (midi/|channels (midi/|short-messages f)))]
+         (println "CH" ch (m/?< vs)))
+       #_
+       (let [[ch >ch-messages]
+             (m/?> 128 (midi/|channels (midi/|short-messages f)))
+             #_#_
+             [note >note-messages]
+             (m/?> 128 (midi/|notes >ch-messages))]
+         (println "CH" ch)
+         #_#_
+         (println "HELLO")
+         [ch note (m/?< >note-messages)])))))
+
+(def cancel
+  (run prn prn))
+(cancel)
+
-- 
cgit v1.2.3