TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 19:08:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix setting ui theme for anonymous

Browse Source
This commit is contained in:
Eike Kettner
2021-02-18 22:02:56 +01:00
parent 3c0abcadb9
commit 70fa57587b
2 changed files with 18 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
modules/webapp/src/main/elm/App/Data.elm
View File

@ -11,6 +11,7 @@ import Browser exposing (UrlRequest)
import Browser.Navigation exposing (Key)
import Data.Flags exposing (Flags)
import Data.UiSettings exposing (UiSettings)
import Data.UiTheme exposing (UiTheme)
import Http
import Page exposing (Page(..))
import Page.CollectiveSettings.Data
@ -46,6 +47,7 @@ type alias Model =
, subs : Sub Msg
, uiSettings : UiSettings
, sidebarVisible : Bool
, anonymousTheme : UiTheme
}
@ -94,6 +96,7 @@ init key url flags_ settings =
, subs = Sub.none
, uiSettings = settings
, sidebarVisible = settings.sideMenuVisible
, anonymousTheme = Data.UiTheme.Light
}
, Cmd.batch
[ Cmd.map UserSettingsMsg uc