de-utm urls and use newfound fennel knowledge

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

@ -1,18 +1,19 @@
(local log (hs.logger.new "log" "info"))
(set hs.logger.defaultLogLevel "info")
(local log (hs.logger.new :log :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")
;; (set spoon.MiroWindowsManager.fullScreenSizes [1 (/ 4 3) 2]) ;; only fullscreen
(spoon.MiroWindowsManager:bindHotkeys {
:up [ mash "k" ]
:left [ mash "h" ]
:down [ mash "j" ]
:right [ mash "l" ]
:fullscreen [ mash "m" ]
(hs.loadSpoon :MiroWindowsManager)
;; (set spoon.MiroWindowsManager.fullScreenSizes [1 (/ 4 3) 2]) ; only fullscreen
;; fnlfmt: skip
(spoon.MiroWindowsManager:bindHotkeys {:up [mash :k]
:left [mash :h]
:down [mash :j]
:right [mash :l]
:fullscreen [mash :m]
;; :center [mash "c"]
;; :move [smash "m"]
;; :resize [mash "d"]
@ -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 []
(let [app (hs.application.frontmostApplication)
(hs.hotkey.bind mash :e
#(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]
(let [command (.. "curl -Ls -o /dev/null -w %{url_effective} " fullURL)
handle (io.popen command)
url (handle:read "*a")
bundleID (bundleIDForURL url)]
(hs.urlevent.openURLWithBundle fullURL bundleID))))
(fn [scheme host params url]
(let [run #(: (io.popen (.. $1 " \"" $2 "\"")) :read :*a)
de-utm (partial run "~/.dotfiles/bin/de-utm")
redirect (partial run "curl -Ls -o /dev/null -w %{url_effective}")
final-url (->> url
(de-utm)
(redirect)
(de-utm))
bundleID (bundleIDForURL final-url)]
(hs.urlevent.openURLWithBundle final-url bundleID))))
;; Spoons
;;; Spoons
(hs.loadSpoon "ReloadConfiguration")
(spoon.ReloadConfiguration:start)
(: (hs.loadSpoon :ReloadConfiguration) :start)
(hs.loadSpoon "Quitter")
(set spoon.Quitter.quitAppsAfter {
:Discord 300
(hs.loadSpoon :Quitter)
;; fnlfmt: skip
(set spoon.Quitter.quitAppsAfter
{:Discord 300
:MailMate 600
:Messages 300
:Reeder 600
:Slack 300
:Telegram 300
:Twitterrific 300
})
:Twitterrific 300})
(spoon.Quitter:start)
(let [n (hs.notify.new {
:title "Hammerspoon"
(: (hs.notify.new {:title :Hammerspoon
:informativeText "Config loaded"
:withdrawAfter 2
})]
(n:send))
:withdrawAfter 2}) :send)

Binary file not shown.
Loading…
Cancel
Save