Outline share detail page

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

@@ -0,0 +1,33 @@
+module Messages.Comp.SharePasswordForm exposing (Texts, de, gb)
+
+import Http
+import Messages.Comp.HttpError
+
+
+type alias Texts =
+    { httpError : Http.Error -> String
+    , passwordRequired : String
+    , password : String
+    , passwordSubmitButton : String
+    , passwordFailed : String
+    }
+
+
+gb : Texts
+gb =
+    { httpError = Messages.Comp.HttpError.gb
+    , passwordRequired = "Password required"
+    , password = "Password"
+    , passwordSubmitButton = "Submit"
+    , passwordFailed = "Das Passwort ist falsch"
+    }
+
+
+de : Texts
+de =
+    { httpError = Messages.Comp.HttpError.de
+    , passwordRequired = "Passwort benötigt"
+    , password = "Passwort"
+    , passwordSubmitButton = "Submit"
+    , passwordFailed = "Password is wrong"
+    }

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

@@ -10,16 +10,14 @@ module Messages.Page.Share exposing (..)
 import Messages.Basics
 import Messages.Comp.ItemCardList
 import Messages.Comp.SearchMenu
+import Messages.Comp.SharePasswordForm
 
 
 type alias Texts =
     { searchMenu : Messages.Comp.SearchMenu.Texts
     , basics : Messages.Basics.Texts
     , itemCardList : Messages.Comp.ItemCardList.Texts
-    , passwordRequired : String
-    , password : String
-    , passwordSubmitButton : String
-    , passwordFailed : String
+    , passwordForm : Messages.Comp.SharePasswordForm.Texts
     }
 
 
@@ -28,10 +26,7 @@ gb =
     { searchMenu = Messages.Comp.SearchMenu.gb
     , basics = Messages.Basics.gb
     , itemCardList = Messages.Comp.ItemCardList.gb
-    , passwordRequired = "Password required"
-    , password = "Password"
-    , passwordSubmitButton = "Submit"
-    , passwordFailed = "Das Passwort ist falsch"
+    , passwordForm = Messages.Comp.SharePasswordForm.gb
     }
 
 
@@ -40,8 +35,5 @@ de =
     { searchMenu = Messages.Comp.SearchMenu.de
     , basics = Messages.Basics.de
     , itemCardList = Messages.Comp.ItemCardList.de
-    , passwordRequired = "Passwort benötigt"
-    , password = "Passwort"
-    , passwordSubmitButton = "Submit"
-    , passwordFailed = "Password is wrong"
+    , passwordForm = Messages.Comp.SharePasswordForm.de
     }

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

@@ -0,0 +1,20 @@
+module Messages.Page.ShareDetail exposing (..)
+
+import Messages.Comp.SharePasswordForm
+
+
+type alias Texts =
+    { passwordForm : Messages.Comp.SharePasswordForm.Texts
+    }
+
+
+gb : Texts
+gb =
+    { passwordForm = Messages.Comp.SharePasswordForm.gb
+    }
+
+
+de : Texts
+de =
+    { passwordForm = Messages.Comp.SharePasswordForm.de
+    }