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

Externalize strings in UiSettings page

Browse Source
This commit is contained in:
Eike Kettner
2021-04-03 22:25:54 +02:00
parent e76d574ea3
commit 8f1380fcf5
17 changed files with 371 additions and 152 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
modules/webapp/src/main/elm/Comp/FieldListSelect.elm
View File

@ -1,6 +1,7 @@
module Comp.FieldListSelect exposing
( Model
, Msg
, ViewSettings
, update
, view2
)
@ -49,17 +50,23 @@ addField selected field =
--- View2
view2 : String -> Model -> Html Msg
view2 classes selected =
type alias ViewSettings =
{ fieldLabel : Field -> String
, classes : String
}
view2 : ViewSettings -> Model -> Html Msg
view2 cfg selected =
div
[ class "flex flex-col space-y-4 md:space-y-2"
, class classes
, class cfg.classes
]
(List.map (fieldCheckbox2 selected) Data.Fields.all)
(List.map (fieldCheckbox2 cfg selected) Data.Fields.all)
fieldCheckbox2 : Model -> Field -> Html Msg
fieldCheckbox2 selected field =
fieldCheckbox2 : ViewSettings -> Model -> Field -> Html Msg
fieldCheckbox2 cfg selected field =
let
isChecked =
List.member field selected
@ -69,5 +76,5 @@ fieldCheckbox2 selected field =
{ id = "field-toggle-" ++ Data.Fields.toString field
, value = isChecked
, tagger = \_ -> Toggle field
, label = Data.Fields.label field
, label = cfg.fieldLabel field
}