Add mail form when creating shares

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

@@ -39,8 +39,8 @@ gb =
     , selectConnection = "Select connection..."
     , sendVia = "Send via"
     , recipients = "Recipient(s)"
-    , ccRecipients = "CC recipient(s)"
-    , bccRecipients = "BCC recipient(s)..."
+    , ccRecipients = "CC"
+    , bccRecipients = "BCC"
     , subject = "Subject"
     , body = "Body"
     , includeAllAttachments = "Include all item attachments"

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

@@ -15,6 +15,7 @@ import Http
 import Messages.Basics
 import Messages.Comp.HttpError
 import Messages.Comp.ShareForm
+import Messages.Comp.ShareMail
 import Messages.Comp.ShareView
 import Messages.DateFormat
 import Messages.UiLanguage
@@ -25,6 +26,7 @@ type alias Texts =
     , httpError : Http.Error -> String
     , shareForm : Messages.Comp.ShareForm.Texts
     , shareView : Messages.Comp.ShareView.Texts
+    , shareMail : Messages.Comp.ShareMail.Texts
     , title : String
     , infoText : String
     , formatDateLong : Int -> String
@@ -37,6 +39,7 @@ type alias Texts =
     , publishInProcess : String
     , correctFormErrors : String
     , doneLabel : String
+    , sendViaMail : String
     }
 
 
@@ -46,6 +49,7 @@ gb =
     , httpError = Messages.Comp.HttpError.gb
     , shareForm = Messages.Comp.ShareForm.gb
     , shareView = Messages.Comp.ShareView.gb
+    , 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
@@ -58,6 +62,7 @@ gb =
     , publishInProcess = "Items are published …"
     , correctFormErrors = "Please correct the errors in the form."
     , doneLabel = "Done"
+    , sendViaMail = "Send via E-Mail"
     }
 
 
@@ -67,6 +72,7 @@ de =
     , httpError = Messages.Comp.HttpError.de
     , shareForm = Messages.Comp.ShareForm.de
     , shareView = Messages.Comp.ShareView.de
+    , 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
@@ -79,4 +85,5 @@ de =
     , publishInProcess = "Dokumente werden publiziert…"
     , correctFormErrors = "Bitte korrigiere die Fehler im Formular."
     , doneLabel = "Fertig"
+    , sendViaMail = "Per E-Mail versenden"
     }

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

@@ -0,0 +1,60 @@
+{-
+   Copyright 2020 Eike K. & Contributors
+
+   SPDX-License-Identifier: AGPL-3.0-or-later
+-}
+
+
+module Messages.Comp.ShareMail exposing
+    ( Texts
+    , de
+    , gb
+    )
+
+import Http
+import Messages.Basics
+import Messages.Comp.HttpError
+import Messages.Comp.ItemMail
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , itemMail : Messages.Comp.ItemMail.Texts
+    , httpError : Http.Error -> String
+    , subjectTemplate : Maybe String -> String
+    , bodyTemplate : String -> String
+    }
+
+
+gb : Texts
+gb =
+    { basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
+    , itemMail = Messages.Comp.ItemMail.gb
+    , subjectTemplate = \mt -> "Shared Documents" ++ (Maybe.map (\n -> ": " ++ n) mt |> Maybe.withDefault "")
+    , bodyTemplate = \url -> """Hi,
+
+you can find the documents here:
+
+    """ ++ url ++ """
+
+Kind regards
+"""
+    }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , httpError = Messages.Comp.HttpError.de
+    , itemMail = Messages.Comp.ItemMail.de
+    , subjectTemplate = \mt -> "Freigegebene Dokumente" ++ (Maybe.map (\n -> ": " ++ n) mt |> Maybe.withDefault "")
+    , bodyTemplate = \url -> """Hallo,
+
+die freigegebenen Dokumente befinden sich hier:
+
+    """ ++ url ++ """
+
+Freundliche Grüße
+"""
+    }

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

@@ -15,6 +15,7 @@ import Http
 import Messages.Basics
 import Messages.Comp.HttpError
 import Messages.Comp.ShareForm
+import Messages.Comp.ShareMail
 import Messages.Comp.ShareTable
 import Messages.Comp.ShareView
 
@@ -24,6 +25,7 @@ type alias Texts =
     , shareTable : Messages.Comp.ShareTable.Texts
     , shareForm : Messages.Comp.ShareForm.Texts
     , shareView : Messages.Comp.ShareView.Texts
+    , shareMail : Messages.Comp.ShareMail.Texts
     , httpError : Http.Error -> String
     , newShare : String
     , copyToClipboard : String
@@ -36,6 +38,7 @@ type alias Texts =
     , correctFormErrors : String
     , noName : String
     , shareInformation : String
+    , sendMail : String
     }
 
 
@@ -46,6 +49,7 @@ gb =
     , shareTable = Messages.Comp.ShareTable.gb
     , shareForm = Messages.Comp.ShareForm.gb
     , shareView = Messages.Comp.ShareView.gb
+    , shareMail = Messages.Comp.ShareMail.gb
     , newShare = "New share"
     , copyToClipboard = "Copy to clipboard"
     , openInNewTab = "Open in new tab/window"
@@ -57,6 +61,7 @@ gb =
     , correctFormErrors = "Please correct the errors in the form."
     , noName = "No Name"
     , shareInformation = "Share Information"
+    , sendMail = "Send via E-Mail"
     }
 
 
@@ -67,6 +72,7 @@ de =
     , shareForm = Messages.Comp.ShareForm.de
     , shareView = Messages.Comp.ShareView.de
     , httpError = Messages.Comp.HttpError.de
+    , shareMail = Messages.Comp.ShareMail.de
     , newShare = "Neue Freigabe"
     , copyToClipboard = "In die Zwischenablage kopieren"
     , openInNewTab = "Im neuen Tab/Fenster öffnen"
@@ -78,4 +84,5 @@ de =
     , correctFormErrors = "Bitte korrigiere die Fehler im Formular."
     , noName = "Ohne Name"
     , shareInformation = "Informationen zur Freigabe"
+    , sendMail = "Per E-Mail versenden"
     }

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

@@ -1,3 +1,10 @@
+{-
+   Copyright 2020 Eike K. & Contributors
+
+   SPDX-License-Identifier: AGPL-3.0-or-later
+-}
+
+
 module Messages.Comp.SharePasswordForm exposing (Texts, de, gb)
 
 import Http