From 839f4c51f1d394dcd591a5f2c473a9406c7e115d Mon Sep 17 00:00:00 2001 From: Your Name Date: Thu, 17 Sep 2026 15:35:27 -0400 Subject: [PATCH] feat: shift-drop links an annotation, plain drop moves Matches Blender's M / shift-M (move to collection / link to collection). Alt was the modifier before; nothing else referenced it. Co-Authored-By: Claude Opus 5 --- tl/src/tl/views.cljs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tl/src/tl/views.cljs b/tl/src/tl/views.cljs index 2c81e74..4929b15 100644 --- a/tl/src/tl/views.cljs +++ b/tl/src/tl/views.cljs @@ -1205,13 +1205,13 @@ (when (has-type? e "text/ann") (.stopPropagation e) (.preventDefault e) (reset! over? true))) :on-drag-leave (fn [_] (reset! over? false)) - ;; plain drop MOVES the edge you grabbed onto this card; ⌜⌥/Alt⌟-drop ADDS - ;; (links, keeping the source edge). + ;; plain drop MOVES the edge you grabbed onto this card; SHIFT-drop LINKS + ;; (adds this edge, keeping the source one) — Blender's M / ⇧M. :on-drop (fn [e] (let [src (.. e -dataTransfer (getData "text/ann"))] (when (seq src) (.stopPropagation e) (.preventDefault e) (reset! over? false) - (rf/dispatch [::events/reparent (keyword src) (:id a) (.-altKey e)]))))})) + (rf/dispatch [::events/reparent (keyword src) (:id a) (.-shiftKey e)]))))})) (defn- annotation-card [a scene ctx segs nmap authed? open by-parent revealed source-parent seen] (r/with-let [over? (r/atom false) hov? (r/atom false)]