src/scratch.clj


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)