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"
+    }

modules/webapp/src/main/elm/Messages/Data/AccountScope.elm

@@ -0,0 +1,17 @@
+module Messages.Data.AccountScope exposing (Texts, de, gb)
+
+import Data.AccountScope exposing (AccountScope)
+
+
+type alias Texts =
+    AccountScope -> String
+
+
+gb : Texts
+gb =
+    Data.AccountScope.fold "Personal" "Collective"
+
+
+de : Texts
+de =
+    Data.AccountScope.fold "Persönlich" "Kollektiv"

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

@@ -2,7 +2,7 @@ module Messages.Page.Dashboard exposing (Texts, de, gb)
 
 import Messages.Basics
 import Messages.Comp.BookmarkChooser
-import Messages.Comp.DashboardEdit
+import Messages.Comp.DashboardManage
 import Messages.Comp.DashboardView
 import Messages.Comp.EquipmentManage
 import Messages.Comp.FolderManage
@@ -14,6 +14,7 @@ import Messages.Comp.ShareManage
 import Messages.Comp.SourceManage
 import Messages.Comp.TagManage
 import Messages.Comp.UploadForm
+import Messages.Data.AccountScope
 import Messages.Page.DefaultDashboard
 
 
@@ -31,8 +32,9 @@ type alias Texts =
     , folderManage : Messages.Comp.FolderManage.Texts
     , uploadForm : Messages.Comp.UploadForm.Texts
     , dashboard : Messages.Comp.DashboardView.Texts
-    , dashboardEdit : Messages.Comp.DashboardEdit.Texts
+    , dashboardManage : Messages.Comp.DashboardManage.Texts
     , defaultDashboard : Messages.Page.DefaultDashboard.Texts
+    , accountScope : Messages.Data.AccountScope.Texts
     , manage : String
     , dashboardLink : String
     , bookmarks : String
@@ -41,6 +43,8 @@ type alias Texts =
     , documentation : String
     , uploadFiles : String
     , editDashboard : String
+    , dashboards : String
+    , predefinedMessage : String
     }
 
 
@@ -59,8 +63,9 @@ gb =
     , folderManage = Messages.Comp.FolderManage.gb
     , uploadForm = Messages.Comp.UploadForm.gb
     , dashboard = Messages.Comp.DashboardView.gb
-    , dashboardEdit = Messages.Comp.DashboardEdit.gb
+    , dashboardManage = Messages.Comp.DashboardManage.gb
     , defaultDashboard = Messages.Page.DefaultDashboard.gb
+    , accountScope = Messages.Data.AccountScope.gb
     , manage = "Manage"
     , dashboardLink = "Dasbhoard"
     , bookmarks = "Bookmarks"
@@ -69,6 +74,8 @@ gb =
     , documentation = "Documentation"
     , uploadFiles = "Upload documents"
     , editDashboard = "Edit Dashboard"
+    , dashboards = "Dashboards"
+    , predefinedMessage = "This dashboard is predefined one that cannot be deleted."
     }
 
 
@@ -87,8 +94,9 @@ de =
     , folderManage = Messages.Comp.FolderManage.de
     , uploadForm = Messages.Comp.UploadForm.de
     , dashboard = Messages.Comp.DashboardView.de
-    , dashboardEdit = Messages.Comp.DashboardEdit.de
+    , dashboardManage = Messages.Comp.DashboardManage.de
     , defaultDashboard = Messages.Page.DefaultDashboard.de
+    , accountScope = Messages.Data.AccountScope.de
     , manage = "Verwalten"
     , dashboardLink = "Dasbhoard"
     , bookmarks = "Bookmarks"
@@ -97,4 +105,6 @@ de =
     , documentation = "Dokumentation"
     , uploadFiles = "Dokumente hochladen"
     , editDashboard = "Dashboard ändern"
+    , dashboards = "Dashboards"
+    , predefinedMessage = "Dieses Dashboard ist vordefiniert und kann nicht entfernt werden."
     }