noe/tl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: show hidden annotations as collapsed cards in annotation pane

Browse source 
Hidden annotations appear in the annotation pane as small, disabled-looking
cards with the dither pattern overlay (var(--desktop)) at 40% opacity.

On hover, an "Unhide" button appears to remove the hidden flag.
Full content, controls, and metadata are hidden.

Hidden annotations still work in marks/autocomplete and maintain their marks.
They appear as normal bars in the timeline.

Add 'Hide from timeline' checkbox in the annotation edit form.

Co-Authored-By: Claude Haiku 4.5 <noreply@anthropic.com>
This commit is contained in:
Your Name 2026-06-30 16:38:38 -04:00
parent 1ea675567c
commit 4ffd831551
2 changed files with 48 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tl/src/tl/subs.cljs
View file

@ -83,7 +83,7 @@
(->> (:groups scene) (->> (:groups scene)
(keep (fn [[gid g]] (keep (fn [[gid g]]
(when (and (= :annotation (:type g)) (= ctx (:parent g))) (when (and (= :annotation (:type g)) (= ctx (:parent g)))
(let [src-segs (when-not (get-in g [:meta :hidden]) (scene/resolve scene gid)) (let [src-segs (scene/resolve scene gid)
bars (scene/merge-bars bars (scene/merge-bars
(mapcat (fn [{[a b] :src}] (scene/pieces segs a b)) src-segs)) (mapcat (fn [{[a b] :src}] (scene/pieces segs a b)) src-segs))
reason (scene/broken-reason scene gid) reason (scene/broken-reason scene gid)

28
tl/src/tl/views.cljs
View file

@ -796,7 +796,33 @@
(if (seq anns) (if (seq anns)
(doall (doall
(for [a anns] (for [a anns]
(let [grp (get-in scene [:groups (:id a)])]
^{:key (:id a)} ^{:key (:id a)}
(if (:hidden a)
;; Hidden annotation: small collapsed card
(r/with-let [hov? (r/atom false)]
[:div.ann {:id (str "ann-" (name (:id a)))
:class (when (contains? active-set (:id a)) "active")
:style (merge {"--ann-color" (:color a)}
{:opacity 0.4
:background "var(--desktop)"
:background-size "2px 2px"
:min-height "28px"
:display "flex"
:align-items "center"
:justify-content "space-between"
:padding "2px 8px"})
:on-mouse-enter #(reset! hov? true)
:on-mouse-leave #(reset! hov? false)}
[:span.ann-title {:style {:font-size 12}}
[:span.ann-swatch {:style {:background (:color a)}}]
(:name a)]
(when @hov?
[:button.edit-btn {:title "Unhide"
:on-click #(rf/dispatch [::events/put-group (:id a)
(update grp :meta dissoc :hidden)])}
"Unhide"])])
;; Normal annotation: full card
[:div.ann {:id (str "ann-" (name (:id a))) [:div.ann {:id (str "ann-" (name (:id a)))
:class (when (contains? active-set (:id a)) "active") :class (when (contains? active-set (:id a)) "active")
:style {"--ann-color" (:color a)}} :style {"--ann-color" (:color a)}}
@ -816,7 +842,7 @@
[:button.del-btn {:title "Delete" [:button.del-btn {:title "Delete"
:on-click #(when (js/confirm (str "Delete \"" (:name a) "\"?")) :on-click #(when (js/confirm (str "Delete \"" (:name a) "\"?"))
(rf/dispatch [::events/delete-annotation (:id a)]))} "✕"])]] (rf/dispatch [::events/delete-annotation (:id a)]))} "✕"])]]
(when (not-empty (:content a)) [content-display scene ctx (:content a)])])) (when (not-empty (:content a)) [content-display scene ctx (:content a)])]))))
[:div.ann-empty "No annotations here."])])))) [:div.ann-empty "No annotations here."])]))))
(defn- to-frame [v len] (defn- to-frame [v len]