Make resetting search form more efficient

Instead of reloading the whole menu, only empty the fields.

modules/webapp/src/main/elm/Comp/FolderSelect.elm

@@ -1,7 +1,9 @@
 module Comp.FolderSelect exposing
     ( Model
     , Msg
+    , deselect
     , init
+    , setSelected
     , update
     , updateDrop
     , view
@@ -32,6 +34,23 @@ init selected all =
     }
 
 
+setSelected : String -> Model -> Maybe Msg
+setSelected id model =
+    List.filter (\fi -> fi.id == id) model.all
+        |> List.head
+        |> Maybe.map Toggle
+
+
+deselect : Model -> Maybe Msg
+deselect model =
+    case model.selected of
+        Just id ->
+            setSelected id model
+
+        Nothing ->
+            Nothing
+
+
 
 --- Update