summaryrefslogtreecommitdiff
path: root/src/scratch.clj
blob: 80baa83bd316acf9feeb6f131a16183be943d425 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(ns scratch
  (:require [midi :refer [print-all-midi-devices >bus <bus] :as midi]
            [missionary.core :as m]))

#_(print-all-midi-devices)

(def midi-keyboard  "CoreMIDI4J - Minilab3 MIDI")

(def run
  (midi/<bus midi-keyboard midi/keyboard))

(def cancel
  (run prn prn))

(cancel)