Add reset search form button

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 =

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

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 =

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 ""