gistfile1.txt

import GHCJS.DOM
import GHCJS.DOM.Document
import GHCJS.DOM.Element
import GHCJS.DOM.Event
import GHCJS.DOM.EventM
import GHCJS.DOM.MouseEvent
import GHCJS.DOM.Types
import Control.Monad
import Control.Monad.IO.Class

main = runWebGUI $ \webView -> do
  Just doc <- liftM (fmap castToHTMLDocument) $ webViewGetDomDocument webView
  Just body <- documentGetBody doc
  elementSetAttribute body "style" "position:absolute;width:100%;height:100%"
  elementOnmousedown body $ do
    e <- event
    x <- liftIO $ mouseEventGetX e
    y <- liftIO $ mouseEventGetY e
    liftIO $ print (x, y)
  return ()