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.
24 lines
990 B
24 lines
990 B
(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.focusedWindow)
|
|
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.urlevent.httpCallback (fn [scheme host params fullURL]
|
|
(if (string.find fullURL "^https?://.*[.]zoom.us/j/%d+")
|
|
(hs.urlevent.openURLWithBundle fullURL "us.zoom.xos")
|
|
(hs.urlevent.openURLWithBundle fullURL "org.mozilla.firefoxdeveloperedition"))))
|