mu

.hammerspoon/init.fnl

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