|
|
@ -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
|
|
|
|
|
|
|
|
|
|
|
|