InterActiveList-step-1.elm

module Main exposing (..)

import Html exposing (..)
import Html.Attributes exposing (style)


type alias Model =
    { title : String, items : List Item }


type alias Item =
    { name : String, done : Bool }


model : Model
model =
    { title = "Shoppting List", items = [ { name = "Apples", done = False }, { name = "Tomatos", done = True }, { name = "Banana", done = False } ] }


main : Html a
main =
    view model


view : Model -> Html a
view model =
    div []
        [ viewTitle model.title
        , viewList model.items
        ]


viewTitle : String -> Html a
viewTitle title =
    h1 [] [ text title ]


viewList : List Item -> Html a
viewList list =
    ul [] (List.map viewItem list)


viewItem : Item -> Html a
viewItem item =
    if item.done then
        li [ style [ ( "text-decoration", "line-through" ) ] ] [ text item.name ]
    else
        li [] [ text item.name ]