(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
  (<bus
   midi-keyboard
   #_
   (fn [f] (m/ap
             (let [[i] ]
               (m/group-by #(.getCh %) ))
             (println (m/?< f))))
   (fn [f]
     (m/ap
       (let [[ch vs]
             (m/?> 128 (midi/|channels (midi/|short-messages f)))]
         (println "CH" ch (m/?< vs)))
       #_
       (let [[ch >ch-messages]
             (m/?> 128 (midi/|channels (midi/|short-messages f)))
             #_#_
             [note >note-messages]
             (m/?> 128 (midi/|notes >ch-messages))]
         (println "CH" ch)
         #_#_
         (println "HELLO")
         [ch note (m/?< >note-messages)])))))

(def cancel
  (run prn prn))
(cancel)