Basic management of shares

modules/webapp/src/main/elm/Messages/Comp/ShareForm.elm

@@ -0,0 +1,46 @@
+{-
+   Copyright 2020 Eike K. & Contributors
+
+   SPDX-License-Identifier: AGPL-3.0-or-later
+-}
+
+
+module Messages.Comp.ShareForm exposing
+    ( Texts
+    , de
+    , gb
+    )
+
+import Messages.Basics
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , queryLabel : String
+    , enabled : String
+    , password : String
+    , publishUntil : String
+    , clearPassword : String
+    }
+
+
+gb : Texts
+gb =
+    { basics = Messages.Basics.gb
+    , queryLabel = "Query"
+    , enabled = "Enabled"
+    , password = "Password"
+    , publishUntil = "Publish Until"
+    , clearPassword = "Remove password"
+    }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , queryLabel = "Abfrage"
+    , enabled = "Aktiv"
+    , password = "Passwort"
+    , publishUntil = "Publiziert bis"
+    , clearPassword = "Passwort entfernen"
+    }

modules/webapp/src/main/elm/Messages/Comp/ShareManage.elm

@@ -0,0 +1,74 @@
+{-
+   Copyright 2020 Eike K. & Contributors
+
+   SPDX-License-Identifier: AGPL-3.0-or-later
+-}
+
+
+module Messages.Comp.ShareManage exposing
+    ( Texts
+    , de
+    , gb
+    )
+
+import Http
+import Messages.Basics
+import Messages.Comp.HttpError
+import Messages.Comp.ShareForm
+import Messages.Comp.ShareTable
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , shareTable : Messages.Comp.ShareTable.Texts
+    , shareForm : Messages.Comp.ShareForm.Texts
+    , httpError : Http.Error -> String
+    , newShare : String
+    , copyToClipboard : String
+    , openInNewTab : String
+    , publicUrl : String
+    , reallyDeleteShare : String
+    , createNewShare : String
+    , deleteThisShare : String
+    , errorGeneratingQR : String
+    , correctFormErrors : String
+    , noName : String
+    }
+
+
+gb : Texts
+gb =
+    { basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
+    , shareTable = Messages.Comp.ShareTable.gb
+    , shareForm = Messages.Comp.ShareForm.gb
+    , newShare = "New share"
+    , copyToClipboard = "Copy to clipboard"
+    , openInNewTab = "Open in new tab/window"
+    , publicUrl = "Public URL"
+    , reallyDeleteShare = "Really delete this share?"
+    , createNewShare = "Create new share"
+    , deleteThisShare = "Delete this share"
+    , errorGeneratingQR = "Error generating QR Code"
+    , correctFormErrors = "Please correct the errors in the form."
+    , noName = "No Name"
+    }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , shareTable = Messages.Comp.ShareTable.de
+    , shareForm = Messages.Comp.ShareForm.de
+    , httpError = Messages.Comp.HttpError.de
+    , newShare = "Neue Freigabe"
+    , copyToClipboard = "In die Zwischenablage kopieren"
+    , openInNewTab = "Im neuen Tab/Fenster öffnen"
+    , publicUrl = "Öffentliche URL"
+    , reallyDeleteShare = "Diese Freigabe wirklich entfernen?"
+    , createNewShare = "Neue Freigabe erstellen"
+    , deleteThisShare = "Freigabe löschen"
+    , errorGeneratingQR = "Fehler beim Generieren des QR-Code"
+    , correctFormErrors = "Bitte korrigiere die Fehler im Formular."
+    , noName = "Ohne Name"
+    }

modules/webapp/src/main/elm/Messages/Comp/ShareTable.elm

@@ -0,0 +1,42 @@
+{-
+   Copyright 2020 Eike K. & Contributors
+
+   SPDX-License-Identifier: AGPL-3.0-or-later
+-}
+
+
+module Messages.Comp.ShareTable exposing
+    ( Texts
+    , de
+    , gb
+    )
+
+import Messages.Basics
+import Messages.DateFormat as DF
+import Messages.UiLanguage
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , formatDateTime : Int -> String
+    , enabled : String
+    , publishUntil : String
+    }
+
+
+gb : Texts
+gb =
+    { basics = Messages.Basics.gb
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
+    , enabled = "Enabled"
+    , publishUntil = "Publish Until"
+    }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
+    , enabled = "Aktiv"
+    , publishUntil = "Publiziert bis"
+    }

modules/webapp/src/main/elm/Messages/Page/CollectiveSettings.elm

@@ -15,6 +15,7 @@ import Http
 import Messages.Basics
 import Messages.Comp.CollectiveSettingsForm
 import Messages.Comp.HttpError
+import Messages.Comp.ShareManage
 import Messages.Comp.SourceManage
 import Messages.Comp.UserManage
 
@@ -24,12 +25,14 @@ type alias Texts =
     , userManage : Messages.Comp.UserManage.Texts
     , collectiveSettingsForm : Messages.Comp.CollectiveSettingsForm.Texts
     , sourceManage : Messages.Comp.SourceManage.Texts
+    , shareManage : Messages.Comp.ShareManage.Texts
     , httpError : Http.Error -> String
     , collectiveSettings : String
     , insights : String
     , sources : String
     , settings : String
     , users : String
+    , shares : String
     , user : String
     , collective : String
     , size : String
@@ -44,12 +47,14 @@ gb =
     , userManage = Messages.Comp.UserManage.gb
     , collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.gb
     , sourceManage = Messages.Comp.SourceManage.gb
+    , shareManage = Messages.Comp.ShareManage.gb
     , httpError = Messages.Comp.HttpError.gb
     , collectiveSettings = "Collective Settings"
     , insights = "Insights"
     , sources = "Sources"
     , settings = "Settings"
     , users = "Users"
+    , shares = "Shares"
     , user = "User"
     , collective = "Collective"
     , size = "Size"
@@ -64,12 +69,14 @@ de =
     , userManage = Messages.Comp.UserManage.de
     , collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.de
     , sourceManage = Messages.Comp.SourceManage.de
+    , shareManage = Messages.Comp.ShareManage.de
     , httpError = Messages.Comp.HttpError.de
     , collectiveSettings = "Kollektiveinstellungen"
     , insights = "Statistiken"
     , sources = "Quellen"
     , settings = "Einstellungen"
     , users = "Benutzer"
+    , shares = "Freigaben"
     , user = "Benutzer"
     , collective = "Kollektiv"
     , size = "Größe"