Add ui-settings flag for side menus

modules/webapp/src/main/elm/Page/Home/Data.elm

@@ -81,8 +81,8 @@ type ViewMode
     | SelectView SelectViewModel
 
 
-init : Flags -> Model
-init flags =
+init : Flags -> ViewMode -> Model
+init flags viewMode =
     let
         searchTypeOptions =
             if flags.config.fullTextSearchEnabled then
@@ -107,7 +107,7 @@ init flags =
     , dragDropData =
         DD.DragDropData DD.init Nothing
     , scrollToCard = Nothing
-    , viewMode = SimpleView
+    , viewMode = viewMode
     }
 
 
@@ -173,6 +173,7 @@ type Msg
     | MultiUpdateResp FormChange (Result Http.Error BasicResult)
     | ReplaceChangedItemsResp (Result Http.Error ItemLightList)
     | DeleteAllResp (Result Http.Error BasicResult)
+    | UiSettingsUpdated
 
 
 type SearchType

modules/webapp/src/main/elm/Page/Home/Update.elm

@@ -495,6 +495,31 @@ update mId key flags settings msg model =
         ReplaceChangedItemsResp (Err _) ->
             noSub ( model, Cmd.none )
 
+        UiSettingsUpdated ->
+            let
+                defaultViewMode =
+                    if settings.searchMenuVisible then
+                        SearchView
+
+                    else
+                        SimpleView
+
+                viewMode =
+                    case model.viewMode of
+                        SimpleView ->
+                            defaultViewMode
+
+                        SearchView ->
+                            defaultViewMode
+
+                        sv ->
+                            sv
+
+                model_ =
+                    { model | viewMode = viewMode }
+            in
+            update mId key flags settings DoSearch model_
+
 
 
 --- Helpers

modules/webapp/src/main/elm/Page/ItemDetail/Data.elm

@@ -23,3 +23,4 @@ type Msg
     | ItemDetailMsg Comp.ItemDetail.Model.Msg
     | ItemResp (Result Http.Error ItemDetail)
     | ScrollResult (Result Dom.Error ())
+    | UiSettingsUpdated

modules/webapp/src/main/elm/Page/ItemDetail/Update.elm

@@ -59,3 +59,10 @@ update key flags inav settings msg model =
 
         ScrollResult _ ->
             ( model, Cmd.none, Sub.none )
+
+        UiSettingsUpdated ->
+            let
+                lmsg =
+                    ItemDetailMsg Comp.ItemDetail.Model.UiSettingsUpdated
+            in
+            update key flags inav settings lmsg model