diff --git a/modules/webapp/src/main/elm/Comp/SearchMenu.elm b/modules/webapp/src/main/elm/Comp/SearchMenu.elm index ef4076be..673450fa 100644 --- a/modules/webapp/src/main/elm/Comp/SearchMenu.elm +++ b/modules/webapp/src/main/elm/Comp/SearchMenu.elm @@ -123,6 +123,7 @@ type Msg | GetEquipResp (Result Http.Error EquipmentList) | GetPersonResp (Result Http.Error ReferenceList) | SetName String + | ResetForm makeTagModel : Comp.Dropdown.Model Tag @@ -216,6 +217,13 @@ update flags msg model = ] ) + ResetForm -> + let + next = + update flags Init emptyModel + in + { next | stateChange = True } + GetTagsResp (Ok tags) -> let tagList = diff --git a/modules/webapp/src/main/elm/Page/Home/Data.elm b/modules/webapp/src/main/elm/Page/Home/Data.elm index a457db52..8a440a6f 100644 --- a/modules/webapp/src/main/elm/Page/Home/Data.elm +++ b/modules/webapp/src/main/elm/Page/Home/Data.elm @@ -33,6 +33,7 @@ emptyModel = type Msg = Init | SearchMenuMsg Comp.SearchMenu.Msg + | ResetSearch | ItemListMsg Comp.ItemList.Msg | ItemSearchResp (Result Http.Error ItemLightList) | DoSearch diff --git a/modules/webapp/src/main/elm/Page/Home/Update.elm b/modules/webapp/src/main/elm/Page/Home/Update.elm index 2c279e21..bc940e19 100644 --- a/modules/webapp/src/main/elm/Page/Home/Update.elm +++ b/modules/webapp/src/main/elm/Page/Home/Update.elm @@ -21,6 +21,9 @@ update key flags msg model = ] model + ResetSearch -> + update key flags (SearchMenuMsg Comp.SearchMenu.ResetForm) model + SearchMenuMsg m -> let nextState = diff --git a/modules/webapp/src/main/elm/Page/Home/View.elm b/modules/webapp/src/main/elm/Page/Home/View.elm index c9928db5..22e063b2 100644 --- a/modules/webapp/src/main/elm/Page/Home/View.elm +++ b/modules/webapp/src/main/elm/Page/Home/View.elm @@ -20,6 +20,13 @@ view model = ] , div [ class "right floated menu" ] [ a + [ class "item" + , onClick ResetSearch + , href "#" + ] + [ i [ class "undo icon" ] [] + ] + , a [ class "item" , onClick DoSearch , href ""