Externalize more strings missed before

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

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"
}

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."

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"

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"
}

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"
}

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
}

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"

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"
}

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"

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"
}

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"
}

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"
}

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"
}

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"
}

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"

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

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"

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
}

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"
}

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 =
"""

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"
}

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"
}

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.
"""
}

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"
}

View File

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

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"
}