diff options
| author | Jake Zerrer <him@jakezerrer.com> | 2025-11-05 16:45:22 -0500 |
|---|---|---|
| committer | Jake Zerrer <him@jakezerrer.com> | 2025-11-06 10:46:22 -0500 |
| commit | bee77914483da25831093e0475e4a71f1383253b (patch) | |
| tree | b0969c3a0fe2b2c9472534eb7a9c0f8912584648 /src/scratch.clj | |
| parent | 2a4fce4fef775f6661a625303de9b28b446f1877 (diff) | |
Keyboard in a decent state
Diffstat (limited to 'src/scratch.clj')
| -rw-r--r-- | src/scratch.clj | 11 |
1 files changed, 9 insertions, 2 deletions
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) |