(ns scratch
  (:require [unheard.midi :as midi]
            [unheard.midi.percussion :refer [kick snare hat]]
            [unheard.instrument.minilab3 :as minilab3]
            [unheard.time-object :refer [phrase timeline]]
            [unheard.theory :refer [note read]]
            [missionary.core :as m]))

#_(print-all-midi-devices)

(defn triad
  [>c >tonic]
  (phrase
    ;; This is a major cord,
    ;; held 32 32nd notes.
    ;; The tonic can vary.
   (note >c 0 32 >tonic)
   (note >c 0 32 (m/latest #(+ % 4) >tonic))
   (note >c 0 32 (m/latest #(+ % 7) >tonic))))

(defn drums
  [>clock]
  (phrase (note >clock 1 1 (m/ap kick))
          (note >clock 9 1 (m/ap kick))
          (note >clock 17 1 (m/ap kick))
          (note >clock 25 1 (m/ap kick))
          (note >clock 1 1 (m/ap hat))
          (note >clock 5 1 (m/ap hat))
          (note >clock 9 1 (m/ap hat))
          (note >clock 13 1 (m/ap hat))
          (note >clock 17 1 (m/ap hat))
          (note >clock 21 1 (m/ap hat))
          (note >clock 25 1 (m/ap hat))
          (note >clock 29 1 (m/ap hat))
          (note >clock 5 1 (m/ap snare))
          (note >clock 13 1 (m/ap snare))
          (note >clock 21 1 (m/ap snare))
          (note >clock 29 1 (m/ap snare))))

(defn song
  [>clock >tonic]
  (phrase ((triad >clock >tonic) 0)
          ((triad >clock (m/latest #(+ % 12) >tonic)) 0)
          ((drums >clock) 0)))

;; TODO: Move into /dev
;; Add logging
(defn debug-flow [f] ((m/reduce prn nil (m/ap (m/?< f))) prn prn))

(def run
  (midi/<bus minilab3/device-name
             (fn [v]
               (m/ap
                (let [controls (midi/controller v minilab3/config)
                      >clock (get-in controls [:knob 1])
                      >tonic (get-in controls [:knob 2])
                      s (song >clock >tonic)
                      t (timeline s)]
                  (m/?<
                   ;; BUG:
                   ;; Remove dedupe as part of #2d7f861
                   (m/eduction (dedupe)
                               (m/latest vector
                                         >clock
                                         (read >clock t)))))))))

#_(def cancel (run {} {}))

#_(cancel)

(comment
  ;; Manual test of read, without reliance on whole midi setup
  (def c (atom 0))
  (def >c (m/signal (m/watch c)))
  (def t (atom 0))
  (def >t (m/signal (m/watch t)))
  (def s (song >c >t))
  (def cancel ((m/reduce prn #{} (read >c (timeline s))) prn prn))
  (cancel)

  (reset! c -1)
  (reset! c 1)
  (reset! c 4)
  (reset! t 4)
  (swap! t inc))