UHC imports

gistfile1.hs

foreign import js "%1.keyCode"
  keyCode :: JSKeyEvent -> IO Int


foreign import js "window.addEventListener('keydown',%1,true)"
  jsSetOnKeyDown :: FunPtr (JSKeyEvent -> IO ()) -> IO ()
setOnKeyDown (Int -> IO ()) -> IO ()
setOnKeyDown fp = dp
  cb <- mkKeyEventCb fp'
  jsSetOnKeyDown cb
  where
    fp' event = keyCode event >>= fp

foreign import js "window.addEventListener('keyup',%1,true)"
  jsSetOnKeyUp :: FunPtr (JSKeyEvent -> IO ()) -> IO ()

setOnKeyDown (Int -> IO ()) -> IO ()
setOnKeyDown fp = dp
  cb <- mkKeyEventCb fp'
  jsSetOnKeyUp cb
  where
    fp' event = keyCode event >>= fp

foreign import js "window.addEventListener('load', %1, 'false')"
  jsSetOnLoad :: FunPtr (IO ()) -> IO ()
setOnLoad :: IO () -> IO ()
setOnLoad fp = mkCb fp >>= setOnLoad_

foreign import js "setInterval(%1,%2)"
  jsSetInterval :: FunPtr (IO ()) -> Int -> IO ()
setInterval :: IO () -> Int -> IO ()
setInterval fp time = mkCb fp >>= (jsSetInterval time)