de-utm urls and use newfound fennel knowledge

pull/2/head
Alpha Chen 2 years ago
parent a97404c797
commit 67d1e4e733

@ -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 mash [:cmd :alt :ctrl])
(local smash [:cmd :alt :ctrl :shift]) (local smash [:cmd :alt :ctrl :shift])
(set hs.window.animationDuration 0.0) (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 ;; debugging
;; (hs.hotkey.bind mash "d" (fn [])) ;; (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"))) ;; (hs.hotkey.bind mash "d" (fn [] (hs.dialog.alert 100 100 (fn [] ) "message" "text" "one" "two")))
;; defeat paste blocking ;; 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) prev-pasteboard (hs.pasteboard.getContents)
e (hs.uielement.focusedElement) e (hs.uielement.focusedElement)
text (if e (e:selectedText) text (if e (e:selectedText)
(do (do
(hs.eventtap.keyStroke [:cmd] "c") (hs.eventtap.keyStroke [:cmd] :c)
(hs.pasteboard.getContents))) (hs.pasteboard.getContents)))
date (hs.execute "date -Iseconds -u | tr -d '\n'") date (hs.execute "date -Iseconds -u | tr -d '\n'")
file (.. "~/.quickcursor." date)] file (.. "~/.quickcursor." date)]
@ -41,53 +43,56 @@
(hs.execute (.. "/opt/homebrew/bin/mvim --nofork " file)) (hs.execute (.. "/opt/homebrew/bin/mvim --nofork " file))
(hs.execute (.. "pbcopy < " file)) (hs.execute (.. "pbcopy < " file))
(app:setFrontmost) (app:setFrontmost)
(hs.eventtap.keyStroke [:cmd] "v") (hs.eventtap.keyStroke [:cmd] :v)
(hs.execute (.. "rm " file)) (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 ;; https://stackoverflow.com/questions/39464668/how-to-get-bundle-id-of-mac-application
;; osascript -e 'id of app "SomeApp"' ;; osascript -e 'id of app "SomeApp"'
;; mdls -name kMDItemCFBundleIdentifier -r SomeApp.app ;; 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] (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) (var bundleID nil)
(each [key value (pairs matchers) :until bundleID] (each [key value (pairs matchers) :until bundleID]
(if (string.find url (.. "^https://" key)) (if (string.find url (.. "^https://" key))
(set bundleID value))) (set bundleID value)))
(or bundleID "org.mozilla.firefoxdeveloperedition")))) (or bundleID :org.mozilla.firefoxdeveloperedition))
(set hs.urlevent.httpCallback (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 :MailMate 600
:Messages 300 :Messages 300
:Reeder 600 :Reeder 600
:Slack 300 :Slack 300
:Telegram 300 :Telegram 300
:Twitterrific 300 :Twitterrific 300})
})
(spoon.Quitter:start) (spoon.Quitter:start)
(let [n (hs.notify.new { (: (hs.notify.new {:title :Hammerspoon
:title "Hammerspoon"
:informativeText "Config loaded" :informativeText "Config loaded"
:withdrawAfter 2 :withdrawAfter 2}) :send)
})]
(n:send))

Binary file not shown.
Loading…
Cancel
Save