Add input field to provide colors for tag categories

This commit is contained in:
Eike Kettner
2020-06-07 21:42:11 +02:00
parent c595f3b737
commit f4e37b512f
9 changed files with 458 additions and 54 deletions

View File

@ -29,12 +29,18 @@ type Msg
| SettingsSaved
init : UiSettings -> Model
init defaults =
{ formModel = Comp.UiSettingsForm.initWith defaults
, settings = Nothing
, message = Nothing
}
init : Flags -> UiSettings -> ( Model, Cmd Msg )
init flags defaults =
let
( fm, fc ) =
Comp.UiSettingsForm.init flags defaults
in
( { formModel = fm
, settings = Nothing
, message = Nothing
}
, Cmd.map UiSettingsFormMsg fc
)