Externalize error messages

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

@@ -1,7 +1,9 @@
 module Messages.Page.CollectiveSettings exposing (Texts, gb)
 
+import Http
 import Messages.Basics
 import Messages.Comp.CollectiveSettingsForm
+import Messages.Comp.HttpError
 import Messages.Comp.SourceManage
 import Messages.Comp.UserManage
 
@@ -11,6 +13,7 @@ type alias Texts =
     , userManage : Messages.Comp.UserManage.Texts
     , collectiveSettingsForm : Messages.Comp.CollectiveSettingsForm.Texts
     , sourceManage : Messages.Comp.SourceManage.Texts
+    , httpError : Http.Error -> String
     , collectiveSettings : String
     , insights : String
     , sources : String
@@ -19,6 +22,7 @@ type alias Texts =
     , user : String
     , collective : String
     , size : String
+    , submitSuccessful : String
     }
 
 
@@ -28,6 +32,7 @@ gb =
     , userManage = Messages.Comp.UserManage.gb
     , collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.gb
     , sourceManage = Messages.Comp.SourceManage.gb
+    , httpError = Messages.Comp.HttpError.gb
     , collectiveSettings = "Collective Settings"
     , insights = "Insights"
     , sources = "Sources"
@@ -36,4 +41,5 @@ gb =
     , user = "User"
     , collective = "Collective"
     , size = "Size"
+    , submitSuccessful = "Settings saved."
     }

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

@@ -1,8 +1,12 @@
 module Messages.Page.Login exposing (Texts, gb)
 
+import Http
+import Messages.Comp.HttpError
+
 
 type alias Texts =
-    { loginToDocspell : String
+    { httpError : Http.Error -> String
+    , loginToDocspell : String
     , username : String
     , collectiveSlashLogin : String
     , password : String
@@ -18,7 +22,8 @@ type alias Texts =
 
 gb : Texts
 gb =
-    { loginToDocspell = "Login to Docspell"
+    { httpError = Messages.Comp.HttpError.gb
+    , loginToDocspell = "Login to Docspell"
     , username = "Username"
     , collectiveSlashLogin = "Collective / Login"
     , password = "Password"

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

@@ -1,14 +1,18 @@
 module Messages.Page.NewInvite exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
+    , httpError : Http.Error -> String
     , createNewInvitations : String
     , invitationKey : String
     , password : String
     , reset : String
+    , newInvitationCreated : String
     , inviteInfo : String
     }
 
@@ -16,18 +20,22 @@ type alias Texts =
 gb : Texts
 gb =
     { basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
     , createNewInvitations = "Create new invitations"
     , invitationKey = "Invitation Key"
     , password = "Password"
     , reset = "Reset"
+    , newInvitationCreated = "New invitation created."
     , inviteInfo =
-        """Docspell requires an invite when signing up. You can
-         create these invites here and send them to friends so
-         they can signup with docspell.
+        """
+Docspell requires an invite when signing up. You can
+create these invites here and send them to friends so
+they can signup with docspell.
 
-         Each invite can only be used once. You'll need to
-         create one key for each person you want to invite.
+Each invite can only be used once. You'll need to
+create one key for each person you want to invite.
 
-         Creating an invite requires providing the password
-         from the configuration."""
+Creating an invite requires providing the password
+from the configuration.
+"""
     }

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

@@ -1,12 +1,15 @@
 module Messages.Page.Queue exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.DateFormat as DF
 import Messages.UiLanguage
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
+    , httpError : Http.Error -> String
     , currentlyRunning : String
     , queue : String
     , waiting : String
@@ -32,6 +35,7 @@ type alias Texts =
 gb : Texts
 gb =
     { basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
     , currentlyRunning = "Currently Running"
     , queue = "Queue"
     , waiting = "Waiting"

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

@@ -1,10 +1,13 @@
 module Messages.Page.Register exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
+    , httpError : Http.Error -> String
     , signupToDocspell : String
     , collectiveId : String
     , collective : String
@@ -16,12 +19,15 @@ type alias Texts =
     , alreadySignedUp : String
     , signIn : String
     , registrationSuccessful : String
+    , passwordsDontMatch : String
+    , allFieldsRequired : String
     }
 
 
 gb : Texts
 gb =
     { basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
     , signupToDocspell = "Signup to Docspell"
     , collectiveId = "Collective ID"
     , collective = "Collective"
@@ -33,4 +39,6 @@ gb =
     , alreadySignedUp = "Already signed up?"
     , signIn = "Sign in"
     , registrationSuccessful = "Registration successful."
+    , passwordsDontMatch = "The passwords do not match."
+    , allFieldsRequired = "All fields are required!"
     }