ghcjs-dom-hello-2.0.0.0: src/Main.hs

module Main (
    main
) where

import Control.Applicative ((<$>))
import GHCJS.DOM
       (enableInspector, webViewGetDomDocument, runWebGUI)
import GHCJS.DOM.Document (getBody, createElement, click)
import GHCJS.DOM.HTMLElement (setInnerText)
import GHCJS.DOM.Element (setInnerHTML)
import GHCJS.DOM.HTMLParagraphElement
       (castToHTMLParagraphElement)
import GHCJS.DOM.Node (appendChild)
import GHCJS.DOM.EventM (on, mouseClientXY)

main = runWebGUI $ \ webView -> do
    enableInspector webView
    Just doc <- webViewGetDomDocument webView
    Just body <- getBody doc
    setInnerHTML body (Just "<h1>Hello World</h1>")
    on doc click $ do
        (x, y) <- mouseClientXY
        Just newParagraph <- fmap castToHTMLParagraphElement <$> createElement doc (Just "p")
        setInnerText newParagraph $ Just $ "Click " ++ show (x, y)
        appendChild body (Just newParagraph)
        return ()
    return ()