Add reset search form button

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