From c8813e2b4da15192310fbb89f15cc02c54f66d2b Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Thu, 6 Nov 2025 11:14:46 -0500
Subject: Move scratch.clj to dev

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

(limited to 'dev')

diff --git a/dev/scratch.clj b/dev/scratch.clj
new file mode 100644
index 0000000..9459c81
--- /dev/null
+++ b/dev/scratch.clj
@@ -0,0 +1,27 @@
+(ns scratch
+  (:require [unheard.midi :as midi]
+            [unheard.midi.percussion :refer [kick snare]]
+            [unheard.clock :refer [clock]]
+            [unheard.theory :refer [note poly]]
+            [missionary.core :as m]))
+
+#_(print-all-midi-devices)
+
+(def midi-keyboard  "CoreMIDI4J - Minilab3 MIDI")
+
+
+(def run
+  (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