TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-10-30 21:40:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Externalize more strings missed before

Browse Source
This commit is contained in:
Eike Kettner
2021-04-10 16:02:34 +02:00
parent e063a10663
commit 92ae22a68d
52 changed files with 219 additions and 253 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
modules/webapp/src/main/elm/Comp/ColorTagger.elm
View File

@@ -90,6 +90,7 @@ update msg model =
type alias ViewOpts =
{ renderItem : ( String, Color ) -> Html Msg
, colorLabel : Color -> String
, label : String
, description : Maybe String
}
@@ -116,6 +117,7 @@ view2 data opts model =
)
, div [ class "field" ]
[ chooseColor2
opts.colorLabel
(AddPair data)
Data.Color.all
Nothing
@@ -169,8 +171,8 @@ renderFormData2 opts data =
(List.map valueItem values)
chooseColor2 : (Color -> msg) -> List Color -> Maybe String -> Html msg
chooseColor2 tagger colors mtext =
chooseColor2 : (Color -> String) -> (Color -> msg) -> List Color -> Maybe String -> Html msg
chooseColor2 colorLabel tagger colors mtext =
let
renderLabel color =
a
@@ -180,7 +182,7 @@ chooseColor2 tagger colors mtext =
, onClick (tagger color)
]
[ Maybe.withDefault
(Data.Color.toString color)
(colorLabel color)
mtext
|> text
]

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

@@ -253,7 +253,7 @@ view2 texts viewSettings model =
[ class S.inputLabel
, for "fieldname"
]
[ text texts.name
[ text texts.basics.name
, B.inputRequired
]
, input

2
modules/webapp/src/main/elm/Comp/EmailSettingsForm.elm
View File

@@ -190,7 +190,7 @@ view2 texts settings model =
[ label
[ class S.inputLabel
]
[ text texts.name
[ text texts.basics.name
, B.inputRequired
]
, input

2
modules/webapp/src/main/elm/Comp/EmailSettingsTable.elm
View File

@@ -54,7 +54,7 @@ view2 texts model =
[ thead []
[ tr []
[ th [ class "" ] []
, th [ class "text-left mr-2" ] [ text texts.name ]
, th [ class "text-left mr-2" ] [ text texts.basics.name ]
, th [ class "text-left mr-2" ] [ text texts.hostPort ]
, th [ class "text-left mr-2 hidden sm:table-cell" ] [ text texts.from ]
]

12
modules/webapp/src/main/elm/Comp/EquipmentForm.elm
View File

@@ -115,13 +115,13 @@ view2 texts model =
[ for "equipname"
, class S.inputLabel
]
[ text "Name"
[ text texts.basics.name
, B.inputRequired
]
, input
[ type_ "text"
, onInput SetName
, placeholder "Name"
, placeholder texts.basics.name
, value model.name
, name "equipname"
, class S.textInput
@@ -137,21 +137,21 @@ view2 texts model =
[ label
[ class S.inputLabel
]
[ text "Use" ]
[ text texts.use ]
, Html.map UseDropdownMsg
(Comp.FixedDropdown.viewStyled2 equipUseCfg False (Just model.use) model.useModel)
, span [ class "opacity-50 text-sm" ]
[ case model.use of
Data.EquipmentUse.Concerning ->
text "Use as concerning equipment"
text texts.useAsConcerning
Data.EquipmentUse.Disabled ->
text "Do not use for suggestions."
text texts.useNotSuggestions
]
]
, div [ class "mb-4" ]
[ h3 [ class S.header3 ]
[ text "Notes"
[ text texts.notes
]
, div [ class "" ]
[ textarea

2
modules/webapp/src/main/elm/Comp/EquipmentTable.elm
View File

@@ -61,7 +61,7 @@ view2 texts model =
, th [ class "text-left pr-1 md:px-2 w-20" ]
[ text texts.use
]
, th [ class "text-left" ] [ text texts.name ]
, th [ class "text-left" ] [ text texts.basics.name ]
]
]
, tbody []

2
modules/webapp/src/main/elm/Comp/FolderDetail.elm
View File

@@ -321,7 +321,7 @@ view2 texts flags model =
[ class S.inputLabel
, for "folder-name"
]
[ text texts.name
[ text texts.basics.name
, B.inputRequired
]
, div [ class "flex flex-row space-x-2" ]

2
modules/webapp/src/main/elm/Comp/FolderTable.elm
View File

@@ -52,7 +52,7 @@ view2 texts _ items =
[ tr []
[ th [ class "w-px whitespace-nowrap pr-1 md:pr-3" ] []
, th [ class "text-left" ]
[ text texts.name
[ text texts.basics.name
]
, th [ class "text-left hidden sm:table-cell" ] [ text "Owner" ]
, th [ class "text-center" ]

2
modules/webapp/src/main/elm/Comp/ImapSettingsForm.elm
View File

@@ -181,7 +181,7 @@ view2 texts settings model =
[ class "grid grid-cols-4 gap-y-4 gap-x-2" ]
[ div [ class "col-span-4" ]
[ label [ class S.inputLabel ]
[ text texts.name
[ text texts.basics.name
, B.inputRequired
]
, input

2
modules/webapp/src/main/elm/Comp/ImapSettingsTable.elm
View File

@@ -54,7 +54,7 @@ view2 texts model =
[ thead []
[ tr []
[ th [] []
, th [ class "text-left mr-2" ] [ text texts.name ]
, th [ class "text-left mr-2" ] [ text texts.basics.name ]
, th [ class "text-left mr-2" ] [ text texts.hostPort ]
]
]

22
modules/webapp/src/main/elm/Comp/ItemCard.elm
View File

@@ -204,7 +204,7 @@ view2 texts cfg settings model item =
, metaDataContent2 texts settings item
, notesContent2 settings item
, fulltextResultsContent2 item
, previewMenu2 settings model item (currentAttachment model item)
, previewMenu2 texts settings model item (currentAttachment model item)
, selectedDimmer
]
)
@@ -234,7 +234,7 @@ metaDataContent2 texts settings item =
[ ( "hidden", fieldHidden Data.Fields.Folder )
]
, class "hover:opacity-60"
, title texts.folder
, title texts.basics.folder
]
[ Icons.folderIcon2 "mr-2"
, Comp.LinkTarget.makeFolderLink item
@@ -311,7 +311,7 @@ mainContent2 texts cardAction cardColor isConfirmed settings _ item =
&& fieldHidden Data.Fields.CorrPerson
)
]
, title "Correspondent"
, title texts.basics.correspondent
]
(Icons.correspondentIcon2 "mr-2 w-4 text-center"
:: Comp.LinkTarget.makeCorrLink item [ ( "hover:opacity-75", True ) ] SetLinkTarget
@@ -323,7 +323,7 @@ mainContent2 texts cardAction cardColor isConfirmed settings _ item =
&& fieldHidden Data.Fields.ConcEquip
)
]
, title "Concerning"
, title texts.basics.concerning
]
(Icons.concernedIcon2 "mr-2 w-4 text-center"
:: Comp.LinkTarget.makeConcLink item [ ( "hover:opacity-75", True ) ] SetLinkTarget
@@ -340,7 +340,7 @@ mainContent2 texts cardAction cardColor isConfirmed settings _ item =
, ( cardColor, True )
, ( "hidden", isConfirmed )
]
, title "New"
, title texts.new
]
[ i [ class "ml-2 fa fa-exclamation-circle" ] []
]
@@ -440,8 +440,8 @@ previewImage2 settings cardAction model item =
]
previewMenu2 : UiSettings -> Model -> ItemLight -> Maybe AttachmentLight -> Html Msg
previewMenu2 settings model item mainAttach =
previewMenu2 : Texts -> UiSettings -> Model -> ItemLight -> Maybe AttachmentLight -> Html Msg
previewMenu2 texts settings model item mainAttach =
let
pageCount =
Maybe.andThen .pageCount mainAttach
@@ -478,7 +478,7 @@ previewMenu2 settings model item mainAttach =
)
]
, class "label font-semibold text-sm border-gray-300 dark:border-bluegray-600"
, title ("Due on " ++ dueDate)
, title (texts.dueOn ++ " " ++ dueDate)
]
[ Icons.dueDateIcon2 "mr-2"
, text (" " ++ dueDate)
@@ -490,7 +490,7 @@ previewMenu2 settings model item mainAttach =
, class "px-2 py-1 border rounded "
, href attachUrl
, target "_self"
, title "Open attachment file"
, title texts.openAttachmentFile
]
[ i [ class "fa fa-eye" ] []
]
@@ -498,7 +498,7 @@ previewMenu2 settings model item mainAttach =
[ class S.secondaryBasicButtonPlain
, class "px-2 py-1 border rounded ml-2"
, Page.href (ItemDetailPage item.id)
, title "Go to detail view"
, title texts.gotoDetail
]
[ i [ class "fa fa-edit" ] []
]
@@ -518,7 +518,7 @@ previewMenu2 settings model item mainAttach =
[ a
[ class S.secondaryBasicButtonPlain
, class "px-2 py-1 border rounded-l block"
, title "Cycle attachments"
, title texts.cycleAttachments
, href "#"
, onClick (CyclePreview item)
]

22
modules/webapp/src/main/elm/Comp/ItemDetail/EditForm.elm
View File

@@ -147,7 +147,7 @@ formTabs texts flags settings model =
}
in
[ { name = FTabState.tabName TabName
, title = texts.nameTab
, title = texts.basics.name
, titleRight = []
, info = Nothing
, body =
@@ -174,7 +174,7 @@ formTabs texts flags settings model =
]
}
, { name = FTabState.tabName TabDate
, title = texts.dateTab
, title = texts.basics.date
, titleRight = []
, info = Nothing
, body =
@@ -224,7 +224,7 @@ formTabs texts flags settings model =
]
}
, { name = FTabState.tabName TabFolder
, title = texts.folderTab
, title = texts.basics.folder
, titleRight = []
, info = Nothing
, body =
@@ -247,7 +247,7 @@ formTabs texts flags settings model =
]
}
, { name = FTabState.tabName TabCustomFields
, title = texts.customFieldsTab
, title = texts.basics.customFields
, titleRight = []
, info = Nothing
, body =
@@ -288,7 +288,7 @@ formTabs texts flags settings model =
]
}
, { name = FTabState.tabName TabCorrespondent
, title = texts.correspondentTab
, title = texts.basics.correspondent
, titleRight = []
, info = Nothing
, body =
@@ -296,7 +296,7 @@ formTabs texts flags settings model =
div [ class "mb-4" ]
[ label [ class S.inputLabel ]
[ Icons.organizationIcon2 "mr-2"
, text texts.organization
, text texts.basics.organization
, addIconLink texts.addNewOrg StartCorrOrgModal
, editIconLink texts.editOrg model.corrOrgModel StartEditCorrOrgModal
]
@@ -312,7 +312,7 @@ formTabs texts flags settings model =
div [ class "mb-4" ]
[ label [ class S.inputLabel ]
[ Icons.personIcon2 "mr-2"
, text "Person"
, text texts.basics.person
, addIconLink texts.addNewCorrespondentPerson StartCorrPersonModal
, editIconLink texts.editPerson
model.corrPersonModel
@@ -338,7 +338,7 @@ formTabs texts flags settings model =
]
}
, { name = FTabState.tabName TabConcerning
, title = texts.concerningTab
, title = texts.basics.concerning
, titleRight = []
, info = Nothing
, body =
@@ -346,7 +346,7 @@ formTabs texts flags settings model =
div [ class "mb-4" ]
[ label [ class S.inputLabel ]
[ Icons.personIcon2 "mr-2"
, text "Person"
, text texts.basics.person
, addIconLink texts.addNewConcerningPerson StartConcPersonModal
, editIconLink texts.editPerson
model.concPersonModel
@@ -364,7 +364,7 @@ formTabs texts flags settings model =
div [ class "mb-4" ]
[ label [ class S.inputLabel ]
[ Icons.equipmentIcon2 "mr-2"
, text "Equipment"
, text texts.basics.equipment
, addIconLink texts.addNewEquipment StartEquipModal
, editIconLink texts.editEquipment
model.concEquipModel
@@ -381,7 +381,7 @@ formTabs texts flags settings model =
]
}
, { name = FTabState.tabName TabDirection
, title = texts.directionTab
, title = texts.basics.direction
, titleRight = []
, info = Nothing
, body =

6
modules/webapp/src/main/elm/Comp/ItemDetail/ItemInfoHeader.elm
View File

@@ -62,7 +62,7 @@ view texts settings model =
corr =
( div
[ class itemStyle
, title texts.correspondent
, title texts.basics.correspondent
]
(Icons.correspondentIcon2 "mr-2"
:: Comp.LinkTarget.makeCorrLink model.item
@@ -76,7 +76,7 @@ view texts settings model =
conc =
( div
[ class itemStyle
, title texts.concerning
, title texts.basics.concerning
]
(Icons.concernedIcon2 "mr-2"
:: Comp.LinkTarget.makeConcLink model.item
@@ -90,7 +90,7 @@ view texts settings model =
itemfolder =
( div
[ class itemStyle
, title texts.folder
, title texts.basics.folder
]
[ Icons.folderIcon2 "mr-2"
, Comp.LinkTarget.makeFolderLink model.item

22
modules/webapp/src/main/elm/Comp/ItemDetail/MultiEditMenu.elm
View File

@@ -753,7 +753,7 @@ renderEditForm2 texts flags cfg settings model =
]
}
, { name = tabName TabFolder
, title = texts.folderTab
, title = texts.basics.folder
, titleRight = []
, info = Nothing
, body =
@@ -769,7 +769,7 @@ renderEditForm2 texts flags cfg settings model =
]
}
, { name = tabName TabCustomFields
, title = texts.customFieldsTab
, title = texts.basics.customFields
, titleRight = []
, info = Nothing
, body =
@@ -782,7 +782,7 @@ renderEditForm2 texts flags cfg settings model =
]
}
, { name = tabName TabDate
, title = texts.dateTab
, title = texts.basics.date
, titleRight = []
, info = Nothing
, body =
@@ -828,7 +828,7 @@ renderEditForm2 texts flags cfg settings model =
]
}
, { name = tabName TabCorrespondent
, title = texts.correspondentTab
, title = texts.basics.correspondent
, titleRight = []
, info = Nothing
, body =
@@ -837,7 +837,7 @@ renderEditForm2 texts flags cfg settings model =
[ label [ class S.inputLabel ]
[ Icons.organizationIcon2 ""
, span [ class "ml-2" ]
[ text texts.organization
[ text texts.basics.organization
]
]
, Html.map OrgDropdownMsg
@@ -852,7 +852,7 @@ renderEditForm2 texts flags cfg settings model =
[ label [ class S.inputLabel ]
[ Icons.personIcon2 ""
, span [ class "ml-2" ]
[ text texts.person
[ text texts.basics.person
]
]
, Html.map CorrPersonMsg
@@ -865,7 +865,7 @@ renderEditForm2 texts flags cfg settings model =
]
}
, { name = tabName TabConcerning
, title = texts.concerningTab
, title = texts.basics.concerning
, titleRight = []
, info = Nothing
, body =
@@ -874,7 +874,7 @@ renderEditForm2 texts flags cfg settings model =
[ label [ class S.inputLabel ]
[ Icons.personIcon2 ""
, span [ class "ml-2" ]
[ text texts.person ]
[ text texts.basics.person ]
]
, Html.map ConcPersonMsg (Comp.Dropdown.view2 idNameCfg settings model.concPersonModel)
]
@@ -883,7 +883,7 @@ renderEditForm2 texts flags cfg settings model =
[ label [ class S.inputLabel ]
[ Icons.equipmentIcon2 ""
, span [ class "ml-2" ]
[ text texts.equipment ]
[ text texts.basics.equipment ]
]
, Html.map ConcEquipMsg
(Comp.Dropdown.view2 idNameCfg
@@ -894,7 +894,7 @@ renderEditForm2 texts flags cfg settings model =
]
}
, { name = tabName TabDirection
, title = texts.directionTab
, title = texts.basics.direction
, titleRight = []
, info = Nothing
, body =
@@ -902,7 +902,7 @@ renderEditForm2 texts flags cfg settings model =
]
}
, { name = tabName TabName
, title = texts.nameTab
, title = texts.basics.name
, titleRight = []
, info = Nothing
, body =

4
modules/webapp/src/main/elm/Comp/OrgForm.elm
View File

@@ -168,13 +168,13 @@ view2 texts mobile settings model =
[ for "orgname"
, class S.inputLabel
]
[ text texts.name
[ text texts.basics.name
, B.inputRequired
]
, input
[ type_ "text"
, onInput SetName
, placeholder texts.name
, placeholder texts.basics.name
, value model.name
, name "orgname"
, class S.textInput

2
modules/webapp/src/main/elm/Comp/OrgTable.elm
View File

@@ -64,7 +64,7 @@ view2 texts model =
[ text "Use"
]
, th [ class "text-left" ]
[ text texts.name
[ text texts.basics.name
]
, th [ class "text-left hidden md:table-cell" ]
[ text texts.address

6
modules/webapp/src/main/elm/Comp/PersonForm.elm
View File

@@ -201,13 +201,13 @@ view2 texts mobile settings model =
[ class S.inputLabel
, for "personname"
]
[ text texts.name
[ text texts.basics.name
, B.inputRequired
]
, input
[ type_ "text"
, onInput SetName
, placeholder texts.name
, placeholder texts.basics.name
, value model.name
, class S.textInput
, classList
@@ -244,7 +244,7 @@ view2 texts mobile settings model =
[ label
[ class S.inputLabel
]
[ text texts.organization
[ text texts.basics.organization
]
, Html.map OrgDropdownMsg
(Comp.Dropdown.view2

8
modules/webapp/src/main/elm/Comp/PersonTable.elm
View File

@@ -60,11 +60,11 @@ view2 texts model =
[ tr []
[ th [ class "w-px whitespace-nowrap" ] []
, th [ class "text-left pr-1 md:px-2" ]
[ text "Use"
[ text texts.use
]
, th [ class "text-left" ] [ text "Name" ]
, th [ class "text-left hidden sm:table-cell" ] [ text "Organization" ]
, th [ class "text-left hidden md:table-cell" ] [ text "Contact" ]
, th [ class "text-left" ] [ text texts.basics.name ]
, th [ class "text-left hidden sm:table-cell" ] [ text texts.basics.organization ]
, th [ class "text-left hidden md:table-cell" ] [ text texts.contact ]
]
]
, tbody []

20
modules/webapp/src/main/elm/Comp/SearchMenu.elm
View File

@@ -1223,7 +1223,7 @@ searchTabs texts ddd flags settings model =
]
}
, { name = tabName TabFolder
, title = texts.folderTab
, title = texts.basics.folder
, titleRight = []
, info = Nothing
, body =
@@ -1235,7 +1235,7 @@ searchTabs texts ddd flags settings model =
]
}
, { name = tabName TabCorrespondent
, title = texts.correspondentTab
, title = texts.basics.correspondent
, titleRight = []
, info = Nothing
, body =
@@ -1244,7 +1244,7 @@ searchTabs texts ddd flags settings model =
, classList [ ( "hidden", isHidden Data.Fields.CorrOrg ) ]
]
[ label [ class S.inputLabel ]
[ text texts.organization ]
[ text texts.basics.organization ]
, Html.map OrgMsg
(Comp.Dropdown.view2
(Comp.Dropdown.orgFormViewSettings texts.chooseOrganization DS.sidebarStyle)
@@ -1256,7 +1256,7 @@ searchTabs texts ddd flags settings model =
[ class "mb-4"
, classList [ ( "hidden", isHidden Data.Fields.CorrPerson ) ]
]
[ label [ class S.inputLabel ] [ text texts.person ]
[ label [ class S.inputLabel ] [ text texts.basics.person ]
, Html.map CorrPersonMsg
(Comp.Dropdown.view2
personCfg
@@ -1267,7 +1267,7 @@ searchTabs texts ddd flags settings model =
]
}
, { name = tabName TabConcerning
, title = texts.concerningTab
, title = texts.basics.concerning
, titleRight = []
, info = Nothing
, body =
@@ -1275,7 +1275,7 @@ searchTabs texts ddd flags settings model =
[ class "mb-4"
, classList [ ( "hidden", isHidden Data.Fields.ConcPerson ) ]
]
[ label [ class S.inputLabel ] [ text texts.person ]
[ label [ class S.inputLabel ] [ text texts.basics.person ]
, Html.map ConcPersonMsg
(Comp.Dropdown.view2
personCfg
@@ -1287,7 +1287,7 @@ searchTabs texts ddd flags settings model =
[ class "mb-4"
, classList [ ( "hidden", isHidden Data.Fields.ConcEquip ) ]
]
[ label [ class S.inputLabel ] [ text texts.equipment ]
[ label [ class S.inputLabel ] [ text texts.basics.equipment ]
, Html.map ConcEquipmentMsg
(Comp.Dropdown.view2
concEquipCfg
@@ -1298,7 +1298,7 @@ searchTabs texts ddd flags settings model =
]
}
, { name = tabName TabCustomFields
, title = texts.customFieldsTab
, title = texts.basics.customFields
, titleRight = []
, info = Nothing
, body =
@@ -1316,7 +1316,7 @@ searchTabs texts ddd flags settings model =
]
}
, { name = tabName TabDate
, title = texts.dateTab
, title = texts.basics.date
, titleRight = []
, info = Nothing
, body =
@@ -1418,7 +1418,7 @@ searchTabs texts ddd flags settings model =
]
}
, { name = tabName TabDirection
, title = texts.directionTab
, title = texts.basics.direction
, titleRight = []
, info = Nothing
, body =

6
modules/webapp/src/main/elm/Comp/SourceForm.elm
View File

@@ -347,14 +347,14 @@ view2 flags texts settings model =
[ for "source-abbrev"
, class S.inputLabel
]
[ text texts.name
[ text texts.basics.name
, B.inputRequired
]
, input
[ type_ "text"
, id "source-abbrev"
, onInput SetAbbrev
, placeholder texts.name
, placeholder texts.basics.name
, value model.abbrev
, class S.textInput
, classList [ ( S.inputErrorBorder, not (isValid model) ) ]
@@ -424,7 +424,7 @@ view2 flags texts settings model =
]
, div [ class "mb-4" ]
[ label [ class S.inputLabel ]
[ text texts.folder
[ text texts.basics.folder
]
, Html.map FolderDropdownMsg
(Comp.Dropdown.view2

4
modules/webapp/src/main/elm/Comp/TagForm.elm
View File

@@ -136,13 +136,13 @@ view2 texts model =
[ for "tagname"
, class S.inputLabel
]
[ text texts.name
[ text texts.basics.name
, B.inputRequired
]
, input
[ type_ "text"
, onInput SetName
, placeholder texts.name
, placeholder texts.basics.name
, value model.name
, id "tagname"
, class S.textInput

2
modules/webapp/src/main/elm/Comp/TagTable.elm
View File

@@ -57,7 +57,7 @@ view2 texts model =
[ thead []
[ tr []
[ th [ class "" ] []
, th [ class "text-left" ] [ text texts.name ]
, th [ class "text-left" ] [ text texts.basics.name ]
, th [ class "text-left" ] [ text texts.category ]
]
]

3
modules/webapp/src/main/elm/Comp/UiSettingsForm.elm
View File

@@ -466,6 +466,7 @@ tagColorViewOpts2 texts =
\( _, v ) ->
span [ class (" label " ++ Data.Color.toString2 v) ]
[ text (texts.colorLabel v) ]
, colorLabel = texts.colorLabel
, label = texts.chooseTagColorLabel
, description = Just texts.tagColorDescription
}
@@ -626,7 +627,7 @@ settingFormTabs texts flags _ model =
, ( "hidden", not model.showPatternHelp )
]
]
IT.helpMessage
texts.templateHelpMessage
]
}
, { name = "search-menu"

8
modules/webapp/src/main/elm/Data/Direction.elm
View File

@@ -8,7 +8,6 @@ module Data.Direction exposing
, iconFromMaybe2
, iconFromString
, iconFromString2
, labelFromMaybe
, toString
)
@@ -102,10 +101,3 @@ iconFromMaybe2 : Maybe String -> String
iconFromMaybe2 ms =
Maybe.map iconFromString2 ms
|> Maybe.withDefault unknownIcon2
labelFromMaybe : Maybe String -> String
labelFromMaybe ms =
Maybe.andThen fromString ms
|> Maybe.map toString
|> Maybe.withDefault "Direction"

32
modules/webapp/src/main/elm/Data/ItemTemplate.elm
View File

@@ -17,7 +17,6 @@ module Data.ItemTemplate exposing
, folder
, from
, fromMaybe
, helpMessage
, isEmpty
, literal
, map
@@ -240,37 +239,6 @@ getName =
--- Parse pattern
helpMessage : String
helpMessage =
"""
A pattern allows to customize the title and subtitle of each card.
Variables expressions are enclosed in `{{` and `}}`, other text is
used as-is. The following variables are available:
- `{{name}}` the item name
- `{{source}}` the source the item was created from
- `{{folder}}` the items folder
- `{{corrOrg}}` the correspondent organization
- `{{corrPerson}}` the correspondent person
- `{{correspondent}}` both organization and person separated by a comma
- `{{concPerson}}` the concerning person
- `{{concEquip}}` the concerning equipment
- `{{concerning}}` both person and equipment separated by a comma
- `{{fileCount}}` the number of attachments of this item
- `{{dateLong}}` the item date as full formatted date
- `{{dateShort}}` the item date as short formatted date (yyyy/mm/dd)
- `{{dueDateLong}}` the item due date as full formatted date
- `{{dueDateShort}}` the item due date as short formatted date (yyyy/mm/dd)
- `{{direction}}` the items direction values as string
If some variable is not present, an empty string is rendered. You can
combine multiple variables with `|` to use the first non-empty one,
for example `{{corrOrg|corrPerson|-}}` would render the organization
and if that is not present the person. If both are absent a dash `-`
is rendered.
"""
knownPattern : String -> Maybe ItemTemplate
knownPattern str =
case str of

20
modules/webapp/src/main/elm/Messages/Basics.elm
View File

@@ -21,6 +21,16 @@ type alias Texts =
, no : String
, chooseTag : String
, loading : String
, name : String
, organization : String
, person : String
, equipment : String
, folder : String
, date : String
, correspondent : String
, concerning : String
, customFields : String
, direction : String
}
@@ -45,6 +55,16 @@ gb =
, no = "No"
, chooseTag = "Choose a tag…"
, loading = "Loading…"
, name = "Name"
, organization = "Organization"
, person = "Person"
, equipment = "Equipment"
, folder = "Folder"
, date = "Date"
, correspondent = "Correspondent"
, concerning = "Concerning"
, customFields = "Custom Fields"
, direction = "Direction"
}

2
modules/webapp/src/main/elm/Messages/Comp/CustomFieldForm.elm
View File

@@ -11,7 +11,6 @@ type alias Texts =
, fieldTypeLabel : CustomFieldType -> String
, createCustomField : String
, modifyTypeWarning : String
, name : String
, nameInfo : String
, fieldFormat : String
, fieldFormatInfo : String
@@ -30,7 +29,6 @@ gb =
, modifyTypeWarning =
"Note that changing the format may "
++ "result in invisible values in the ui, if they don't comply to the new format!"
, name = "Name"
, nameInfo =
"The name uniquely identifies this field. It must be a valid "
++ "identifier, not contain spaces or weird characters."

9
modules/webapp/src/main/elm/Messages/Comp/EmailSettingsForm.elm
View File

@@ -1,12 +1,13 @@
module Messages.Comp.EmailSettingsForm exposing (..)
import Data.SSLType exposing (SSLType)
import Messages.Basics
import Messages.Data.SSLType
type alias Texts =
{ sslTypeLabel : SSLType -> String
, name : String
{ basics : Messages.Basics.Texts
, sslTypeLabel : SSLType -> String
, connectionPlaceholder : String
, connectionNameInfo : String
, smtpHost : String
@@ -27,8 +28,8 @@ type alias Texts =
gb : Texts
gb =
{ sslTypeLabel = Messages.Data.SSLType.gb
, name = "Name"
{ basics = Messages.Basics.gb
, sslTypeLabel = Messages.Data.SSLType.gb
, connectionPlaceholder = "Connection name, e.g. 'gmail.com'"
, connectionNameInfo = "The connection name must not contain whitespace or special characters."
, smtpHost = "SMTP Host"

6
modules/webapp/src/main/elm/Messages/Comp/EmailSettingsTable.elm
View File

@@ -1,8 +1,10 @@
module Messages.Comp.EmailSettingsTable exposing (..)
import Messages.Basics
type alias Texts =
{ name : String
{ basics : Messages.Basics.Texts
, hostPort : String
, from : String
}
@@ -10,7 +12,7 @@ type alias Texts =
gb : Texts
gb =
{ name = "Name"
{ basics = Messages.Basics.gb
, hostPort = "Host/Port"
, from = "From"
}

15
modules/webapp/src/main/elm/Messages/Comp/EquipmentForm.elm
View File

@@ -1,15 +1,26 @@
module Messages.Comp.EquipmentForm exposing (..)
import Data.EquipmentUse exposing (EquipmentUse)
import Messages.Basics
import Messages.Data.EquipmentUse
type alias Texts =
{ equipmentUseLabel : EquipmentUse -> String
{ basics : Messages.Basics.Texts
, use : String
, useAsConcerning : String
, useNotSuggestions : String
, equipmentUseLabel : EquipmentUse -> String
, notes : String
}
gb : Texts
gb =
{ equipmentUseLabel = Messages.Data.EquipmentUse.gb
{ basics = Messages.Basics.gb
, use = "Use"
, useAsConcerning = "Use as concerning equipment"
, useNotSuggestions = "Do not use for suggestions."
, equipmentUseLabel = Messages.Data.EquipmentUse.gb
, notes = "Notes"
}

5
modules/webapp/src/main/elm/Messages/Comp/EquipmentTable.elm
View File

@@ -1,11 +1,12 @@
module Messages.Comp.EquipmentTable exposing (..)
import Data.EquipmentUse exposing (EquipmentUse)
import Messages.Basics
import Messages.Data.EquipmentUse
type alias Texts =
{ name : String
{ basics : Messages.Basics.Texts
, use : String
, equipmentUseLabel : EquipmentUse -> String
}
@@ -13,7 +14,7 @@ type alias Texts =
gb : Texts
gb =
{ name = "Name"
{ basics = Messages.Basics.gb
, use = "Use"
, equipmentUseLabel = Messages.Data.EquipmentUse.gb
}

2
modules/webapp/src/main/elm/Messages/Comp/FolderDetail.elm
View File

@@ -9,7 +9,6 @@ type alias Texts =
, autoOwnerInfo : String
, modifyInfo : String
, notOwnerInfo : String
, name : String
, members : String
, addMember : String
, add : String
@@ -25,7 +24,6 @@ gb =
, autoOwnerInfo = "You are automatically set as owner of this new folder."
, modifyInfo = "Modify this folder by changing the name or add/remove members."
, notOwnerInfo = "You are not the owner of this folder and therefore are not allowed to edit it."
, name = "Name"
, members = "Members"
, addMember = "Add a new member"
, add = "Add"

2
modules/webapp/src/main/elm/Messages/Comp/FolderTable.elm
View File

@@ -5,7 +5,6 @@ import Messages.Basics
type alias Texts =
{ basics : Messages.Basics.Texts
, name : String
, memberCount : String
}
@@ -13,6 +12,5 @@ type alias Texts =
gb : Texts
gb =
{ basics = Messages.Basics.gb
, name = "Name"
, memberCount = "#Member"
}

9
modules/webapp/src/main/elm/Messages/Comp/ImapSettingsForm.elm
View File

@@ -1,12 +1,13 @@
module Messages.Comp.ImapSettingsForm exposing (..)
import Data.SSLType exposing (SSLType)
import Messages.Basics
import Messages.Data.SSLType
type alias Texts =
{ sslTypeLabel : SSLType -> String
, name : String
{ basics : Messages.Basics.Texts
, sslTypeLabel : SSLType -> String
, connectionNamePlaceholder : String
, connectionNameInfo : String
, imapHost : String
@@ -25,8 +26,8 @@ type alias Texts =
gb : Texts
gb =
{ sslTypeLabel = Messages.Data.SSLType.gb
, name = "Name"
{ basics = Messages.Basics.gb
, sslTypeLabel = Messages.Data.SSLType.gb
, connectionNamePlaceholder = "Connection name, e.g. 'gmail.com'"
, connectionNameInfo = "The connection name must not contain whitespace or special characters."
, imapHost = "IMAP Host"

6
modules/webapp/src/main/elm/Messages/Comp/ImapSettingsTable.elm
View File

@@ -1,14 +1,16 @@
module Messages.Comp.ImapSettingsTable exposing (..)
import Messages.Basics
type alias Texts =
{ name : String
{ basics : Messages.Basics.Texts
, hostPort : String
}
gb : Texts
gb =
{ name = "Name"
{ basics = Messages.Basics.gb
, hostPort = "Host/Port"
}

16
modules/webapp/src/main/elm/Messages/Comp/ItemCard.elm
View File

@@ -1,12 +1,24 @@
module Messages.Comp.ItemCard exposing (..)
import Messages.Basics
type alias Texts =
{ folder : String
{ basics : Messages.Basics.Texts
, dueOn : String
, new : String
, openAttachmentFile : String
, gotoDetail : String
, cycleAttachments : String
}
gb : Texts
gb =
{ folder = "Folder"
{ basics = Messages.Basics.gb
, dueOn = "Due on"
, new = "New"
, openAttachmentFile = "Open attachment file"
, gotoDetail = "Go to detail view"
, cycleAttachments = "Cycle attachments"
}

16
modules/webapp/src/main/elm/Messages/Comp/ItemDetail/EditForm.elm
View File

@@ -10,25 +10,17 @@ type alias Texts =
, createNewCustomField : String
, chooseDirection : String
, selectPlaceholder : String
, nameTab : String
, dateTab : String
, folderTab : String
, folderNotOwnerWarning : String
, customFieldsTab : String
, dueDateTab : String
, correspondentTab : String
, organization : String
, addNewOrg : String
, editOrg : String
, chooseOrg : String
, addNewCorrespondentPerson : String
, editPerson : String
, personOrgInfo : String
, concerningTab : String
, addNewConcerningPerson : String
, addNewEquipment : String
, editEquipment : String
, directionTab : String
, suggestions : String
}
@@ -40,29 +32,21 @@ gb =
, createNewCustomField = "Create new custom field"
, chooseDirection = "Choose a direction…"
, selectPlaceholder = "Select…"
, nameTab = "Name"
, dateTab = "Date"
, folderTab = "Folder"
, folderNotOwnerWarning =
"""
You are **not a member** of this folder. This item will be **hidden**
from any search now. Use a folder where you are a member of to make this
item visible. This message will disappear then.
"""
, customFieldsTab = "Custom Fields"
, dueDateTab = "Due Date"
, correspondentTab = "Correspondent"
, organization = "Organization"
, addNewOrg = "Add new organization"
, editOrg = "Edit organization"
, chooseOrg = "Choose an organization"
, addNewCorrespondentPerson = "Add new correspondent person"
, editPerson = "Edit person"
, personOrgInfo = "The selected person doesn't belong to the selected organization."
, concerningTab = "Concerning"
, addNewConcerningPerson = "Add new concerning person"
, addNewEquipment = "Add new equipment"
, editEquipment = "Edit equipment"
, directionTab = "Direction"
, suggestions = "Suggestions"
}

14
modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ItemInfoHeader.elm
View File

@@ -1,12 +1,12 @@
module Messages.Comp.ItemDetail.ItemInfoHeader exposing (..)
import Messages.Basics
type alias Texts =
{ itemDate : String
{ basics : Messages.Basics.Texts
, itemDate : String
, dueDate : String
, correspondent : String
, concerning : String
, folder : String
, source : String
, new : String
}
@@ -14,11 +14,9 @@ type alias Texts =
gb : Texts
gb =
{ itemDate = "Item Date"
{ basics = Messages.Basics.gb
, itemDate = "Item Date"
, dueDate = "Due Date"
, correspondent = "Correspondent"
, concerning = "Concerning"
, folder = "Folder"
, source = "Source"
, new = "New"
}

20
modules/webapp/src/main/elm/Messages/Comp/ItemDetail/MultiEditMenu.elm
View File

@@ -16,18 +16,8 @@ type alias Texts =
, confirm : String
, unconfirm : String
, changeTagMode : String
, folderTab : String
, folderNotOwnerWarning : String
, customFieldsTab : String
, dateTab : String
, dueDateTab : String
, correspondentTab : String
, organization : String
, person : String
, concerningTab : String
, equipment : String
, directionTab : String
, nameTab : String
}
@@ -44,21 +34,11 @@ gb =
, confirm = "Confirm"
, unconfirm = "Unconfirm"
, changeTagMode = "Change tag edit mode"
, folderTab = "Folder"
, folderNotOwnerWarning =
"""
You are **not a member** of this folder. This item will be **hidden**
from any search now. Use a folder where you are a member of to make this
item visible. This message will disappear then.
"""
, customFieldsTab = "Custom Fields"
, dateTab = "Date"
, dueDateTab = "Due Date"
, correspondentTab = "Correspondent"
, organization = "Organization"
, person = "Person"
, concerningTab = "Concerning"
, equipment = "Equipment"
, directionTab = "Direction"
, nameTab = "Name"
}

9
modules/webapp/src/main/elm/Messages/Comp/OrgForm.elm
View File

@@ -2,15 +2,16 @@ module Messages.Comp.OrgForm exposing (..)
import Data.ContactType exposing (ContactType)
import Data.OrgUse exposing (OrgUse)
import Messages.Basics
import Messages.Comp.AddressForm
import Messages.Data.ContactType
import Messages.Data.OrgUse
type alias Texts =
{ addressForm : Messages.Comp.AddressForm.Texts
{ basics : Messages.Basics.Texts
, addressForm : Messages.Comp.AddressForm.Texts
, orgUseLabel : OrgUse -> String
, name : String
, shortName : String
, use : String
, useAsCorrespondent : String
@@ -24,9 +25,9 @@ type alias Texts =
gb : Texts
gb =
{ addressForm = Messages.Comp.AddressForm.gb
{ basics = Messages.Basics.gb
, addressForm = Messages.Comp.AddressForm.gb
, orgUseLabel = Messages.Data.OrgUse.gb
, name = "Name"
, shortName = "Short Name"
, use = "Use"
, useAsCorrespondent = "Use as correspondent"

2
modules/webapp/src/main/elm/Messages/Comp/OrgTable.elm
View File

@@ -7,7 +7,6 @@ import Messages.Data.OrgUse
type alias Texts =
{ basics : Messages.Basics.Texts
, name : String
, address : String
, contact : String
, orgUseLabel : OrgUse -> String
@@ -17,7 +16,6 @@ type alias Texts =
gb : Texts
gb =
{ basics = Messages.Basics.gb
, name = "Name"
, address = "Address"
, contact = "Contact"
, orgUseLabel = Messages.Data.OrgUse.gb

11
modules/webapp/src/main/elm/Messages/Comp/PersonForm.elm
View File

@@ -2,21 +2,21 @@ module Messages.Comp.PersonForm exposing (..)
import Data.ContactType exposing (ContactType)
import Data.PersonUse exposing (PersonUse)
import Messages.Basics
import Messages.Comp.AddressForm
import Messages.Data.ContactType
import Messages.Data.PersonUse
type alias Texts =
{ addressForm : Messages.Comp.AddressForm.Texts
{ basics : Messages.Basics.Texts
, addressForm : Messages.Comp.AddressForm.Texts
, personUseLabel : PersonUse -> String
, name : String
, useOfPerson : String
, useAsConcerningOnly : String
, useAsCorrespondentOnly : String
, useAsBoth : String
, dontUseForSuggestions : String
, organization : String
, chooseAnOrg : String
, address : String
, contacts : String
@@ -27,15 +27,14 @@ type alias Texts =
gb : Texts
gb =
{ addressForm = Messages.Comp.AddressForm.gb
{ basics = Messages.Basics.gb
, addressForm = Messages.Comp.AddressForm.gb
, personUseLabel = Messages.Data.PersonUse.gb
, name = "Name"
, useOfPerson = "Use of this person"
, useAsConcerningOnly = "Use as concerning person only"
, useAsCorrespondentOnly = "Use as correspondent person only"
, useAsBoth = "Use as both concerning or correspondent person"
, dontUseForSuggestions = "Do not use for suggestions."
, organization = "Organization"
, chooseAnOrg = "Choose an organization"
, address = "Address"
, contacts = "Contacts"

4
modules/webapp/src/main/elm/Messages/Comp/PersonTable.elm
View File

@@ -7,9 +7,9 @@ import Messages.Data.PersonUse
type alias Texts =
{ basics : Messages.Basics.Texts
, name : String
, address : String
, contact : String
, use : String
, personUseLabel : PersonUse -> String
}
@@ -17,8 +17,8 @@ type alias Texts =
gb : Texts
gb =
{ basics = Messages.Basics.gb
, name = "Name"
, address = "Address"
, contact = "Contact"
, use = "Use"
, personUseLabel = Messages.Data.PersonUse.gb
}

18
modules/webapp/src/main/elm/Messages/Comp/SearchMenu.elm
View File

@@ -21,16 +21,8 @@ type alias Texts =
, fulltextSearchInfo : String
, nameSearchInfo : String
, tagCategoryTab : String
, folderTab : String
, correspondentTab : String
, organization : String
, chooseOrganization : String
, person : String
, concerningTab : String
, equipment : String
, customFieldsTab : String
, createCustomFieldTitle : String
, dateTab : String
, from : String
, to : String
, dueDateTab : String
@@ -38,7 +30,6 @@ type alias Texts =
, dueTo : String
, sourceTab : String
, searchInItemSource : String
, directionTab : String
}
@@ -59,16 +50,8 @@ gb =
, fulltextSearchInfo = "Fulltext search in document contents and notes."
, nameSearchInfo = "Looks in correspondents, concerned entities, item name and notes."
, tagCategoryTab = "Tag Categories"
, folderTab = "Folder"
, correspondentTab = "Correspondent"
, organization = "Organization"
, chooseOrganization = "Choose an organization"
, person = "Person"
, concerningTab = "Concerning"
, equipment = "Equipment"
, customFieldsTab = "Custom Fields"
, createCustomFieldTitle = "Create a new custom field"
, dateTab = "Date"
, from = "From"
, to = "To"
, dueDateTab = "Due Date"
@@ -76,5 +59,4 @@ gb =
, dueTo = "Due To"
, sourceTab = "Source"
, searchInItemSource = "Search in item source…"
, directionTab = "Direction"
}

4
modules/webapp/src/main/elm/Messages/Comp/SourceForm.elm
View File

@@ -7,14 +7,12 @@ import Messages.Data.Language
type alias Texts =
{ basics : Messages.Basics.Texts
, name : String
, description : String
, enabled : String
, priority : String
, priorityInfo : String
, metadata : String
, metadataInfoText : String
, folder : String
, folderInfo : String
, folderForbiddenText : String
, tagsInfo : String
@@ -30,7 +28,6 @@ type alias Texts =
gb : Texts
gb =
{ basics = Messages.Basics.gb
, name = "Name"
, description = "Description"
, enabled = "Enabled"
, priority = "Priority"
@@ -40,7 +37,6 @@ gb =
"Metadata specified here is automatically attached to each item uploaded "
++ "through this source, unless it is overriden in the upload request meta data. "
++ "Tags from the request are added to those defined here."
, folder = "Folder"
, folderInfo = "Choose a folder to automatically put items into."
, folderForbiddenText =
"""

10
modules/webapp/src/main/elm/Messages/Comp/TagForm.elm
View File

@@ -1,16 +1,18 @@
module Messages.Comp.TagForm exposing (..)
import Messages.Basics
type alias Texts =
{ selectDefineCategory : String
, name : String
{ basics : Messages.Basics.Texts
, selectDefineCategory : String
, category : String
}
gb : Texts
gb =
{ selectDefineCategory = "Select or define category..."
, name = "Name"
{ basics = Messages.Basics.gb
, selectDefineCategory = "Select or define category..."
, category = "Category"
}

6
modules/webapp/src/main/elm/Messages/Comp/TagTable.elm
View File

@@ -1,14 +1,16 @@
module Messages.Comp.TagTable exposing (..)
import Messages.Basics
type alias Texts =
{ name : String
{ basics : Messages.Basics.Texts
, category : String
}
gb : Texts
gb =
{ name = "Name"
{ basics = Messages.Basics.gb
, category = "Category"
}

29
modules/webapp/src/main/elm/Messages/Comp/UiSettingsForm.elm
View File

@@ -39,6 +39,7 @@ type alias Texts =
, fields : String
, fieldsInfo : String
, fieldLabel : Field -> String
, templateHelpMessage : String
}
@@ -84,4 +85,32 @@ gb =
, fields = "Fields"
, fieldsInfo = "Choose which fields to display in search and edit menus."
, fieldLabel = Messages.Data.Fields.gb
, templateHelpMessage =
"""
A pattern allows to customize the title and subtitle of each card.
Variables expressions are enclosed in `{{` and `}}`, other text is
used as-is. The following variables are available:
- `{{name}}` the item name
- `{{source}}` the source the item was created from
- `{{folder}}` the items folder
- `{{corrOrg}}` the correspondent organization
- `{{corrPerson}}` the correspondent person
- `{{correspondent}}` both organization and person separated by a comma
- `{{concPerson}}` the concerning person
- `{{concEquip}}` the concerning equipment
- `{{concerning}}` both person and equipment separated by a comma
- `{{fileCount}}` the number of attachments of this item
- `{{dateLong}}` the item date as full formatted date
- `{{dateShort}}` the item date as short formatted date (yyyy/mm/dd)
- `{{dueDateLong}}` the item due date as full formatted date
- `{{dueDateShort}}` the item due date as short formatted date (yyyy/mm/dd)
- `{{direction}}` the items direction values as string
If some variable is not present, an empty string is rendered. You can
combine multiple variables with `|` to use the first non-empty one,
for example `{{corrOrg|corrPerson|-}}` would render the organization
and if that is not present the person. If both are absent a dash `-`
is rendered.
"""
}

2
modules/webapp/src/main/elm/Messages/Comp/UserTable.elm
View File

@@ -10,7 +10,6 @@ type alias Texts =
, email : String
, logins : String
, lastLogin : String
, created : String
}
@@ -22,5 +21,4 @@ gb =
, email = "E-Mail"
, logins = "Logins"
, lastLogin = "Last Login"
, created = "Created"
}

2
modules/webapp/src/main/elm/Messages/Data/Color.elm
View File

@@ -7,7 +7,7 @@ gb : Color -> String
gb color =
case color of
Red ->
"Rot"
"Red"
Orange ->
"Orange"

10
modules/webapp/src/main/elm/Messages/Page/ManageData.elm
View File

@@ -18,11 +18,6 @@ type alias Texts =
, folderManage : Messages.Comp.FolderManage.Texts
, customFieldManage : Messages.Comp.CustomFieldManage.Texts
, manageData : String
, equipment : String
, organization : String
, person : String
, folder : String
, customFields : String
}
@@ -36,11 +31,6 @@ gb =
, folderManage = Messages.Comp.FolderManage.gb
, customFieldManage = Messages.Comp.CustomFieldManage.gb
, manageData = "Manage Data"
, equipment = "Equipment"
, organization = "Organization"
, person = "Person"
, folder = "Folder"
, customFields = "Custom Fields"
}

20
modules/webapp/src/main/elm/Page/ManageData/View2.elm
View File

@@ -53,7 +53,7 @@ viewSidebar texts visible _ settings model =
[ Icons.equipmentIcon2 ""
, span
[ class "ml-3" ]
[ text texts.equipment
[ text texts.basics.equipment
]
]
, a
@@ -65,7 +65,7 @@ viewSidebar texts visible _ settings model =
[ Icons.organizationIcon2 ""
, span
[ class "ml-3" ]
[ text texts.organization
[ text texts.basics.organization
]
]
, a
@@ -77,7 +77,7 @@ viewSidebar texts visible _ settings model =
[ Icons.personIcon2 ""
, span
[ class "ml-3" ]
[ text texts.person
[ text texts.basics.person
]
]
, a
@@ -94,7 +94,7 @@ viewSidebar texts visible _ settings model =
[ Icons.folderIcon2 ""
, span
[ class "ml-3" ]
[ text texts.folder
[ text texts.basics.folder
]
]
, a
@@ -111,7 +111,7 @@ viewSidebar texts visible _ settings model =
[ Icons.customFieldIcon2 ""
, span
[ class "ml-3" ]
[ text texts.customFields
[ text texts.basics.customFields
]
]
]
@@ -184,7 +184,7 @@ viewEquip texts model =
]
[ Icons.equipmentIcon2 ""
, div [ class "ml-2" ]
[ text texts.equipment
[ text texts.basics.equipment
]
]
, Html.map EquipManageMsg
@@ -202,7 +202,7 @@ viewOrg texts settings model =
]
[ Icons.organizationIcon2 ""
, div [ class "ml-2" ]
[ text "Organizations"
[ text texts.basics.organization
]
]
, Html.map OrgManageMsg
@@ -221,7 +221,7 @@ viewPerson texts settings model =
]
[ Icons.personIcon2 ""
, div [ class "ml-2" ]
[ text "Person"
[ text texts.basics.person
]
]
, Html.map PersonManageMsg
@@ -242,7 +242,7 @@ viewFolder texts flags _ model =
, div
[ class "ml-2"
]
[ text texts.folder
[ text texts.basics.folder
]
]
, Html.map FolderMsg
@@ -258,7 +258,7 @@ viewCustomFields texts flags _ model =
]
[ Icons.customFieldIcon2 ""
, div [ class "ml-2" ]
[ text texts.customFields
[ text texts.basics.customFields
]
]
, Html.map CustomFieldMsg