[hammerspoon] follow redirects when handling URLs

pull/33/head
Alpha Chen 4 years ago
parent b39f946559
commit 5ba4056560

@ -1,3 +1,5 @@
(local log (hs.logger.new "log" "info"))
(let [mash [:cmd :alt :ctrl] (let [mash [:cmd :alt :ctrl]
smash [:cmd :alt :ctrl :shift] smash [:cmd :alt :ctrl :shift]
wm {:left hs.layout.left50 wm {:left hs.layout.left50
@ -17,7 +19,14 @@
;; 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" (fn [] (hs.eventtap.keyStrokes (hs.pasteboard.getContents)))))
(set hs.urlevent.httpCallback (fn [scheme host params fullURL] (set hs.logger.defaultLogLevel "info")
(if (string.find fullURL "^https?://.*[.]zoom.us/j/%d+")
(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 "us.zoom.xos")
(hs.urlevent.openURLWithBundle fullURL "org.mozilla.firefoxdeveloperedition")))) (hs.urlevent.openURLWithBundle fullURL "org.mozilla.firefoxdeveloperedition")))))

Loading…
Cancel
Save