Save and load dashboards

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

@@ -11,7 +11,9 @@ module Messages.Comp.BookmarkChooser exposing
     , gb
     )
 
+import Data.AccountScope exposing (AccountScope(..))
 import Messages.Basics
+import Messages.Data.AccountScope
 
 
 type alias Texts =
@@ -25,8 +27,8 @@ type alias Texts =
 gb : Texts
 gb =
     { basics = Messages.Basics.gb
-    , userLabel = "Personal"
-    , collectiveLabel = "Collective"
+    , userLabel = Messages.Data.AccountScope.gb User
+    , collectiveLabel = Messages.Data.AccountScope.gb Collective
     , shareLabel = "Shares"
     }
 
@@ -34,7 +36,7 @@ gb =
 de : Texts
 de =
     { basics = Messages.Basics.de
-    , userLabel = "Persönlich"
-    , collectiveLabel = "Kollektiv"
+    , userLabel = Messages.Data.AccountScope.de User
+    , collectiveLabel = Messages.Data.AccountScope.de Collective
     , shareLabel = "Freigaben"
     }

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

@@ -2,6 +2,7 @@ module Messages.Comp.DashboardEdit exposing (Texts, de, gb)
 
 import Messages.Basics
 import Messages.Comp.BoxEdit
+import Messages.Data.AccountScope
 import Messages.Data.BoxContent
 
 
@@ -9,10 +10,13 @@ type alias Texts =
     { boxView : Messages.Comp.BoxEdit.Texts
     , boxContent : Messages.Data.BoxContent.Texts
     , basics : Messages.Basics.Texts
+    , accountScope : Messages.Data.AccountScope.Texts
     , namePlaceholder : String
     , columns : String
     , dashboardBoxes : String
     , newBox : String
+    , defaultDashboard : String
+    , gap : String
     }
 
 
@@ -21,10 +25,13 @@ gb =
     { boxView = Messages.Comp.BoxEdit.gb
     , boxContent = Messages.Data.BoxContent.gb
     , basics = Messages.Basics.gb
+    , accountScope = Messages.Data.AccountScope.gb
     , namePlaceholder = "Dashboard name"
     , columns = "Columns"
     , dashboardBoxes = "Dashboard Boxes"
     , newBox = "New box"
+    , defaultDashboard = "Default Dashboard"
+    , gap = "Gap"
     }
 
 
@@ -33,8 +40,11 @@ de =
     { boxView = Messages.Comp.BoxEdit.de
     , boxContent = Messages.Data.BoxContent.de
     , basics = Messages.Basics.de
+    , accountScope = Messages.Data.AccountScope.de
     , namePlaceholder = "Dashboardname"
     , columns = "Spalten"
     , dashboardBoxes = "Dashboard Kacheln"
     , newBox = "Neue Kachel"
+    , defaultDashboard = "Standard Dashboard"
+    , gap = "Abstand"
     }

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

@@ -0,0 +1,44 @@
+module Messages.Comp.DashboardManage exposing (Texts, de, gb)
+
+import Http
+import Messages.Basics
+import Messages.Comp.DashboardEdit
+import Messages.Comp.HttpError
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , dashboardEdit : Messages.Comp.DashboardEdit.Texts
+    , httpError : Http.Error -> String
+    , reallyDeleteDashboard : String
+    , nameEmpty : String
+    , nameExists : String
+    , createDashboard : String
+    , copyDashboard : String
+    }
+
+
+gb : Texts
+gb =
+    { basics = Messages.Basics.gb
+    , dashboardEdit = Messages.Comp.DashboardEdit.gb
+    , httpError = Messages.Comp.HttpError.gb
+    , reallyDeleteDashboard = "Really delete this dashboard?"
+    , nameEmpty = "The name must not be empty."
+    , nameExists = "The name is already in use."
+    , createDashboard = "New"
+    , copyDashboard = "Copy"
+    }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , dashboardEdit = Messages.Comp.DashboardEdit.de
+    , httpError = Messages.Comp.HttpError.de
+    , reallyDeleteDashboard = "Das Dashboard wirklich entfernen?"
+    , nameEmpty = "Ein Name muss angegeben werden."
+    , nameExists = "Der Name wird bereits verwendet."
+    , createDashboard = "Neu"
+    , copyDashboard = "Kopie"
+    }