Require a time zone when formatting date-times

This commit is contained in:
eikek
2022-03-01 21:58:30 +01:00
parent 6d822a0769
commit 6f7eafcebc
51 changed files with 456 additions and 349 deletions

View File

@ -22,6 +22,7 @@
"elm/url": "1.0.0",
"elm-explorations/markdown": "1.0.0",
"justinmimbs/date": "3.1.2",
"justinmimbs/timezone-data": "5.1.2",
"norpan/elm-html5-drag-drop": "3.1.4",
"pablohirafuji/elm-qrcode": "4.0.1",
"ryannhg/date-format": "2.3.0",

View File

@ -68,7 +68,7 @@ updateWithSub : Msg -> Model -> ( Model, Cmd Msg, Sub Msg )
updateWithSub msg model =
let
texts =
Messages.get <| App.Data.getUiLanguage model
Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
in
case msg of
ToggleSidebar ->
@ -648,7 +648,7 @@ initPage model_ page =
{ model_ | page = page }
texts =
Messages.get <| App.Data.getUiLanguage model
Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
noop =
( model, Cmd.none, Sub.none )

View File

@ -59,7 +59,7 @@ topNavUser : AuthResult -> Model -> Html Msg
topNavUser auth model =
let
texts =
Messages.get <| App.Data.getUiLanguage model
Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
in
nav
[ id "top-nav"
@ -161,7 +161,7 @@ mainContent : Model -> Html Msg
mainContent model =
let
texts =
Messages.get <| App.Data.getUiLanguage model
Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
in
div
[ id "main"
@ -227,12 +227,12 @@ langMenu : Model -> Html Msg
langMenu model =
let
texts =
Messages.get <| App.Data.getUiLanguage model
Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
langItem lang =
let
langMsg =
Messages.get lang
Messages.get lang model.uiSettings.timeZone
in
a
[ classList

View File

@ -32,6 +32,7 @@ import Data.Flags exposing (Flags)
import Data.ItemTemplate as IT exposing (ItemTemplate)
import Data.Pdf exposing (PdfMode)
import Data.TagOrder
import Data.TimeZone
import Data.UiSettings exposing (ItemPattern, StoredUiSettings, UiSettings)
import Dict exposing (Dict)
import Html exposing (..)
@ -646,8 +647,8 @@ settingFormTabs : Texts -> Flags -> StoredUiSettings -> Model -> List (Comp.Tabs
settingFormTabs texts flags _ model =
let
langCfg =
{ display = \lang -> Messages.get lang |> .label
, icon = \lang -> Just (Messages.get lang |> .flagIcon)
{ display = \lang -> Messages.get lang Data.TimeZone.utc |> .label
, icon = \lang -> Just (Messages.get lang Data.TimeZone.utc |> .flagIcon)
, style = DS.mainStyle
, selectPlaceholder = texts.basics.selectPlaceholder
}

View File

@ -0,0 +1,47 @@
{-
Copyright 2020 Eike K. & Contributors
SPDX-License-Identifier: AGPL-3.0-or-later
-}
module Data.TimeZone exposing (TimeZone, get, listAll, toName, toZone, utc)
import Dict
import Time exposing (Zone)
import TimeZone as TZ
type TimeZone
= TimeZone ( String, Zone )
get : String -> Maybe TimeZone
get name =
case String.toLower name of
"utc" ->
Just utc
_ ->
Dict.get name TZ.zones
|> Maybe.map (\z -> TimeZone ( name, z () ))
toName : TimeZone -> String
toName (TimeZone ( name, _ )) =
name
toZone : TimeZone -> Zone
toZone (TimeZone ( _, zone )) =
zone
utc : TimeZone
utc =
TimeZone ( "UTC", Time.utc )
listAll : List String
listAll =
"UTC" :: Dict.keys TZ.zones

View File

@ -40,6 +40,7 @@ import Data.Flags exposing (Flags)
import Data.ItemArrange exposing (ItemArrange)
import Data.ItemTemplate exposing (ItemTemplate)
import Data.Pdf exposing (PdfMode)
import Data.TimeZone exposing (TimeZone)
import Data.UiTheme exposing (UiTheme)
import Dict exposing (Dict)
import Html exposing (Attribute, Html, embed, iframe)
@ -80,6 +81,7 @@ type alias StoredUiSettings =
, uiLang : Maybe String
, itemSearchShowGroups : Maybe Bool
, itemSearchArrange : Maybe String
, timeZone : Maybe String
}
@ -105,6 +107,7 @@ emptyStoredSettings =
, uiLang = Nothing
, itemSearchShowGroups = Nothing
, itemSearchArrange = Nothing
, timeZone = Nothing
}
@ -141,6 +144,7 @@ storedUiSettingsDecoder =
|> P.optional "uiLang" maybeString Nothing
|> P.optional "itemSearchShowGroups" maybeBool Nothing
|> P.optional "itemSearchArrange" maybeString Nothing
|> P.optional "timeZone" maybeString Nothing
storedUiSettingsEncode : StoredUiSettings -> Encode.Value
@ -173,6 +177,7 @@ storedUiSettingsEncode value =
, maybeEnc "uiLang" Encode.string value.uiLang
, maybeEnc "itemSearchShowGroups" Encode.bool value.itemSearchShowGroups
, maybeEnc "itemSearchArrange" Encode.string value.itemSearchArrange
, maybeEnc "timeZone" Encode.string value.timeZone
]
@ -205,6 +210,7 @@ type alias UiSettings =
, uiLang : UiLanguage
, itemSearchShowGroups : Bool
, itemSearchArrange : ItemArrange
, timeZone : TimeZone
}
@ -248,6 +254,7 @@ defaults =
, uiLang = Messages.UiLanguage.English
, itemSearchShowGroups = True
, itemSearchArrange = Data.ItemArrange.Cards
, timeZone = Data.TimeZone.utc
}
@ -306,6 +313,9 @@ merge given fallback =
, itemSearchArrange =
Maybe.andThen Data.ItemArrange.fromString given.itemSearchArrange
|> Maybe.withDefault fallback.itemSearchArrange
, timeZone =
Maybe.andThen Data.TimeZone.get given.timeZone
|> Maybe.withDefault fallback.timeZone
}
@ -344,6 +354,7 @@ convert settings =
, uiLang = Just <| Messages.toIso2 settings.uiLang
, itemSearchShowGroups = Just settings.itemSearchShowGroups
, itemSearchArrange = Data.ItemArrange.asString settings.itemSearchArrange |> Just
, timeZone = Data.TimeZone.toName settings.timeZone |> Just
}

View File

@ -12,6 +12,7 @@ module Messages exposing
, toIso2
)
import Data.TimeZone exposing (TimeZone)
import Messages.App
import Messages.Page.CollectiveSettings
import Messages.Page.Dashboard
@ -33,6 +34,7 @@ import Messages.UiLanguage exposing (UiLanguage(..))
-}
type alias Messages =
{ lang : UiLanguage
, timeZone : TimeZone
, iso2 : String
, label : String
, flagIcon : String
@ -53,21 +55,21 @@ type alias Messages =
}
get : UiLanguage -> Messages
get lang =
get : UiLanguage -> TimeZone -> Messages
get lang tz =
case lang of
English ->
gb
gb tz
German ->
de
de tz
{-| Get a ISO-3166-1 code of the given lanugage.
-}
toIso2 : UiLanguage -> String
toIso2 lang =
get lang |> .iso2
get lang Data.TimeZone.utc |> .iso2
{-| Return the UiLanguage from given iso2 code. If the iso2 code is not
@ -98,47 +100,49 @@ fromIso2 iso =
-- use two classes: flag-icon flag-icon-xx where xx is the two-letter country code
gb : Messages
gb =
gb : TimeZone -> Messages
gb tz =
{ lang = English
, timeZone = tz
, iso2 = "gb"
, label = "English"
, flagIcon = "flag-icon flag-icon-gb"
, app = Messages.App.gb
, collectiveSettings = Messages.Page.CollectiveSettings.gb
, collectiveSettings = Messages.Page.CollectiveSettings.gb tz
, login = Messages.Page.Login.gb
, register = Messages.Page.Register.gb
, newInvite = Messages.Page.NewInvite.gb
, upload = Messages.Page.Upload.gb
, itemDetail = Messages.Page.ItemDetail.gb
, queue = Messages.Page.Queue.gb
, userSettings = Messages.Page.UserSettings.gb
, manageData = Messages.Page.ManageData.gb
, search = Messages.Page.Search.gb
, share = Messages.Page.Share.gb
, shareDetail = Messages.Page.ShareDetail.gb
, dashboard = Messages.Page.Dashboard.gb
, itemDetail = Messages.Page.ItemDetail.gb tz
, queue = Messages.Page.Queue.gb tz
, userSettings = Messages.Page.UserSettings.gb tz
, manageData = Messages.Page.ManageData.gb tz
, search = Messages.Page.Search.gb tz
, share = Messages.Page.Share.gb tz
, shareDetail = Messages.Page.ShareDetail.gb tz
, dashboard = Messages.Page.Dashboard.gb tz
}
de : Messages
de =
de : TimeZone -> Messages
de tz =
{ lang = German
, timeZone = tz
, iso2 = "de"
, label = "Deutsch"
, flagIcon = "flag-icon flag-icon-de"
, app = Messages.App.de
, collectiveSettings = Messages.Page.CollectiveSettings.de
, collectiveSettings = Messages.Page.CollectiveSettings.de tz
, login = Messages.Page.Login.de
, register = Messages.Page.Register.de
, newInvite = Messages.Page.NewInvite.de
, upload = Messages.Page.Upload.de
, itemDetail = Messages.Page.ItemDetail.de
, queue = Messages.Page.Queue.de
, userSettings = Messages.Page.UserSettings.de
, manageData = Messages.Page.ManageData.de
, search = Messages.Page.Search.de
, share = Messages.Page.Share.de
, shareDetail = Messages.Page.ShareDetail.de
, dashboard = Messages.Page.Dashboard.de
, itemDetail = Messages.Page.ItemDetail.de tz
, queue = Messages.Page.Queue.de tz
, userSettings = Messages.Page.UserSettings.de tz
, manageData = Messages.Page.ManageData.de tz
, search = Messages.Page.Search.de tz
, share = Messages.Page.Share.de tz
, shareDetail = Messages.Page.ShareDetail.de tz
, dashboard = Messages.Page.Dashboard.de tz
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.AttachmentMeta exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -35,8 +36,8 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, httpError = Messages.Comp.HttpError.gb
, extractedMetadata = "Extracted Meta Data"
@ -49,12 +50,12 @@ gb =
, concerningEquipment = "Concerning Equipment"
, itemDate = "Item Date"
, itemDueDate = "Item Due Date"
, formatDateShort = DF.formatDateShort Messages.UiLanguage.English
, formatDateShort = DF.formatDateShort Messages.UiLanguage.English tz
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, httpError = Messages.Comp.HttpError.de
, extractedMetadata = "Extrahierte Metadaten"
@ -67,5 +68,5 @@ de =
, concerningEquipment = "Betreffende Ausstattung"
, itemDate = "Datum"
, itemDueDate = "Fälligkeitsdatum"
, formatDateShort = DF.formatDateShort Messages.UiLanguage.German
, formatDateShort = DF.formatDateShort Messages.UiLanguage.German tz
}

View File

@ -8,6 +8,7 @@
module Messages.Comp.BoxQueryView exposing (Texts, de, gb)
import Data.ItemTemplate as IT
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -27,30 +28,30 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ httpError = Messages.Comp.HttpError.gb
, errorOccurred = "Error retrieving data."
, basics = Messages.Basics.gb
, noResults = "No items found."
, templateCtx =
{ dateFormatLong = DF.formatDateLong Messages.UiLanguage.English
, dateFormatShort = DF.formatDateShort Messages.UiLanguage.English
{ dateFormatLong = DF.formatDateLong Messages.UiLanguage.English tz
, dateFormatShort = DF.formatDateShort Messages.UiLanguage.English tz
, directionLabel = Messages.Data.Direction.gb
}
, itemColumn = Messages.Data.ItemColumn.gb
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ httpError = Messages.Comp.HttpError.de
, errorOccurred = "Fehler beim Laden der Daten."
, basics = Messages.Basics.de
, noResults = "Keine Dokumente gefunden."
, templateCtx =
{ dateFormatLong = DF.formatDateLong Messages.UiLanguage.German
, dateFormatShort = DF.formatDateShort Messages.UiLanguage.German
{ dateFormatLong = DF.formatDateLong Messages.UiLanguage.German tz
, dateFormatShort = DF.formatDateShort Messages.UiLanguage.German tz
, directionLabel = Messages.Data.Direction.de
}
, itemColumn = Messages.Data.ItemColumn.de

View File

@ -7,6 +7,7 @@
module Messages.Comp.BoxView exposing (Texts, de, gb)
import Data.TimeZone exposing (TimeZone)
import Messages.Comp.BoxQueryView
import Messages.Comp.BoxStatsView
import Messages.Comp.BoxUploadView
@ -19,17 +20,17 @@ type alias Texts =
}
gb : Texts
gb =
{ queryView = Messages.Comp.BoxQueryView.gb
gb : TimeZone -> Texts
gb tz =
{ queryView = Messages.Comp.BoxQueryView.gb tz
, statsView = Messages.Comp.BoxStatsView.gb
, uploadView = Messages.Comp.BoxUploadView.gb
}
de : Texts
de =
{ queryView = Messages.Comp.BoxQueryView.de
de : TimeZone -> Texts
de tz =
{ queryView = Messages.Comp.BoxQueryView.de tz
, statsView = Messages.Comp.BoxStatsView.de
, uploadView = Messages.Comp.BoxUploadView.de
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.CalEventInput exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Comp.HttpError
import Messages.DateFormat as DF
@ -32,8 +33,8 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ weekday = "Weekday"
, year = "Year"
, month = "Month"
@ -43,13 +44,13 @@ gb =
, error = "Error"
, schedule = "Schedule"
, next = "Next"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
, httpError = Messages.Comp.HttpError.gb
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ weekday = "Wochentag"
, year = "Jahr"
, month = "Monat"
@ -59,6 +60,6 @@ de =
, error = "Fehler"
, schedule = "Zeitplan"
, next = "Nächste Zeiten"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
, httpError = Messages.Comp.HttpError.de
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.ClassifierSettingsForm exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Comp.CalEventInput
@ -28,10 +29,10 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, calEventInput = Messages.Comp.CalEventInput.gb
, calEventInput = Messages.Comp.CalEventInput.gb tz
, autoTaggingText =
"""
@ -53,10 +54,10 @@ Use an empty whitelist to disable auto tagging.
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, calEventInput = Messages.Comp.CalEventInput.de
, calEventInput = Messages.Comp.CalEventInput.de tz
, autoTaggingText =
"""

View File

@ -12,6 +12,7 @@ module Messages.Comp.CollectiveSettingsForm exposing
)
import Data.Language exposing (Language)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.ClassifierSettingsForm
@ -49,11 +50,11 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, classifierSettingsForm = Messages.Comp.ClassifierSettingsForm.gb
, emptyTrashForm = Messages.Comp.EmptyTrashForm.gb
, classifierSettingsForm = Messages.Comp.ClassifierSettingsForm.gb tz
, emptyTrashForm = Messages.Comp.EmptyTrashForm.gb tz
, httpError = Messages.Comp.HttpError.gb
, save = "Save"
, saveSettings = "Save Settings"
@ -84,11 +85,11 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, classifierSettingsForm = Messages.Comp.ClassifierSettingsForm.de
, emptyTrashForm = Messages.Comp.EmptyTrashForm.de
, classifierSettingsForm = Messages.Comp.ClassifierSettingsForm.de tz
, emptyTrashForm = Messages.Comp.EmptyTrashForm.de tz
, httpError = Messages.Comp.HttpError.de
, save = "Speichern"
, saveSettings = "Einstellungen speichern"

View File

@ -11,6 +11,7 @@ module Messages.Comp.CustomFieldManage exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Comp.CustomFieldForm
import Messages.Comp.CustomFieldTable
@ -25,21 +26,21 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, fieldForm = Messages.Comp.CustomFieldForm.gb
, fieldTable = Messages.Comp.CustomFieldTable.gb
, fieldTable = Messages.Comp.CustomFieldTable.gb tz
, addCustomField = "Add a new custom field"
, newCustomField = "New custom field"
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, fieldForm = Messages.Comp.CustomFieldForm.de
, fieldTable = Messages.Comp.CustomFieldTable.de
, fieldTable = Messages.Comp.CustomFieldTable.de tz
, addCustomField = "Ein neues Benutzerfeld anlegen"
, newCustomField = "Neues Benutzerfeld"
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.CustomFieldTable exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.DateFormat as DF
import Messages.UiLanguage
@ -25,21 +26,21 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, nameLabel = "Name/Label"
, format = "Format"
, usageCount = "#Usage"
, formatDateShort = DF.formatDateShort Messages.UiLanguage.English
, formatDateShort = DF.formatDateShort Messages.UiLanguage.English tz
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, nameLabel = "Name/Label"
, format = "Format"
, usageCount = "#Nutzung"
, formatDateShort = DF.formatDateShort Messages.UiLanguage.German
, formatDateShort = DF.formatDateShort Messages.UiLanguage.German tz
}

View File

@ -7,6 +7,7 @@
module Messages.Comp.DashboardView exposing (Texts, de, gb)
import Data.TimeZone exposing (TimeZone)
import Messages.Comp.BoxView
@ -15,13 +16,13 @@ type alias Texts =
}
gb : Texts
gb =
{ boxView = Messages.Comp.BoxView.gb
gb : TimeZone -> Texts
gb tz =
{ boxView = Messages.Comp.BoxView.gb tz
}
de : Texts
de =
{ boxView = Messages.Comp.BoxView.de
de : TimeZone -> Texts
de tz =
{ boxView = Messages.Comp.BoxView.de tz
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.DueItemsTaskForm exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.CalEventInput
@ -57,10 +58,10 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, calEventInput = Messages.Comp.CalEventInput.gb
, calEventInput = Messages.Comp.CalEventInput.gb tz
, httpError = Messages.Comp.HttpError.gb
, channelForm = Messages.Comp.ChannelForm.gb
, tagDropdown = Messages.Comp.TagDropdown.gb
@ -98,10 +99,10 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, calEventInput = Messages.Comp.CalEventInput.de
, calEventInput = Messages.Comp.CalEventInput.de tz
, httpError = Messages.Comp.HttpError.de
, channelForm = Messages.Comp.ChannelForm.de
, tagDropdown = Messages.Comp.TagDropdown.de

View File

@ -11,6 +11,7 @@ module Messages.Comp.DueItemsTaskManage exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.DueItemsTaskForm
@ -34,10 +35,10 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, notificationForm = Messages.Comp.DueItemsTaskForm.gb
, notificationForm = Messages.Comp.DueItemsTaskForm.gb tz
, notificationTable = Messages.Comp.DueItemsTaskList.gb
, httpError = Messages.Comp.HttpError.gb
, channelType = Messages.Data.ChannelType.gb
@ -50,10 +51,10 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, notificationForm = Messages.Comp.DueItemsTaskForm.de
, notificationForm = Messages.Comp.DueItemsTaskForm.de tz
, notificationTable = Messages.Comp.DueItemsTaskList.de
, httpError = Messages.Comp.HttpError.de
, channelType = Messages.Data.ChannelType.de

View File

@ -11,6 +11,7 @@ module Messages.Comp.EmptyTrashForm exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Comp.CalEventInput
@ -24,20 +25,20 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, calEventInput = Messages.Comp.CalEventInput.gb
, calEventInput = Messages.Comp.CalEventInput.gb tz
, schedule = "Schedule"
, minAge = "Minimum Age (Days)"
, minAgeInfo = "The minimum age in days of an items to be removed. The last-update time is used."
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, calEventInput = Messages.Comp.CalEventInput.de
, calEventInput = Messages.Comp.CalEventInput.de tz
, schedule = "Zeitplan"
, minAge = "Mindestalter (Tage)"
, minAgeInfo = "Das Mindestalter (in Tagen) der Dokumente, die gelöscht werden. Es wird das Datum der letzten Veränderung verwendet."

View File

@ -11,6 +11,7 @@ module Messages.Comp.FolderManage exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Comp.FolderDetail
import Messages.Comp.FolderTable
@ -26,22 +27,22 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, folderDetail = Messages.Comp.FolderDetail.gb
, folderTable = Messages.Comp.FolderTable.gb
, folderTable = Messages.Comp.FolderTable.gb tz
, showOwningFoldersOnly = "Show owning folders only"
, createNewFolder = "Create a new folder"
, newFolder = "New Folder"
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, folderDetail = Messages.Comp.FolderDetail.de
, folderTable = Messages.Comp.FolderTable.de
, folderTable = Messages.Comp.FolderTable.de tz
, showOwningFoldersOnly = "Nur besitzende Ordner anzeigen"
, createNewFolder = "Neuen Ordner anlegen"
, newFolder = "Neuer Ordner"

View File

@ -11,6 +11,7 @@ module Messages.Comp.FolderTable exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.DateFormat as DF
import Messages.UiLanguage
@ -24,19 +25,19 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, memberCount = "#Member"
, formatDateShort = DF.formatDateShort Messages.UiLanguage.English
, formatDateShort = DF.formatDateShort Messages.UiLanguage.English tz
, owner = "Owner"
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, memberCount = "#Mitglieder"
, formatDateShort = DF.formatDateShort Messages.UiLanguage.German
, formatDateShort = DF.formatDateShort Messages.UiLanguage.German tz
, owner = "Besitzer"
}

View File

@ -12,6 +12,7 @@ module Messages.Comp.ItemCard exposing
)
import Data.Direction exposing (Direction)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Data.Direction
import Messages.DateFormat
@ -31,29 +32,29 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, dueOn = "Due on"
, new = "New"
, openAttachmentFile = "Open attachment file"
, gotoDetail = "Go to detail view"
, cycleAttachments = "Cycle attachments"
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English tz
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English tz
, directionLabel = Messages.Data.Direction.gb
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, dueOn = "Fällig am"
, new = "Neu"
, openAttachmentFile = "Anhang öffnen"
, gotoDetail = "Detailansicht"
, cycleAttachments = "Anhänge durchschalten"
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German tz
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German tz
, directionLabel = Messages.Data.Direction.de
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.ItemCardList exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Comp.ItemCard
@ -19,13 +20,13 @@ type alias Texts =
}
gb : Texts
gb =
{ itemCard = Messages.Comp.ItemCard.gb
gb : TimeZone -> Texts
gb tz =
{ itemCard = Messages.Comp.ItemCard.gb tz
}
de : Texts
de =
{ itemCard = Messages.Comp.ItemCard.de
de : TimeZone -> Texts
de tz =
{ itemCard = Messages.Comp.ItemCard.de tz
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.ItemDetail exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Comp.DetailEdit
import Messages.Comp.HttpError
@ -62,12 +63,12 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ addFilesForm = Messages.Comp.ItemDetail.AddFilesForm.gb
, itemInfoHeader = Messages.Comp.ItemDetail.ItemInfoHeader.gb
, singleAttachment = Messages.Comp.ItemDetail.SingleAttachment.gb
, sentMails = Messages.Comp.SentMails.gb
, itemInfoHeader = Messages.Comp.ItemDetail.ItemInfoHeader.gb tz
, singleAttachment = Messages.Comp.ItemDetail.SingleAttachment.gb tz
, sentMails = Messages.Comp.SentMails.gb tz
, notes = Messages.Comp.ItemDetail.Notes.gb
, itemMail = Messages.Comp.ItemMail.gb
, detailEdit = Messages.Comp.DetailEdit.gb
@ -91,7 +92,7 @@ gb =
, createdOn = "Created on"
, lastUpdateOn = "Last update on"
, sendingMailNow = "Sending e-mail"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
, mailSendSuccessful = "Mail sent."
, showQrCode = "Show URL as QR code"
, close = "Close"
@ -100,12 +101,12 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ addFilesForm = Messages.Comp.ItemDetail.AddFilesForm.de
, itemInfoHeader = Messages.Comp.ItemDetail.ItemInfoHeader.de
, singleAttachment = Messages.Comp.ItemDetail.SingleAttachment.de
, sentMails = Messages.Comp.SentMails.de
, itemInfoHeader = Messages.Comp.ItemDetail.ItemInfoHeader.de tz
, singleAttachment = Messages.Comp.ItemDetail.SingleAttachment.de tz
, sentMails = Messages.Comp.SentMails.de tz
, notes = Messages.Comp.ItemDetail.Notes.de
, itemMail = Messages.Comp.ItemMail.de
, detailEdit = Messages.Comp.DetailEdit.de
@ -129,7 +130,7 @@ de =
, createdOn = "Erstellt am"
, lastUpdateOn = "Letzte Aktualisierung"
, sendingMailNow = "E-Mail wird gesendet"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
, mailSendSuccessful = "E-Mail wurde versendet."
, showQrCode = "Link als QR code anzeigen"
, close = "Schließen"

View File

@ -12,6 +12,7 @@ module Messages.Comp.ItemDetail.EditForm exposing
)
import Data.Direction exposing (Direction)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Comp.CustomFieldMultiInput
import Messages.Comp.TagDropdown
@ -43,8 +44,8 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, customFieldInput = Messages.Comp.CustomFieldMultiInput.gb
, tagDropdown = Messages.Comp.TagDropdown.gb
@ -62,13 +63,13 @@ gb =
, editEquipment = "Edit equipment"
, suggestions = "Suggestions"
, noSuggestions = "No suggestions"
, formatDate = DF.formatDateLong Messages.UiLanguage.English
, formatDate = DF.formatDateLong Messages.UiLanguage.English tz
, direction = Messages.Data.Direction.gb
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, customFieldInput = Messages.Comp.CustomFieldMultiInput.de
, tagDropdown = Messages.Comp.TagDropdown.de
@ -86,6 +87,6 @@ de =
, editEquipment = "Ausstattung ändern"
, suggestions = "Vorschläge"
, noSuggestions = "Keine Vorschläge"
, formatDate = DF.formatDateLong Messages.UiLanguage.German
, formatDate = DF.formatDateLong Messages.UiLanguage.German tz
, direction = Messages.Data.Direction.de
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.ItemDetail.ItemInfoHeader exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.DateFormat as DF
import Messages.UiLanguage
@ -26,23 +27,23 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, itemDate = "Item Date"
, dueDate = "Due Date"
, source = "Source"
, new = "New"
, formatDate = DF.formatDateLong Messages.UiLanguage.English
, formatDate = DF.formatDateLong Messages.UiLanguage.English tz
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, itemDate = "Datum"
, dueDate = "Fälligkeitsdatum"
, source = "Quelle"
, new = "Neu"
, formatDate = DF.formatDateLong Messages.UiLanguage.German
, formatDate = DF.formatDateLong Messages.UiLanguage.German tz
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.ItemDetail.SingleAttachment exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Comp.AttachmentMeta
import Messages.Comp.ItemDetail.ConfirmModal
@ -35,9 +36,9 @@ type alias Texts =
}
gb : Texts
gb =
{ attachmentMeta = Messages.Comp.AttachmentMeta.gb
gb : TimeZone -> Texts
gb tz =
{ attachmentMeta = Messages.Comp.AttachmentMeta.gb tz
, confirmModal = Messages.Comp.ItemDetail.ConfirmModal.gb
, noName = "No name"
, openFileInNewTab = "Open file in new tab"
@ -56,9 +57,9 @@ gb =
}
de : Texts
de =
{ attachmentMeta = Messages.Comp.AttachmentMeta.de
de : TimeZone -> Texts
de tz =
{ attachmentMeta = Messages.Comp.AttachmentMeta.de tz
, confirmModal = Messages.Comp.ItemDetail.ConfirmModal.de
, noName = "Kein Name"
, openFileInNewTab = "Anhang im neuen Tab öffnen"

View File

@ -11,6 +11,7 @@ module Messages.Comp.ItemMerge exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -35,15 +36,15 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, httpError = Messages.Comp.HttpError.gb
, title = "Merge Items"
, infoText = "When merging items the first item in the list acts as the target. Every other items metadata is copied into the target item. If the property is a single value (like correspondent), it is only set if not already present. Tags, custom fields and attachments are added. The items can be reordered using drag&drop."
, deleteWarn = "Note that all items but the first one is deleted after a successful merge!"
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English tz
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English tz
, submitMerge = "Merge"
, submitMergeTitle = "Merge the documents now"
, cancelMerge = "Cancel"
@ -53,15 +54,15 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, httpError = Messages.Comp.HttpError.de
, title = "Dokumente zusammenführen"
, infoText = "Beim Zusammenführen der Dokumente, wird das erste in der Liste als Zieldokument verwendet. Die Metadaten der anderen Dokumente werden der Reihe nach auf des Zieldokument geschrieben. Metadaten die nur einen Wert haben, werden nur gesetzt falls noch kein Wert existiert. Tags, Benutzerfelder und Anhänge werden zu dem Zieldokument hinzugefügt. Die Einträge können mit Drag&Drop umgeordnet werden."
, deleteWarn = "Bitte beachte, dass nach erfolgreicher Zusammenführung alle anderen Dokumente gelöscht werden!"
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German tz
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German tz
, submitMerge = "Zusammenführen"
, submitMergeTitle = "Dokumente jetzt zusammenführen"
, cancelMerge = "Abbrechen"

View File

@ -11,6 +11,7 @@ module Messages.Comp.OtpSetup exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Comp.HttpError
import Messages.DateFormat
@ -43,10 +44,10 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ httpError = Messages.Comp.HttpError.gb
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English tz
, errorTitle = "Error"
, stateErrorInfoText = "There was a problem determining the current state of your two factor authentication scheme:"
, errorGeneratingQR = "Error generating QR Code"
@ -70,10 +71,10 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ httpError = Messages.Comp.HttpError.de
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German tz
, errorTitle = "Fehler"
, stateErrorInfoText = "Es gab ein Problem, den Status der Zwei-Faktor-Authentifizierung zu ermittlen:"
, errorGeneratingQR = "Fehler beim Generieren des QR-Code"

View File

@ -11,6 +11,7 @@ module Messages.Comp.PeriodicQueryTaskForm exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.BookmarkDropdown
@ -49,10 +50,10 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, calEventInput = Messages.Comp.CalEventInput.gb
, calEventInput = Messages.Comp.CalEventInput.gb tz
, channelForm = Messages.Comp.ChannelForm.gb
, httpError = Messages.Comp.HttpError.gb
, bookmarkDropdown = Messages.Comp.BookmarkDropdown.gb
@ -83,10 +84,10 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, calEventInput = Messages.Comp.CalEventInput.de
, calEventInput = Messages.Comp.CalEventInput.de tz
, channelForm = Messages.Comp.ChannelForm.de
, httpError = Messages.Comp.HttpError.de
, bookmarkDropdown = Messages.Comp.BookmarkDropdown.de

View File

@ -11,6 +11,7 @@ module Messages.Comp.PeriodicQueryTaskManage exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -38,10 +39,10 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, notificationForm = Messages.Comp.PeriodicQueryTaskForm.gb
, notificationForm = Messages.Comp.PeriodicQueryTaskForm.gb tz
, notificationTable = Messages.Comp.PeriodicQueryTaskList.gb
, httpError = Messages.Comp.HttpError.gb
, channelType = Messages.Data.ChannelType.gb
@ -58,10 +59,10 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, notificationForm = Messages.Comp.PeriodicQueryTaskForm.de
, notificationForm = Messages.Comp.PeriodicQueryTaskForm.de tz
, notificationTable = Messages.Comp.PeriodicQueryTaskList.de
, httpError = Messages.Comp.HttpError.de
, channelType = Messages.Data.ChannelType.de

View File

@ -11,6 +11,7 @@ module Messages.Comp.PublishItems exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -43,17 +44,17 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, httpError = Messages.Comp.HttpError.gb
, shareForm = Messages.Comp.ShareForm.gb
, shareView = Messages.Comp.ShareView.gb
, shareView = Messages.Comp.ShareView.gb tz
, shareMail = Messages.Comp.ShareMail.gb
, title = "Publish Items"
, infoText = "Publishing items creates a cryptic link, which can be used by everyone to see the selected documents. This link cannot be guessed, but is public! It exists for a certain amount of time and can be further protected using a password."
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English tz
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English tz
, submitPublish = "Publish"
, submitPublishTitle = "Publish the documents now"
, cancelPublish = "Cancel"
@ -66,17 +67,17 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, httpError = Messages.Comp.HttpError.de
, shareForm = Messages.Comp.ShareForm.de
, shareView = Messages.Comp.ShareView.de
, shareView = Messages.Comp.ShareView.de tz
, shareMail = Messages.Comp.ShareMail.de
, title = "Dokumente publizieren"
, infoText = "Beim Publizieren der Dokumente wird ein kryptischer Link erzeugt, mit welchem jeder die dahinter publizierten Dokumente einsehen kann. Dieser Link kann nicht erraten werden, ist aber öffentlich. Er ist zeitlich begrenzt und kann zusätzlich mit einem Passwort geschützt werden."
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German
, formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German tz
, formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German tz
, submitPublish = "Publizieren"
, submitPublishTitle = "Dokumente jetzt publizieren"
, cancelPublish = "Abbrechen"

View File

@ -11,6 +11,7 @@ module Messages.Comp.ScanMailboxForm exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.CalEventInput
@ -80,10 +81,10 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, calEventInput = Messages.Comp.CalEventInput.gb
, calEventInput = Messages.Comp.CalEventInput.gb tz
, httpError = Messages.Comp.HttpError.gb
, tagDropdown = Messages.Comp.TagDropdown.gb
, reallyDeleteTask = "Really delete this scan mailbox task?"
@ -165,10 +166,10 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, calEventInput = Messages.Comp.CalEventInput.de
, calEventInput = Messages.Comp.CalEventInput.de tz
, httpError = Messages.Comp.HttpError.de
, tagDropdown = Messages.Comp.TagDropdown.de
, reallyDeleteTask = "Den Auftrag wirklich löschen?"

View File

@ -11,6 +11,7 @@ module Messages.Comp.ScanMailboxManage exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -32,10 +33,10 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tb =
{ basics = Messages.Basics.gb
, form = Messages.Comp.ScanMailboxForm.gb
, form = Messages.Comp.ScanMailboxForm.gb tb
, table = Messages.Comp.ScanMailboxTable.gb
, httpError = Messages.Comp.HttpError.gb
, newTask = "New Task"
@ -47,10 +48,10 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, form = Messages.Comp.ScanMailboxForm.de
, form = Messages.Comp.ScanMailboxForm.de tz
, table = Messages.Comp.ScanMailboxTable.de
, httpError = Messages.Comp.HttpError.de
, newTask = "Neuer Auftrag"

View File

@ -11,6 +11,7 @@ module Messages.Comp.SentMails exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.DateFormat as DF
import Messages.UiLanguage
@ -26,25 +27,25 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ from = "From"
, date = "Date"
, recipients = "Recipients"
, subject = "Subject"
, sent = "Sent"
, sender = "Sender"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ from = "Von"
, date = "Datum"
, recipients = "Empfänger"
, subject = "Betreff"
, sent = "Gesendet"
, sender = "Absender"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
}

View File

@ -11,6 +11,7 @@ module Messages.Comp.ShareManage exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -44,13 +45,13 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, httpError = Messages.Comp.HttpError.gb
, shareTable = Messages.Comp.ShareTable.gb
, shareTable = Messages.Comp.ShareTable.gb tz
, shareForm = Messages.Comp.ShareForm.gb
, shareView = Messages.Comp.ShareView.gb
, shareView = Messages.Comp.ShareView.gb tz
, shareMail = Messages.Comp.ShareMail.gb
, newShare = "New share"
, copyToClipboard = "Copy to clipboard"
@ -69,12 +70,12 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, shareTable = Messages.Comp.ShareTable.de
, shareTable = Messages.Comp.ShareTable.de tz
, shareForm = Messages.Comp.ShareForm.de
, shareView = Messages.Comp.ShareView.de
, shareView = Messages.Comp.ShareView.de tz
, httpError = Messages.Comp.HttpError.de
, shareMail = Messages.Comp.ShareMail.de
, newShare = "Neue Freigabe"

View File

@ -11,6 +11,7 @@ module Messages.Comp.ShareTable exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.DateFormat as DF
import Messages.UiLanguage
@ -25,20 +26,20 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
, active = "Active"
, publishUntil = "Publish Until"
, user = "User"
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
, active = "Aktiv"
, publishUntil = "Publiziert bis"
, user = "Benutzer"

View File

@ -11,6 +11,7 @@ module Messages.Comp.ShareView exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.DateFormat as DF
import Messages.UiLanguage
@ -32,10 +33,10 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, date = DF.formatDateLong Messages.UiLanguage.English
, date = DF.formatDateLong Messages.UiLanguage.English tz
, qrCodeError = "Error generating QR Code."
, expiredInfo = "This share has expired."
, disabledInfo = "This share is disabled."
@ -49,10 +50,10 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, date = DF.formatDateLong Messages.UiLanguage.German
, date = DF.formatDateLong Messages.UiLanguage.German tz
, qrCodeError = "Fehler beim Erzeugen des QR-Codes."
, expiredInfo = "Diese Freigabe ist abgelaufen."
, disabledInfo = "Diese Freigae ist nicht aktiv."

View File

@ -11,6 +11,7 @@ module Messages.Comp.UserManage exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -38,9 +39,9 @@ type alias Texts =
}
gb : Texts
gb =
{ userTable = Messages.Comp.UserTable.gb
gb : TimeZone -> Texts
gb tz =
{ userTable = Messages.Comp.UserTable.gb tz
, userForm = Messages.Comp.UserForm.gb
, basics = Messages.Basics.gb
, httpError = Messages.Comp.HttpError.gb
@ -59,9 +60,9 @@ gb =
}
de : Texts
de =
{ userTable = Messages.Comp.UserTable.de
de : TimeZone -> Texts
de tz =
{ userTable = Messages.Comp.UserTable.de tz
, userForm = Messages.Comp.UserForm.de
, basics = Messages.Basics.de
, httpError = Messages.Comp.HttpError.de

View File

@ -11,6 +11,7 @@ module Messages.Comp.UserTable exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.DateFormat as DF
import Messages.UiLanguage
@ -28,8 +29,8 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, login = "Login"
, state = "State"
@ -37,12 +38,12 @@ gb =
, email = "E-Mail"
, logins = "Logins"
, lastLogin = "Last Login"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, login = "Benutzername"
, state = "Status"
@ -50,5 +51,5 @@ de =
, email = "E-Mail"
, logins = "Anmeldungen"
, lastLogin = "Letzte Anmeldung"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
}

View File

@ -14,6 +14,7 @@ module Messages.DateFormat exposing
, formatIsoDateTimeUtc
)
import Data.TimeZone exposing (TimeZone)
import DateFormat exposing (Token)
import DateFormat.Language as DL
import Messages.UiLanguage exposing (UiLanguage(..))
@ -44,8 +45,8 @@ get lang =
de
format : UiLanguage -> (DateTimeMsg -> List Token) -> Int -> String
format lang pattern millis =
format : UiLanguage -> TimeZone -> (DateTimeMsg -> List Token) -> Int -> String
format lang zone pattern millis =
let
msg =
get lang
@ -53,27 +54,27 @@ format lang pattern millis =
fmt =
DateFormat.formatWithLanguage msg.lang (pattern msg)
in
fmt Time.utc (Time.millisToPosix millis)
fmt (Data.TimeZone.toZone zone) (Time.millisToPosix millis)
formatDateTimeLong : UiLanguage -> Int -> String
formatDateTimeLong lang millis =
format lang .dateTimeLong millis
formatDateTimeLong : UiLanguage -> TimeZone -> Int -> String
formatDateTimeLong lang zone millis =
format lang zone .dateTimeLong millis
formatDateLong : UiLanguage -> Int -> String
formatDateLong lang millis =
format lang .dateLong millis
formatDateLong : UiLanguage -> TimeZone -> Int -> String
formatDateLong lang zone millis =
format lang zone .dateLong millis
formatDateShort : UiLanguage -> Int -> String
formatDateShort lang millis =
format lang .dateShort millis
formatDateShort : UiLanguage -> TimeZone -> Int -> String
formatDateShort lang zone millis =
format lang zone .dateShort millis
formatDateTimeShort : UiLanguage -> Int -> String
formatDateTimeShort lang millis =
format lang .dateTimeShort millis
formatDateTimeShort : UiLanguage -> TimeZone -> Int -> String
formatDateTimeShort lang zone millis =
format lang zone .dateTimeShort millis
isoDateTimeFormatter : List Token

View File

@ -11,6 +11,7 @@ module Messages.Page.CollectiveSettings exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.CollectiveSettingsForm
@ -39,13 +40,13 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, userManage = Messages.Comp.UserManage.gb
, collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.gb
, userManage = Messages.Comp.UserManage.gb tz
, collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.gb tz
, sourceManage = Messages.Comp.SourceManage.gb
, shareManage = Messages.Comp.ShareManage.gb
, shareManage = Messages.Comp.ShareManage.gb tz
, httpError = Messages.Comp.HttpError.gb
, collectiveSettings = "Collective Settings"
, insights = "Insights"
@ -59,13 +60,13 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, userManage = Messages.Comp.UserManage.de
, collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.de
, userManage = Messages.Comp.UserManage.de tz
, collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.de tz
, sourceManage = Messages.Comp.SourceManage.de
, shareManage = Messages.Comp.ShareManage.de
, shareManage = Messages.Comp.ShareManage.de tz
, httpError = Messages.Comp.HttpError.de
, collectiveSettings = "Kollektiveinstellungen"
, insights = "Statistiken"

View File

@ -7,6 +7,7 @@
module Messages.Page.Dashboard exposing (Texts, de, gb)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Comp.BookmarkChooser
import Messages.Comp.DashboardManage
@ -55,21 +56,21 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, bookmarkChooser = Messages.Comp.BookmarkChooser.gb
, notificationHookManage = Messages.Comp.NotificationHookManage.gb
, periodicQueryManage = Messages.Comp.PeriodicQueryTaskManage.gb
, periodicQueryManage = Messages.Comp.PeriodicQueryTaskManage.gb tz
, sourceManage = Messages.Comp.SourceManage.gb
, shareManage = Messages.Comp.ShareManage.gb
, shareManage = Messages.Comp.ShareManage.gb tz
, organizationManage = Messages.Comp.OrgManage.gb
, personManage = Messages.Comp.PersonManage.gb
, equipManage = Messages.Comp.EquipmentManage.gb
, tagManage = Messages.Comp.TagManage.gb
, folderManage = Messages.Comp.FolderManage.gb
, folderManage = Messages.Comp.FolderManage.gb tz
, uploadForm = Messages.Comp.UploadForm.gb
, dashboard = Messages.Comp.DashboardView.gb
, dashboard = Messages.Comp.DashboardView.gb tz
, dashboardManage = Messages.Comp.DashboardManage.gb
, defaultDashboard = Messages.Page.DefaultDashboard.gb
, accountScope = Messages.Data.AccountScope.gb
@ -86,21 +87,21 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, bookmarkChooser = Messages.Comp.BookmarkChooser.de
, notificationHookManage = Messages.Comp.NotificationHookManage.de
, periodicQueryManage = Messages.Comp.PeriodicQueryTaskManage.de
, periodicQueryManage = Messages.Comp.PeriodicQueryTaskManage.de tz
, sourceManage = Messages.Comp.SourceManage.de
, shareManage = Messages.Comp.ShareManage.de
, shareManage = Messages.Comp.ShareManage.de tz
, organizationManage = Messages.Comp.OrgManage.de
, personManage = Messages.Comp.PersonManage.de
, equipManage = Messages.Comp.EquipmentManage.de
, tagManage = Messages.Comp.TagManage.de
, folderManage = Messages.Comp.FolderManage.de
, folderManage = Messages.Comp.FolderManage.de tz
, uploadForm = Messages.Comp.UploadForm.de
, dashboard = Messages.Comp.DashboardView.de
, dashboard = Messages.Comp.DashboardView.de tz
, dashboardManage = Messages.Comp.DashboardManage.de
, defaultDashboard = Messages.Page.DefaultDashboard.de
, accountScope = Messages.Data.AccountScope.de

View File

@ -11,6 +11,7 @@ module Messages.Page.ItemDetail exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Comp.ItemDetail
import Messages.Comp.ItemDetail.EditForm
@ -23,19 +24,19 @@ type alias Texts =
}
gb : Texts
gb =
{ itemDetail = Messages.Comp.ItemDetail.gb
, editForm = Messages.Comp.ItemDetail.EditForm.gb
gb : TimeZone -> Texts
gb tz =
{ itemDetail = Messages.Comp.ItemDetail.gb tz
, editForm = Messages.Comp.ItemDetail.EditForm.gb tz
, editMetadata = "Edit Metadata"
, collapseExpand = "Collapse/Expand"
}
de : Texts
de =
{ itemDetail = Messages.Comp.ItemDetail.de
, editForm = Messages.Comp.ItemDetail.EditForm.de
de : TimeZone -> Texts
de tz =
{ itemDetail = Messages.Comp.ItemDetail.de tz
, editForm = Messages.Comp.ItemDetail.EditForm.de tz
, editMetadata = "Metadaten ändern"
, collapseExpand = "Aus-/Einklappen"
}

View File

@ -11,6 +11,7 @@ module Messages.Page.ManageData exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Comp.BookmarkManage
import Messages.Comp.CustomFieldManage
@ -35,30 +36,30 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, tagManage = Messages.Comp.TagManage.gb
, equipmentManage = Messages.Comp.EquipmentManage.gb
, orgManage = Messages.Comp.OrgManage.gb
, personManage = Messages.Comp.PersonManage.gb
, folderManage = Messages.Comp.FolderManage.gb
, customFieldManage = Messages.Comp.CustomFieldManage.gb
, folderManage = Messages.Comp.FolderManage.gb tz
, customFieldManage = Messages.Comp.CustomFieldManage.gb tz
, bookmarkManage = Messages.Comp.BookmarkManage.gb
, manageData = "Manage Data"
, bookmarks = "Bookmarks"
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, tagManage = Messages.Comp.TagManage.de
, equipmentManage = Messages.Comp.EquipmentManage.de
, orgManage = Messages.Comp.OrgManage.de
, personManage = Messages.Comp.PersonManage.de
, folderManage = Messages.Comp.FolderManage.de
, customFieldManage = Messages.Comp.CustomFieldManage.de
, folderManage = Messages.Comp.FolderManage.de tz
, customFieldManage = Messages.Comp.CustomFieldManage.de tz
, bookmarkManage = Messages.Comp.BookmarkManage.de
, manageData = "Daten verwalten"
, bookmarks = "Bookmarks"

View File

@ -11,6 +11,7 @@ module Messages.Page.Queue exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -44,8 +45,8 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, httpError = Messages.Comp.HttpError.gb
, currentlyRunning = "Currently Running"
@ -66,13 +67,13 @@ gb =
, retries = "Retries"
, changePriority = "Change priority of this job"
, prio = "Prio"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
, sidebarTitle = "Processing"
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, httpError = Messages.Comp.HttpError.de
, currentlyRunning = "Wird ausgeführt"
@ -93,6 +94,6 @@ de =
, retries = "Versuche"
, changePriority = "Priorität des Jobs ändern"
, prio = "Prio"
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
, formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
, sidebarTitle = "Verarbeitung"
}

View File

@ -11,6 +11,7 @@ module Messages.Page.Search exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Comp.BookmarkQueryManage
import Messages.Comp.ItemCardList
@ -61,14 +62,14 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, itemCardList = Messages.Comp.ItemCardList.gb
, itemCardList = Messages.Comp.ItemCardList.gb tz
, searchStatsView = Messages.Comp.SearchStatsView.gb
, sideMenu = Messages.Page.SearchSideMenu.gb
, itemMerge = Messages.Comp.ItemMerge.gb
, publishItems = Messages.Comp.PublishItems.gb
, itemMerge = Messages.Comp.ItemMerge.gb tz
, publishItems = Messages.Comp.PublishItems.gb tz
, bookmarkManage = Messages.Comp.BookmarkQueryManage.gb
, contentSearch = "Content search"
, searchInNames = "Search in names"
@ -103,14 +104,14 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, itemCardList = Messages.Comp.ItemCardList.de
, itemCardList = Messages.Comp.ItemCardList.de tz
, searchStatsView = Messages.Comp.SearchStatsView.de
, sideMenu = Messages.Page.SearchSideMenu.de
, itemMerge = Messages.Comp.ItemMerge.de
, publishItems = Messages.Comp.PublishItems.de
, itemMerge = Messages.Comp.ItemMerge.de tz
, publishItems = Messages.Comp.PublishItems.de tz
, bookmarkManage = Messages.Comp.BookmarkQueryManage.de
, contentSearch = "Volltextsuche"
, searchInNames = "Suche in Namen"

View File

@ -7,6 +7,7 @@
module Messages.Page.Share exposing (..)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -32,11 +33,11 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ searchMenu = Messages.Comp.SearchMenu.gb
, basics = Messages.Basics.gb
, itemCardList = Messages.Comp.ItemCardList.gb
, itemCardList = Messages.Comp.ItemCardList.gb tz
, passwordForm = Messages.Comp.SharePasswordForm.gb
, authFailed = "This share does not exist."
, httpError = Messages.Comp.HttpError.gb
@ -50,11 +51,11 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ searchMenu = Messages.Comp.SearchMenu.de
, basics = Messages.Basics.de
, itemCardList = Messages.Comp.ItemCardList.de
, itemCardList = Messages.Comp.ItemCardList.de tz
, passwordForm = Messages.Comp.SharePasswordForm.de
, authFailed = "Diese Freigabe existiert nicht."
, httpError = Messages.Comp.HttpError.de

View File

@ -8,6 +8,7 @@
module Messages.Page.ShareDetail exposing (..)
import Data.Fields exposing (Field)
import Data.TimeZone exposing (TimeZone)
import Http
import Messages.Basics
import Messages.Comp.HttpError
@ -31,13 +32,13 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ passwordForm = Messages.Comp.SharePasswordForm.gb
, basics = Messages.Basics.gb
, field = Messages.Data.Fields.gb
, formatDateLong = Messages.DateFormat.formatDateLong English
, formatDateShort = Messages.DateFormat.formatDateShort English
, formatDateLong = Messages.DateFormat.formatDateLong English tz
, formatDateShort = Messages.DateFormat.formatDateShort English tz
, authFailed = "This share does not exist."
, httpError = Messages.Comp.HttpError.gb
, tagsAndFields = "Tags & Fields"
@ -46,13 +47,13 @@ gb =
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ passwordForm = Messages.Comp.SharePasswordForm.de
, basics = Messages.Basics.de
, field = Messages.Data.Fields.de
, formatDateLong = Messages.DateFormat.formatDateLong German
, formatDateShort = Messages.DateFormat.formatDateShort German
, formatDateLong = Messages.DateFormat.formatDateLong German tz
, formatDateShort = Messages.DateFormat.formatDateShort German tz
, authFailed = "Diese Freigabe existiert nicht."
, httpError = Messages.Comp.HttpError.de
, tagsAndFields = "Tags & Felder"

View File

@ -11,6 +11,7 @@ module Messages.Page.UserSettings exposing
, gb
)
import Data.TimeZone exposing (TimeZone)
import Messages.Basics
import Messages.Comp.ChangePasswordForm
import Messages.Comp.DueItemsTaskManage
@ -58,19 +59,19 @@ type alias Texts =
}
gb : Texts
gb =
gb : TimeZone -> Texts
gb tz =
{ basics = Messages.Basics.gb
, changePasswordForm = Messages.Comp.ChangePasswordForm.gb
, uiSettingsManage = Messages.Comp.UiSettingsManage.gb
, emailSettingsManage = Messages.Comp.EmailSettingsManage.gb
, imapSettingsManage = Messages.Comp.ImapSettingsManage.gb
, notificationManage = Messages.Comp.DueItemsTaskManage.gb
, scanMailboxManage = Messages.Comp.ScanMailboxManage.gb
, notificationManage = Messages.Comp.DueItemsTaskManage.gb tz
, scanMailboxManage = Messages.Comp.ScanMailboxManage.gb tz
, notificationHookManage = Messages.Comp.NotificationHookManage.gb
, periodicQueryTask = Messages.Comp.PeriodicQueryTaskManage.gb
, periodicQueryTask = Messages.Comp.PeriodicQueryTaskManage.gb tz
, channelManage = Messages.Comp.NotificationChannelManage.gb
, otpSetup = Messages.Comp.OtpSetup.gb
, otpSetup = Messages.Comp.OtpSetup.gb tz
, userSettings = "User Settings"
, uiSettings = "UI Settings"
, notifications = "Notifications"
@ -121,19 +122,19 @@ must be created before.
}
de : Texts
de =
de : TimeZone -> Texts
de tz =
{ basics = Messages.Basics.de
, changePasswordForm = Messages.Comp.ChangePasswordForm.de
, uiSettingsManage = Messages.Comp.UiSettingsManage.de
, emailSettingsManage = Messages.Comp.EmailSettingsManage.de
, imapSettingsManage = Messages.Comp.ImapSettingsManage.de
, notificationManage = Messages.Comp.DueItemsTaskManage.de
, scanMailboxManage = Messages.Comp.ScanMailboxManage.de
, notificationManage = Messages.Comp.DueItemsTaskManage.de tz
, scanMailboxManage = Messages.Comp.ScanMailboxManage.de tz
, notificationHookManage = Messages.Comp.NotificationHookManage.de
, periodicQueryTask = Messages.Comp.PeriodicQueryTaskManage.de
, periodicQueryTask = Messages.Comp.PeriodicQueryTaskManage.de tz
, channelManage = Messages.Comp.NotificationChannelManage.de
, otpSetup = Messages.Comp.OtpSetup.de
, otpSetup = Messages.Comp.OtpSetup.de tz
, userSettings = "Benutzereinstellung"
, uiSettings = "Oberfläche"
, notifications = "Benachrichtigungen"

View File

@ -41,7 +41,7 @@ getDefaultDashboard flags settings =
Data.UiSettings.getUiLanguage flags settings Messages.UiLanguage.English
texts =
Messages.get lang
Messages.get lang settings.timeZone
in
value texts.dashboard.defaultDashboard