updatefunc.elm

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        Noop ->
            ( model, Cmd.none )

        UpdateTitleFilter titleSearch ->
            let
                newFilters =
                    createFilters titleSearch model.currentDescriptionSearchField model.currentFilteredTags

                newModel =
                    { model | filters = newFilters, currentTitleSearchField = titleSearch }
            in
                ( newModel, Cmd.none )

        UpdateDescriptionFilter descSearch ->
            let
                newFilters =
                    createFilters model.currentTitleSearchField descSearch model.currentFilteredTags

                newModel =
                    { model | filters = newFilters, currentDescriptionSearchField = descSearch }
            in
                ( newModel, Cmd.none )

        UpdateTagFilter tagSearch ->
            let
                newModel =
                    { model | currentTagSearchField = tagSearch }
            in
                ( newModel, Cmd.none )

        SubmitTagFilter ->
            let
                newTags =
                    model.currentTagSearchField :: model.currentFilteredTags

                newFilters =
                    createFilters model.currentTitleSearchField model.currentDescriptionSearchField newTags

                newModel =
                    { model | currentFilteredTags = newTags, filters = newFilters }
            in
                ( newModel, Cmd.none )

        AddTagFilter tag ->
            let
                newTags =
                    tag :: model.currentFilteredTags

                newFilters =
                    createFilters model.currentTitleSearchField model.currentDescriptionSearchField newTags

                newModel =
                    { model | currentFilteredTags = newTags, filters = newFilters }
            in
                ( newModel, Cmd.none )

        RemoveTagFilter tag ->
            let
                newTags =
                    List.filter (\t -> t /= tag) model.currentFilteredTags

                newFilters =
                    createFilters model.currentTitleSearchField model.currentDescriptionSearchField newTags

                newModel =
                    { model | currentFilteredTags = newTags, filters = newFilters }
            in
                ( newModel, Cmd.none )