diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/scratch.clj | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/src/scratch.clj b/src/scratch.clj deleted file mode 100644 index 7c305aa..0000000 --- a/src/scratch.clj +++ /dev/null @@ -1,24 +0,0 @@ -(ns scratch - (:require [unheard.midi :as midi] - [unheard.midi.percussion :refer [kick snare]] - [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) - |
