From 02dce7d08f92b1d255e3afca33034f481d1371a7 Mon Sep 17 00:00:00 2001 From: Jake Zerrer Date: Wed, 26 Nov 2025 15:10:20 -0500 Subject: Add git-bug to flake --- src/unheard/time_object.clj | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/unheard/time_object.clj') diff --git a/src/unheard/time_object.clj b/src/unheard/time_object.clj index 8d07361..5b71e0a 100644 --- a/src/unheard/time_object.clj +++ b/src/unheard/time_object.clj @@ -37,10 +37,11 @@ (def c (phrase (b 0) (b 3))) (c 0)) -(defn phrase->spans [phrase] +(defn phrase->spans + [phrase] (let [{:keys [time-objects]} (phrase 0)] (map (fn [{:keys [start duration value]}] [start (+ start duration) value]) - time-objects))) + time-objects))) (comment (phrase->spans c)) @@ -49,9 +50,8 @@ "Primary timeline bookkeeping mehanism." [spans] (let [c (i/create-ratio-interval-collection)] - (doall - (for [[start end value] spans] - (.add c (i/ratio-interval start end value)))) + (doall (for [[start end value] spans] + (.add c (i/ratio-interval start end value)))) c)) (comment @@ -65,8 +65,8 @@ (m/stream (m/ap (let [at (m/?< >at)] (into #{} (map #(.value %) - (i/find-overlaps timeline - (i/ratio-interval at at nil)))))))) + (i/find-overlaps timeline + (i/ratio-interval at at nil)))))))) (comment (def at (atom 0)) -- cgit v1.2.3