sayhello.elm

module Main exposing (..)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)


type alias Model =
    { name : String
    , inputdata : String
    }


initData : Model
initData =
    { name = ""
    , inputdata = ""
    }


type Msg
    = SayMyName
    | Clear
    | Change String


update : Msg -> Model -> Model
update msg model =
    case msg of
        SayMyName ->
            { model | name = model.inputdata, inputdata = "" }

        Change val ->
            { model | inputdata = val }

        Clear ->
            initData


view : Model -> Html Msg
view model =
    div []
        [ h3 []
            [ text ("Your name is: " ++ model.name) ]
        , input
            [ onInput Change
            , value model.inputdata
            ]
            []
        , button
            [ onClick SayMyName ]
            [ text "Say My Name" ]
        ]


main =
    beginnerProgram { model = initData, view = view, update = update }