diff options
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) |