Copy current URL with ⇧⌘C in other browsers

.hammerspoon/init.fnl

@@ -12,6 +12,7 @@
         : loadSpoon
         : logger
         : notify
+        : osascript
         : pasteboard
         : screen
         : uielement
@@ -52,27 +53,47 @@
       (s:sub 1 -2)
       s))
 
+;; mash-e: edit selected text in neovide, inspired by quickcursor (hence
+;; the temporary filenme)
 (hotkey.bind mash :e
-             #(with-selection (fn [text]
-                                (let [home (os.getenv :HOME)
-                                      date (chomp (run "date -Iseconds -u"))
-                                      file (.. home :/.quickcursor. date)]
-                                  (pasteboard.setContents text)
-                                  (run (.. "pbpaste > " file)
-                                       (.. "/opt/homebrew/bin/neovide --nofork "
-                                           file)
-                                       (.. "pbcopy < " file) (.. "rm " file))
-                                  (pasteboard.getContents)))))
-
-(hotkey.bind mash :t #(execute "/opt/homebrew/bin/alacritty msg create-window"))
-
+             (let [editor "/opt/homebrew/bin/neovide --nofork"]
+               #(with-selection (fn [text]
+                                  (let [home (os.getenv :HOME)
+                                        date (chomp (run "date -Iseconds -u"))
+                                        file (.. home :/.quickcursor. date)]
+                                    (pasteboard.setContents text)
+                                    (run (.. "pbpaste > " file)
+                                         (.. editor " " file)
+                                         (.. "pbcopy < " file) (.. "rm " file))
+                                    (pasteboard.getContents))))))
+
+;; mash-, modal hotkeys
 (modal-bind mash "," nil
+            ;; mash-, mash-l: create a markdown link using the selected
+            ;; text as the title and pastboard contents as the link
             [[mash
               :l
               nil
               (fn []
                 (with-selection #(.. "[" $1 "]" "(" $2 ")")))]])
 
+;; cmd-shift-c: copy current url
+(let [safari-applescript "tell application \"Safari\" to get URL of front document"
+      copy-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))
+      {: activated : deactivated} application.watcher
+      update-hotkey (fn [name event app]
+                      (match [name event]
+                        ["Firefox Developer Edition" activated] (copy-firefox:enable)
+                        ["Firefox Developer Edition" deactivated] (copy-firefox:disable)
+                        [: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)))
+
 ;;; Elgato Key Light Air
 
 ;; Run `package.loaded["key-light-air"]["find-hostname"]()`