TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 02:48:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Refactor FixedDropdown

Browse Source
This commit is contained in:
Eike Kettner
2021-04-02 22:46:47 +02:00
parent 8d15d97857
commit 9a23ba9afb
16 changed files with 170 additions and 176 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
modules/webapp/src/main/elm/Comp/CustomFieldForm.elm
View File

@ -61,8 +61,7 @@ init field =
, label = field.label
, ftype = Data.CustomFieldType.fromString field.ftype
, ftypeModel =
Comp.FixedDropdown.initMap Data.CustomFieldType.label
Data.CustomFieldType.all
Comp.FixedDropdown.init Data.CustomFieldType.all
, loading = False
, deleteDimmer = Comp.YesNoDimmer.emptyModel
}
@ -200,11 +199,14 @@ type alias ViewSettings =
view2 : ViewSettings -> Model -> List (Html Msg)
view2 viewSettings model =
let
mkItem cft =
Comp.FixedDropdown.Item cft (Data.CustomFieldType.label cft) Nothing
dimmerSettings =
Comp.YesNoDimmer.defaultSettings2 "Really delete this custom field?"
ftypeCfg =
{ display = Data.CustomFieldType.label
, icon = \_ -> Nothing
, style = DS.mainStyle
}
in
(if viewSettings.showControls then
[ viewButtons2 model ]
@ -279,9 +281,9 @@ view2 viewSettings model =
]
, Html.map FTypeMsg
(Comp.FixedDropdown.viewStyled2
DS.mainStyle
ftypeCfg
(model.ftype == Nothing)
(Maybe.map mkItem model.ftype)
model.ftype
model.ftypeModel
)
, div [ class "opacity-75 text-sm" ]