Main.elm

module Main exposing (..)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onInput, onClick)
import Random
import Random.List exposing (choose)
import Tuple exposing (first, second)


type alias Model =
    { names : List String, current : String, picked : String }


type Msg
    = InputUpdate String
    | Submit
    | SendPick
    | Pick ( Maybe String, List String )


init : ( Model, Cmd Msg )
init =
    ( { names = [], current = "", picked = "" }, Cmd.none )


view : Model -> Html Msg
view model =
    div []
        [ ul [] (List.map viewList model.names)
        , input [ onInput InputUpdate, placeholder "Enter a name" ] []
        , button [ onClick Submit ] [ text "Submit" ]
        , viewPick model.names
        , div [] [ h1 [] [ text model.picked ] ]
        ]


viewPick : List String -> Html Msg
viewPick list =
    if (List.length list) > 1 then
        button [ onClick SendPick ] [ text "Pick" ]
    else
        span [] []


viewList : String -> Html Msg
viewList list =
    li []
        [ span [] [ text list ]
        ]


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        InputUpdate userInput ->
            ( { model | current = userInput }, Cmd.none )

        Submit ->
            ( { model | names = (model.names ++ [ model.current ]) }, Cmd.none )

        SendPick ->
            ( model, Random.generate Pick (choose model.names) )

        Pick randElem ->
            let
                e =
                    first randElem
            in
                case e of
                    Just e ->
                        ( { model | picked = e }, Cmd.none )

                    Nothing ->
                        ( model, Cmd.none )


main : Program Never Model Msg
main =
    Html.program
        { init = init
        , view = view
        , update = update
        , subscriptions = subscriptions
        }


subscriptions : Model -> Sub Msg
subscriptions model =
    Sub.none