import Html exposing (..)
import Html.Events exposing (..)
import Html.Attributes exposing (..)
import Html.App as App
import String


type alias Model =
  { haveTabindex : Bool
  , text : String
  }


init : Model
init =
  { haveTabindex = True
  , text = ""
  }


type Msg
  = Change
  | SetText


update : Msg -> Model -> Model
update msg model =
  case msg of
    SetText ->
      { model | text = "Hello There" }
    Change ->
      { model | haveTabindex = not model.haveTabindex
              , text = "" }


view : Model -> Html Msg
view model =
  div
    []
    [ div
        (if model.haveTabindex then
          [ onClick SetText, tabindex 0 ]
         else
          []
        )
        [ text "Tab Me" ]
    , button [ onClick Change ] [ text "setValue" ]
    , text model.text
    , br [] []
    , text ("Have event attched:" ++ (toString model.haveTabindex))
    ]


main : Program Never
main =
  App.beginnerProgram
    { model = init
    , update = update
    , view = view
    }