Global keypress events

globalKeypress.hs

-- source https://gist.github.com/ali-abrar/6cdf28d6fb9c3dbe25fb
import Control.Monad.IO.Class
import GHCJS.DOM (webViewGetDomDocument)
import GHCJS.DOM.Document (getBody)
import GHCJS.DOM.Element (keyDown)
import GHCJS.DOM.EventM (on, preventDefault)

import Reflex.Dom

main :: IO ()
main = mainWidget $ do
  wv <- askWebView
  Just doc <- liftIO $ webViewGetDomDocument wv
  Just body <- liftIO $ getBody doc
  kp <- wrapDomEvent body (`on` keyDown) $ do
    i <- getKeyEvent
    preventDefault
    return i
  display =<< holdDyn Nothing (fmap Just kp)