diff --git a/tl/src/tl/views.cljs b/tl/src/tl/views.cljs index 51eb52b..0028b27 100644 --- a/tl/src/tl/views.cljs +++ b/tl/src/tl/views.cljs @@ -105,6 +105,16 @@ segs)) (max 0 (dec (count segs))))) +(defn- seg-at-src + "Index of the segment whose SOURCE range contains source frame `sf` (0 if none)." + [segs sf] + (or (first (keep-indexed (fn [i {[a b] :src}] + (when (or (and (<= a sf) (< sf b)) + (< sf a)) + i)) + segs)) + (max 0 (dec (count segs))))) + ;; The