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

---
 .hammerspoon/utils.fnl | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 .hammerspoon/utils.fnl

diff --git a/.hammerspoon/utils.fnl b/.hammerspoon/utils.fnl
new file mode 100644
index 0000000..ba121f5
--- /dev/null
+++ b/.hammerspoon/utils.fnl
@@ -0,0 +1,38 @@
+(local {: application : eventtap : execute : logger : pasteboard : uielement}
+       hs)
+
+(local log (logger.new :utils :info))
+
+(fn chomp [s]
+  "Returns the input without a trailing newline"
+  (if (= (s:sub -1) "\n")
+      (s:sub 1 -2)
+      s))
+
+;; paste content, preserving the previous pasteboard
+(fn paste [content]
+  (let [prev-pasteboard (pasteboard.getContents)]
+    (pasteboard.setContents content)
+    (eventtap.keyStroke [:cmd] :v)
+    (pasteboard.setContents prev-pasteboard)))
+
+(fn replace-selection [cb]
+  "Replaces the current selection with the return value of the callback"
+  (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)]
+    (paste content)
+    (pasteboard.setContents prev-pasteboard)))
+
+(fn run [...]
+  "Executes a list of commands"
+  (accumulate [last nil _ cmd (ipairs [...])]
+    (execute cmd)))
+
+{: chomp : paste : replace-selection : run}
+