TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-10-16 04:41:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

Keep form state after save

Browse Source
This commit is contained in:
eikek
2022-01-29 16:55:28 +01:00
parent e4527400ca
commit 040100f992
2 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
modules/webapp/src/main/elm/Comp/UiSettingsManage.elm
View File

@@ -211,11 +211,17 @@ update flags settings msg model =
userDefaults =
Data.UiSettings.merge coll collDefaults
( um, uc ) =
Comp.UiSettingsForm.init flags user userDefaults
( ( um, uc ), ( cm, cc ) ) =
case model.formData of
Just data ->
( Comp.UiSettingsForm.initData flags user userDefaults data.userModel
, Comp.UiSettingsForm.initData flags coll collDefaults data.collModel
)
( cm, cc ) =
Comp.UiSettingsForm.init flags coll collDefaults
Nothing ->
( Comp.UiSettingsForm.init flags user userDefaults
, Comp.UiSettingsForm.init flags coll collDefaults
)
model_ =
{ model