diff options
| author | Jake Zerrer <him@jakezerrer.com> | 2025-11-06 11:14:46 -0500 |
|---|---|---|
| committer | Jake Zerrer <him@jakezerrer.com> | 2025-11-06 11:14:54 -0500 |
| commit | c8813e2b4da15192310fbb89f15cc02c54f66d2b (patch) | |
| tree | 0d52659bcd0e4ac23c967977e58003aff825f2cb /src | |
| parent | 2d956a3a779672ab3acfc1bc542ebba855522d06 (diff) | |
Move scratch.clj to dev
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) - |