(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)