module View exposing (Msg, main, view)

import Button
import Html exposing (Html)
import Html.Styled
import TextInput


type Msg
    = ChangeFromText String
    | ChangeToText String
    | Search


main : Html Msg
main =
    Html.Styled.toUnstyled view


view : Html.Styled.Html Msg
view =
    Html.Styled.div
        []
        [ TextInput.init "From" "Oslo S"
            |> TextInput.withInputType TextInput.TextInput
            |> TextInput.onChange ChangeFromText
            |> TextInput.toHtml
        , TextInput.init "To" "Oslo Airport"
            |> TextInput.withInputType TextInput.TextInput
            |> TextInput.onChange ChangeToText
            |> TextInput.toHtml
        , Button.init "Search"
            |> Button.onClick Search
            |> Button.toHtml
        ]