From bee77914483da25831093e0475e4a71f1383253b Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Wed, 5 Nov 2025 16:45:22 -0500
Subject: Keyboard in a decent state

---
 src/scratch.clj | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'src/scratch.clj')

diff --git a/src/scratch.clj b/src/scratch.clj
index 80baa83..ed2d464 100644
--- a/src/scratch.clj
+++ b/src/scratch.clj
@@ -1,5 +1,5 @@
 (ns scratch
-  (:require [midi :refer [print-all-midi-devices >bus <bus] :as midi]
+  (:require [midi :as midi]
             [missionary.core :as m]))
 
 #_(print-all-midi-devices)
@@ -7,10 +7,17 @@
 (def midi-keyboard  "CoreMIDI4J - Minilab3 MIDI")
 
 (def run
-  (midi/<bus midi-keyboard midi/keyboard))
+  (midi/<bus midi-keyboard
+             (fn [v]
+               (m/ap
+                 ;; 2 is the number of message types, e.g. :key
+                (let [[t f] (m/?> 2 (midi/keyboard v))]
+                  [t (rest (m/?< f))])))))
 
+#_
 (def cancel
   (run prn prn))
 
+#_
 (cancel)
 
-- 
cgit v1.2.3