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

Update language dropdown for new data

Browse Source 
When receiving a new value to display in the form, the language
dropdown was not initialized with the corresponding value.
This commit is contained in:
eikek 2021-06-14 21:02:36 +02:00
parent c48be04ac3
commit e021f06946
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
modules/webapp/src/main/elm/Comp/SourceForm.elm
View File

@ -155,6 +155,7 @@ update flags msg model =
, enabled = t.source.enabled
, folder = t.source.folder
, fileFilter = t.source.fileFilter
, language = t.source.language
}
newModel =
@ -168,6 +169,7 @@ update flags msg model =
, enabled = t.source.enabled
, folderId = t.source.folder
, fileFilter = t.source.fileFilter
, language = t.source.language
}
mkIdName id =
@ -189,12 +191,21 @@ update flags msg model =
Nothing ->
[]
langSel =
case Maybe.andThen Data.Language.fromString t.source.language of
Just lang ->
[ lang ]
Nothing ->
[]
tags =
Comp.Dropdown.SetSelection t.tags.items
in
Util.Update.andThen1
[ update flags (FolderDropdownMsg (Comp.Dropdown.SetSelection sel))
, update flags (TagDropdownMsg tags)
, update flags (LanguageMsg (Comp.Dropdown.SetSelection langSel))
]
newModel