JsonpExample.elm

import Http
import Graphics.Input as I
import Graphics.Input.Field as F

inp : I.Input F.Content
inp = I.input F.noContent

urlify : String -> String
urlify t = "http://en.wikipedia.org/w/api.php?action=query&format=json&callback=?&titles=" ++ t ++ "&prop=revisions&rvprop=content"

page : Signal String -> Signal Element
page s = asText <~ (Http.sendJsonp <| lift urlify s)

main = lift2 above
        (F.field F.defaultStyle inp.handle id "Page_title" <~ inp.signal)
        (page (lift .string inp.signal))