import StartApp.Simple exposing (start)
import Html exposing (Html, div, text)
import Html.Attributes exposing (contenteditable)
import Html.Events exposing (on, targetValue)
-- Model
type alias Model = String
init : Model
init = "Foo"
-- Update
type Action
= Update String
update : Action -> Model -> Model
update action model =
case action of
Update content -> content
-- View
view : Signal.Address Action -> Model -> Html
view address model =
div []
[
div [ contenteditable True
, on "input" targetValue ((Signal.message address) << Update)
] [ text model ]
, div [] [ text model ]
]
main =
start
{ model = init
, update = update
, view = view
}
