NavItem.elm

navItemAttrs : String -> NavigationPoint -> NavigationPoint -> List (Attribute Msg)
navItemAttrs navPointName thisNavPoint currentNavPoint =
    let
        base =
            [ title base
            , subtitle ""
            , onClick (Navigate thisNavPoint)
            ]
    in
    if currentNavPoint == thisNavPoint then
        isActive :: base
    else
        base

-- IN PRACTICE --

view =
    navItem 
        (navItemAttrs "Customer" Customer model.navigationPoint) 
        []
            


-- ANOTHER IDEA --
            


navItem_ : List (Attribute Msg) -> String -> NavigationPoint -> NavigationPoint -> Html Msg
navItem_ attrs navPointName thisNavPoint currentNavPoint =
    let
        base =
            List.append
                [ title base
                , subtitle ""
                , onClick (Navigate thisNavPoint)
                ]
                attrs
    in
    if currentNavPoint == thisNavPoint then
        navItem (isActive :: base) []
    else
        navItem base []


view =
    navItem_ [] "Customer" Customer model.navigationPoint