(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")))))