selection shortcut

pull/1656/head
Weihua Lu 2021-04-09 18:26:18 +08:00 committed by Tienson Qin
parent 4f89f9b1d2
commit 2130be31a0
1 changed files with 18 additions and 0 deletions

View File

@ -2130,3 +2130,21 @@
(match picked
[:asset file] (set-asset-pending-file file))))]
(util/stop e))))
(defn- cut-blocks-and-clear-selections!
[copy?]
(cut-selection-blocks copy?)
(clear-selection! nil))
(defn shortcut-copy-selection
[e]
(copy-selection-blocks)
(clear-selection! nil))
(defn shortcut-cut-selection
[e]
(cut-blocks-and-clear-selections! true))
(defn shortcut-delete-selection
[e]
(cut-blocks-and-clear-selections! false))