From 290c5755b9b591ad39c2077c237ddeb02ee8b802 Mon Sep 17 00:00:00 2001 From: Jake Zerrer Date: Thu, 6 Nov 2025 11:17:12 -0500 Subject: Clean up some unused functions --- src/unheard/midi.clj | 33 --------------------------------- 1 file changed, 33 deletions(-) diff --git a/src/unheard/midi.clj b/src/unheard/midi.clj index 1e135a2..e3e65d2 100644 --- a/src/unheard/midi.clj +++ b/src/unheard/midi.clj @@ -191,39 +191,6 @@ ;; CoreMidiSource is TX Device ;; CoreMidiDestination is RX Device -#_(defn >midi-messages->ch-stream - [>midi-messages] - (m/signal - (m/ap - (let [device (new-device)] - (m/amb= device - (do - (let [v (m/?< >midi-messages)] - (cond (instance? ShortMessage v) - (let [channel (.getChannel ^ShortMessage v) - command (.getCommand ^ShortMessage v) - data-1 (.getData1 ^ShortMessage v)] - (cond (= command ShortMessage/NOTE_ON) - (swap! (first (get device channel)) conj data-1) - (= command ShortMessage/NOTE_OFF) - (swap! (first (get device channel)) disj data-1))) - :else :other)) - (m/amb))))))) -(defn >midi-messages->ch-stream - [>midi-messages] - (m/ap - (let [device (atom #{}) - v (m/?< >midi-messages)] - (cond (instance? ShortMessage v) - (let [channel (.getChannel ^ShortMessage v) - command (.getCommand ^ShortMessage v) - data-1 (.getData1 ^ShortMessage v)] - (cond (= command ShortMessage/NOTE_ON) - (swap! device conj data-1) - (= command ShortMessage/NOTE_OFF) - (swap! device disj data-1))) - :else (m/amb))))) - (defn |short-messages "Filter down to midi short messages" [>messages] -- cgit v1.2.3