14 lines
299 B
Elm
14 lines
299 B
Elm
|
|
||
|
|
module ChangeTitle where
|
||
|
|
|
||
|
|
import Foreign.JavaScript
|
||
|
|
import Signal.Input
|
||
|
|
|
||
|
|
|
||
|
|
foreign export jsevent "changeTitle"
|
||
|
|
title :: Signal JSString
|
||
|
|
|
||
|
|
(field, title) = let (f,t) = textField "" in
|
||
|
|
(f, lift castStringToJSString t)
|
||
|
|
|
||
|
|
main = plainText "Change this page's title to: " `beside` field
|