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

Fix selecting imap connection in scan mailbox settings

Browse Source 
Issue: #524
This commit is contained in:
Eike Kettner 2021-01-03 10:30:12 +01:00
parent 7b7a8ecd69
commit 40b093ae72
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -332,12 +332,24 @@ update flags msg model =
names = names =
List.map .name list.items List.map .name list.items
defaultConn =
case names of
h :: [] ->
Just h
_ ->
Nothing
cm = cm =
Comp.Dropdown.makeSingleList Comp.Dropdown.makeSingleList
{ makeOption = \a -> { value = a, text = a, additional = "" } { makeOption = \a -> { value = a, text = a, additional = "" }
, placeholder = "Select Connection..." , placeholder = "Select Connection..."
, options = names , options = names
, selected = List.head names , selected =
Util.Maybe.or
[ List.head (Comp.Dropdown.getSelected model.connectionModel)
, defaultConn
]
} }
in in
( { model ( { model