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

Merge pull request #533 from eikek/mailbox-form-fix

Browse Source 
Fix selecting imap connection in scan mailbox settings
This commit is contained in:
mergify[bot] 2021-01-03 09:45:42 +00:00 committed by GitHub
commit f6a040828a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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