de-utm urls and use newfound fennel knowledge

.hammerspoon/init.fnl

@@ -1,22 +1,23 @@
-(local log (hs.logger.new "log" "info"))
+(local log (hs.logger.new :log :info))
-(set hs.logger.defaultLogLevel "info")
+(set hs.logger.defaultLogLevel :info)
 
 (local mash [:cmd :alt :ctrl])
 (local smash [:cmd :alt :ctrl :shift])
 
 (set hs.window.animationDuration 0.0)
-(hs.loadSpoon "MiroWindowsManager")
+(hs.loadSpoon :MiroWindowsManager)
-;; (set spoon.MiroWindowsManager.fullScreenSizes [1 (/ 4 3) 2]) ;; only fullscreen
+;; (set spoon.MiroWindowsManager.fullScreenSizes [1 (/ 4 3) 2]) ; only fullscreen
-(spoon.MiroWindowsManager:bindHotkeys {
+
-  :up         [ mash  "k" ]
+;; fnlfmt: skip
-  :left       [ mash  "h" ]
+(spoon.MiroWindowsManager:bindHotkeys {:up         [mash :k]
-  :down       [ mash  "j" ]
+                                       :left       [mash :h]
-  :right      [ mash  "l" ]
+                                       :down       [mash :j]
-  :fullscreen [ mash  "m" ]
+                                       :right      [mash :l]
-  ;; :center     [ mash  "c" ]
+                                       :fullscreen [mash :m]
-  ;; :move       [ smash "m" ]
+                                       ;; :center  [mash  "c"]
-  ;; :resize     [ mash  "d" ]
+                                       ;; :move    [smash "m"]
-})
+                                       ;; :resize  [mash  "d"]
+                                       })
 
 ;; debugging
 ;; (hs.hotkey.bind mash "d" (fn []))
@@ -24,15 +25,16 @@
 ;; (hs.hotkey.bind mash "d" (fn [] (hs.dialog.alert 100 100 (fn [] ) "message" "text" "one" "two")))
 
 ;; defeat paste blocking
-(hs.hotkey.bind [:cmd :alt] "v" (fn [] (hs.eventtap.keyStrokes (hs.pasteboard.getContents))))
+(hs.hotkey.bind [:cmd :alt] :v
+                #(hs.eventtap.keyStrokes (hs.pasteboard.getContents)))
 
-(hs.hotkey.bind mash "e" (fn []
+(hs.hotkey.bind mash :e
-  (let [app (hs.application.frontmostApplication)
+                #(let [app (hs.application.frontmostApplication)
                        prev-pasteboard (hs.pasteboard.getContents)
                        e (hs.uielement.focusedElement)
                        text (if e (e:selectedText)
                                 (do
-                   (hs.eventtap.keyStroke [:cmd] "c")
+                                  (hs.eventtap.keyStroke [:cmd] :c)
                                   (hs.pasteboard.getContents)))
                        date (hs.execute "date -Iseconds -u | tr -d '\n'")
                        file (.. "~/.quickcursor." date)]
@@ -41,53 +43,56 @@
                    (hs.execute (.. "/opt/homebrew/bin/mvim --nofork " file))
                    (hs.execute (.. "pbcopy < " file))
                    (app:setFrontmost)
-    (hs.eventtap.keyStroke [:cmd] "v")
+                   (hs.eventtap.keyStroke [:cmd] :v)
                    (hs.execute (.. "rm " file))
-    (hs.pasteboard.setContents prev-pasteboard))))
+                   (hs.pasteboard.setContents prev-pasteboard)))
 
 ;; https://stackoverflow.com/questions/39464668/how-to-get-bundle-id-of-mac-application
 ;;   osascript -e 'id of app "SomeApp"'
 ;;   mdls -name kMDItemCFBundleIdentifier -r SomeApp.app
+
+;; fnlfmt: skip
+(local matchers {".*[.]zoom.us/j/%d+" :us.zoom.xos
+                  ".*[.]discnw.org/"  :com.apple.Safari
+                  :squareup.com/      :com.apple.Safari})
+
 (fn bundleIDForURL [url]
- (let [matchers {
-        ".*[.]zoom.us/j/%d+" "us.zoom.xos"
-        ".*[.]discnw.org/"   "com.apple.Safari"
-        "squareup.com/"      "com.apple.Safari" }]
-    (do
   (var bundleID nil)
   (each [key value (pairs matchers) :until bundleID]
     (if (string.find url (.. "^https://" key))
         (set bundleID value)))
-      (or bundleID "org.mozilla.firefoxdeveloperedition"))))
+  (or bundleID :org.mozilla.firefoxdeveloperedition))
 
 (set hs.urlevent.httpCallback
-  (fn [scheme host params fullURL]
+     (fn [scheme host params url]
-    (let [command (.. "curl -Ls -o /dev/null -w %{url_effective} " fullURL)
+       (let [run #(: (io.popen (.. $1 " \"" $2 "\"")) :read :*a)
-          handle (io.popen command)
+             de-utm (partial run "~/.dotfiles/bin/de-utm")
-          url (handle:read "*a")
+             redirect (partial run "curl -Ls -o /dev/null -w %{url_effective}")
-          bundleID (bundleIDForURL url)]
+             final-url (->> url
-        (hs.urlevent.openURLWithBundle fullURL bundleID))))
+                            (de-utm)
+                            (redirect)
+                            (de-utm))
+             bundleID (bundleIDForURL final-url)]
+         (hs.urlevent.openURLWithBundle final-url bundleID))))
+
+;;; Spoons
 
-;; Spoons
+(: (hs.loadSpoon :ReloadConfiguration) :start)
 
-(hs.loadSpoon "ReloadConfiguration")
+(hs.loadSpoon :Quitter)
-(spoon.ReloadConfiguration:start)
 
-(hs.loadSpoon "Quitter")
+;; fnlfmt: skip
-(set spoon.Quitter.quitAppsAfter {
+(set spoon.Quitter.quitAppsAfter
-  :Discord      300
+     {:Discord      300
       :MailMate     600
       :Messages     300
       :Reeder       600
       :Slack        300
       :Telegram     300
-  :Twitterrific 300
+      :Twitterrific 300})
-})
+
 (spoon.Quitter:start)
 
-(let [n (hs.notify.new {
+(: (hs.notify.new {:title :Hammerspoon
-           :title "Hammerspoon"
                    :informativeText "Config loaded"
-           :withdrawAfter 2
+                   :withdrawAfter 2}) :send)
-         })]
-  (n:send))