From ba7d565faab53ff7e396ec583f6d82f764caedac Mon Sep 17 00:00:00 2001
From: Alpha Chen <alpha@kejadlen.dev>
Date: Thu, 2 Nov 2023 20:01:08 -0700
Subject: [PATCH] mu

---
 .hammerspoon/init.fnl | 69 ++++++++++++++-----------------------------
 1 file changed, 22 insertions(+), 47 deletions(-)

diff --git a/.hammerspoon/init.fnl b/.hammerspoon/init.fnl
index 4cac08a..348e391 100644
--- a/.hammerspoon/init.fnl
+++ b/.hammerspoon/init.fnl
@@ -23,49 +23,25 @@
 ; (set logger.defaultLogLevel :info)
 
 (local {: mash : smash : modal-bind} (require :hotkey))
+(local {: chomp : paste : replace-selection : run} (require :utils))
 
 ;; debugging
 ; (hotkey.bind mash "d" #(dialog.blockAlert "message" "text" "one" "two"))
 
-;; defeat paste blocking
+;; ⌘⌥V - defeat paste blocking
 (hotkey.bind [:cmd :alt] :v #(eventtap.keyStrokes (pasteboard.getContents)))
 
-(fn run [...]
-  (accumulate [last nil _ cmd (ipairs [...])]
-    (execute cmd)))
-
-(fn with-selection [cb]
-  (let [app (application.frontmostApplication)
-        prev-pasteboard (pasteboard.getContents)
-        e (uielement.focusedElement)
-        text (if e (e:selectedText)
-                 (do
-                   (eventtap.keyStroke [:cmd] :c)
-                   (pasteboard.getContents)))
-        content (cb text prev-pasteboard)]
-    (pasteboard.setContents content)
-    (app:setFrontmost)
-    (eventtap.keyStroke [:cmd] :v)
-    (pasteboard.setContents prev-pasteboard)))
-
-(fn chomp [s]
-  (if (= (s:sub -1) "\n")
-      (s:sub 1 -2)
-      s))
-
-;; mash-e: edit selected text in neovide, inspired by quickcursor (hence
-;; the temporary filenme)
-(hotkey.bind mash :e
-             (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))))))
+;;  ⌘⌥⌃E - edit selected text in neovide, inspired by quickcursor (hence the temporary filenme)
+(let [editor "/opt/homebrew/bin/neovide --nofork"
+      cb (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)))]
+  (hotkey.bind mash :e #(replace-selection cb)))
 
 ;; mash-, modal hotkeys
 (modal-bind mash "," nil
@@ -123,13 +99,13 @@
 ;; By default, URLDispatcher focuses the application before opening the URL, but
 ;; this interacts poorly with Arc since then we can be in the wrong space when
 ;; the URL is opened in Little Arc.
-(let [handlers {:arc #(urlevent.openURLWithBundle $1
-                                                  :company.thebrowser.Browser)
+(let [open-in-arc #(urlevent.openURLWithBundle $1 :company.thebrowser.Browser)
+      handlers {:arc open-in-arc
                 :firefox-dev :org.mozilla.firefoxdeveloperedition
                 :firefox :org.mozilla.firefox
                 :safari :com.apple.Safari
                 :zoom :us.zoom.xos}
-      url_patterns [["^https://(.*%.?)zoom.us/j/%d+" handlers.zoom]
+      url-patterns [["^https://(.*%.?)zoom.us/j/%d+" handlers.zoom]
                     ["^https://(.*%.?)discnw.org/?" handlers.safari]
                     ["^https://(.*%.?)squareupmessaging.com/?" handlers.safari]
                     ["^https://(.*%.?)bulletin.com/?" handlers.safari]
@@ -137,15 +113,15 @@
                     ["^https://(.*%.?)goodluckbread.com/?" handlers.safari]
                     ["^https://community.glowforge.com/?" handlers.arc]
                     ["^https://accounts.google.com/?" handlers.arc]]
-      url_redir_decoders [[:sci-hub
+      url-redir-decoders [[:sci-hub
                            "^https://doi.org/(.*)"
                            "https://sci-hub.st/%1"]
                           [:twitter
                            "^https://twitter.com/(.*)"
                            "https://nitter.net/%1"]
                           [:x "^https://x.com/(.*)" "https://nitter.net/%1"]]]
-  (Install:andUse :URLDispatcher {:config {: url_patterns
-                                           : url_redir_decoders
+  (Install:andUse :URLDispatcher {:config {:url_patterns url-patterns
+                                           :url_redir_decoders url-redir-decoders
                                            :default_handler handlers.arc
                                            :set_system_handler true}
                                   :start true}))
@@ -156,8 +132,7 @@
 (when (fs.attributes :local.fnl)
   (require :local))
 
-(let [n (notify.new {:title :Hammerspoon
-                     :informativeText "Config loaded"
-                     :withdrawAfter 2})]
-  (n:send))
+(: (notify.new {:title :Hammerspoon
+                :informativeText "Config loaded"
+                :withdrawAfter 2}) :send)