Add ui-settings flag for side menus

This commit is contained in:
Eike Kettner
2020-10-27 22:35:52 +01:00
parent 83b41b027f
commit 183bcf5bec
10 changed files with 117 additions and 5 deletions

View File

@ -66,12 +66,19 @@ init key url flags_ settings =
( csm, csc ) =
Page.CollectiveSettings.Data.init flags
homeViewMode =
if settings.searchMenuVisible then
Page.Home.Data.SearchView
else
Page.Home.Data.SimpleView
in
( { flags = flags
, key = key
, page = page
, version = Api.Model.VersionInfo.empty
, homeModel = Page.Home.Data.init flags
, homeModel = Page.Home.Data.init flags homeViewMode
, loginModel = Page.Login.Data.emptyModel
, manageDataModel = mdm
, collSettingsModel = csm