Mouse hover example to paste into http://www.elm-lang.org/try

HoverableYogi.elm

import Graphics.Element exposing (..)
import Signal exposing (..)
import Graphics.Input exposing (hoverable)

main : Signal Element
main =
  Signal.map view hover.signal

hover : Signal.Mailbox String
hover = Signal.mailbox "–"

size = 100

yogi : Element
yogi =
  image size size "/imgs/yogi.jpg"
    |> hoverable (\ r -> if r then (Signal.message hover.address "yogi") else (Signal.message hover.address "–"))

view : String -> Element
view hover = 
  flow right
    [ container size size middle yogi
    , container size size middle (show hover)
    ]