1 files changed, 36 insertions, 0 deletions
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)
+