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

Refactor Dropdown

Browse Source
This commit is contained in:
Eike Kettner
2021-04-02 15:54:02 +02:00
parent b9c98c6578
commit 8d15d97857
26 changed files with 493 additions and 504 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
modules/webapp/src/main/elm/Comp/ItemMail.elm
View File

@ -69,11 +69,7 @@ type FormAction
emptyModel : Model
emptyModel =
{ connectionModel =
Comp.Dropdown.makeSingle
{ makeOption = \a -> { value = a, text = a, additional = "" }
, placeholder = "Select connection..."
}
{ connectionModel = Comp.Dropdown.makeSingle
, subject = ""
, recipients = []
, recipientsModel = Comp.EmailInput.init
@ -160,9 +156,7 @@ update flags msg model =
cm =
Comp.Dropdown.makeSingleList
{ makeOption = \a -> { value = a, text = a, additional = "" }
, placeholder = "Select Connection..."
, options = names
{ options = names
, selected = List.head names
}
in
@ -229,6 +223,13 @@ view2 settings model =
let
dds =
Data.DropdownStyle.mainStyle
connectionCfg =
{ makeOption = \a -> { text = a, additional = "" }
, placeholder = "Select connection..."
, labelColor = \_ -> \_ -> ""
, style = dds
}
in
div
[ class "flex flex-col"
@ -238,7 +239,7 @@ view2 settings model =
[ text "Send via"
, B.inputRequired
]
, Html.map ConnMsg (Comp.Dropdown.view2 dds settings model.connectionModel)
, Html.map ConnMsg (Comp.Dropdown.view2 connectionCfg settings model.connectionModel)
]
, div
[ class S.errorMessage