remove ⇧⌘C copy url keybinding

main
Alpha Chen 10 months ago
parent b5c2940cf3
commit 530c110db7
Signed by: alpha
SSH Key Fingerprint: SHA256:3fOT8fiYQG/aK9ntivV3Bqtg8AYQ7q4nV6ZgihOA20g

@ -54,20 +54,20 @@
(with-selection #(.. "[" $1 "]" "(" $2 ")")))]]) (with-selection #(.. "[" $1 "]" "(" $2 ")")))]])
;; cmd-shift-c: copy current url ;; cmd-shift-c: copy current url
(let [{: activated : deactivated} application.watcher ; (let [{: activated : deactivated} application.watcher
firefox (hotkey.new [:cmd :shift] :c #(eventtap.keyStrokes :yy)) ; firefox (hotkey.new [:cmd :shift] :c #(eventtap.keyStrokes :yy))
safari-applescript "tell application \"Safari\" to get URL of front document" ; safari-applescript "tell application \"Safari\" to get URL of front document"
safari (hotkey.new [:cmd :shift] :c ; safari (hotkey.new [:cmd :shift] :c
#(let [(_ obj _) (osascript.applescript safari-applescript)] ; #(let [(_ obj _) (osascript.applescript safari-applescript)]
(pasteboard.setContents obj))) ; (pasteboard.setContents obj)))
per-app {"Firefox Developer Edition" firefox :Safari safari} ; per-app {"Firefox Developer Edition" firefox :Safari safari}
update-app (fn [name event _app] ; update-app (fn [name event _app]
(match [(. per-app name) event] ; (match [(. per-app name) event]
[app-config activated] (app-config:enable) ; [app-config activated] (app-config:enable)
[app-config deactivated] (app-config:disable))) ; [app-config deactivated] (app-config:disable)))
watcher (application.watcher.new update-app)] ; watcher (application.watcher.new update-app)]
;; hold onto watcher as a global so it doesn't get GC'ed ; ;; hold onto watcher as a global so it doesn't get GC'ed
(set _G.per-app-watcher (watcher:start))) ; (set _G.per-app-watcher (watcher:start)))
;;; Elgato Key Light Air ;;; Elgato Key Light Air

Loading…
Cancel
Save