gistfile1.elm

import Html
import Html (..)
import Window

main = lift scene Window.dimensions

scene (w,h) = Html.toElement w h content

content = node "div" [] []
  [ text "Hellollo World"
  , myButton (px 128) (px 64) "Button!"
  ]                   

myButton : String -> String -> String -> Html
myButton w h caption = 
  node "div" []     
    [ "display" := "inline-block"
    , "width" := w
    , "textAlign" := "center" 
    , "backgroundColor" := "#333"
    , "color" := "#eee"
    , "height" := h 
    , "lineHeight" := h
    ]                
    [ text caption ]