Main.elm

module Main exposing (..)

-- Input a user name and password. Make sure the password matches.
--
-- Read how it works:
--   https://guide.elm-lang.org/architecture/forms.html
--

import Browser
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onInput, onClick)



-- MAIN


main =
  Browser.sandbox { init = init, update = update, view = view }



-- MODEL


type alias Model =
  { ingredients : List String
  }


init : Model
init =
  Model [""]



-- UPDATE


type Msg
  = Name (List String)
  | Add


update : Msg -> Model -> Model
update msg model =
  case msg of
    Name xs ->
      { model | ingredients = xs }
    Add ->
      { model | ingredients = List.append model.ingredients [""] }


-- VIEW


view : Model -> Html Msg
view model =
  div []
    ( List.append
      ( List.map (\x -> viewInput "text" "Ingredient" x) model.ingredients )
      ( List.singleton ( button [ onClick Add ] [ text "+" ] ))
    )


viewInput : String -> String -> String -> Html msg
viewInput t p v =
  input [ type_ t, placeholder p, value v ] []