diff options
| author | Jake Zerrer <him@jakezerrer.com> | 2025-11-14 09:14:59 -0500 |
|---|---|---|
| committer | Jake Zerrer <him@jakezerrer.com> | 2025-11-14 14:11:33 -0500 |
| commit | c9e4f877402fbadaed1e8e3a0e41125e2188b482 (patch) | |
| tree | 906e3d14cdf9c8f0da233edb7a597edc989e3976 /src/unheard/midi.clj | |
| parent | 42b1a01f1165ce04cd2addbc44da9e597fcf4ea7 (diff) | |
Create first draft of time-object
Diffstat (limited to 'src/unheard/midi.clj')
| -rw-r--r-- | src/unheard/midi.clj | 31 |
1 files changed, 15 insertions, 16 deletions
diff --git a/src/unheard/midi.clj b/src/unheard/midi.clj index c3759fe..93fd6c0 100644 --- a/src/unheard/midi.clj +++ b/src/unheard/midi.clj @@ -176,22 +176,21 @@ `flow-handler` should return a flow." [name flow-handler] - (m/ap - (try - (let [device - (first - (select-devices (get-all-midi-device-info) - name - true false))] - (if device - (m/? - (with-device device - (fn [d] - (with-tx d - (fn [f] - (m/reduce prn nil (flow-handler f))))))) - (m/amb))) - (catch missionary.Cancelled _ (m/amb))))) + (m/sp + (let [device + (first + (select-devices (get-all-midi-device-info) + name + true false))] + (if device + (m/? + (with-device device + (fn [d] + (with-tx d + (fn [f] + (m/reduce prn nil (flow-handler f))))))) + (m/amb))) + )) ;; TODO: Move elsewhere (defn echo |