summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/scratch.clj24
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)
-