Global keypress events

globalKeypress.hs

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)

Superseded by https://gist.github.com/ali-abrar/f4c1e43d554f3a1fa28d9f3097120807