You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

42 lines
1.4 KiB

(local log (hs.logger.new "log" "info"))
(let [mash [:cmd :alt :ctrl]
smash [:cmd :alt :ctrl :shift]
wm {:left hs.layout.left50
:right hs.layout.right50
:ne [ 0.5 0 0.5 0.5 ]
:nw [ 0 0 0.5 0.5 ]
:se [ 0.5 0.5 0.5 0.5 ]
:sw [ 0 0.5 0.5 0.5 ]
:max hs.layout.maximized}
move (fn [key] (let [win (hs.window.frontmostWindow)
geo (. wm key)]
(win:move geo nil true)))]
(hs.hotkey.bind mash "h" (fn [] (move :left)))
(hs.hotkey.bind mash "l" (fn [] (move :right)))
(hs.hotkey.bind mash "m" (fn [] (move :max)))
;; defeat paste blocking
(hs.hotkey.bind [:cmd :alt] "v" (fn [] (hs.eventtap.keyStrokes (hs.pasteboard.getContents)))))
(set hs.logger.defaultLogLevel "info")
(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")]
(if (string.find url "^https?://.*[.]zoom.us/j/%d+")
(hs.urlevent.openURLWithBundle fullURL "us.zoom.xos")
(hs.urlevent.openURLWithBundle fullURL "org.mozilla.firefoxdeveloperedition")))))
(hs.loadSpoon "ReloadConfiguration")
(spoon.ReloadConfiguration:start)
(let [n (hs.notify.new {
:title "Hammerspoon"
:informativeText "Config loaded"
:withdrawAfter 2
})]
(n:send))