3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-31 21:28:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

⚡ Optimize mousetrap binding setup

Browse source
This commit is contained in:
Andrey Antukh 2025-07-29 12:48:56 +02:00
parent 02cff2740f
commit d84ee8bb65
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
frontend/src/app/main/data/shortcuts.cljs
View file

@ -142,23 +142,24 @@
[key cb]
(fn [event]
(log/debug :msg (str "Shortcut" key))
(when (aget event "preventDefault")
(when (unchecked-get event "preventDefault")
(.preventDefault event))
(cb event)))
(defn- bind!
[shortcuts]
(let [msbind (fn [command callback type]
(let [command (if (vector? command)
(into-array command)
command)]
(if type
(mousetrap/bind command callback type)
(mousetrap/bind command callback)))]
(mousetrap/bind command callback))))]
(->> shortcuts
(remove #(:disabled (second %)))
(run! (fn [[key {:keys [command fn type]}]]
(let [callback (wrap-cb key fn)]
(if (vector? command)
(run! #(msbind % callback type) command)
(msbind command callback type))))))))
(msbind command callback type)))))))
(defn- reset!
([]