Some predefined boxes for a dashboard

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

@@ -1,6 +1,7 @@
 module Messages.Page.Dashboard exposing (Texts, de, gb)
 
 import Messages.Comp.BookmarkChooser
+import Messages.Comp.DashboardView
 import Messages.Comp.EquipmentManage
 import Messages.Comp.FolderManage
 import Messages.Comp.NotificationHookManage
@@ -10,6 +11,7 @@ import Messages.Comp.PersonManage
 import Messages.Comp.ShareManage
 import Messages.Comp.SourceManage
 import Messages.Comp.TagManage
+import Messages.Page.DefaultDashboard
 
 
 type alias Texts =
@@ -23,6 +25,8 @@ type alias Texts =
     , equipManage : Messages.Comp.EquipmentManage.Texts
     , tagManage : Messages.Comp.TagManage.Texts
     , folderManage : Messages.Comp.FolderManage.Texts
+    , dashboard : Messages.Comp.DashboardView.Texts
+    , defaultDashboard : Messages.Page.DefaultDashboard.Texts
     }
 
 
@@ -38,6 +42,8 @@ gb =
     , equipManage = Messages.Comp.EquipmentManage.gb
     , tagManage = Messages.Comp.TagManage.gb
     , folderManage = Messages.Comp.FolderManage.gb
+    , dashboard = Messages.Comp.DashboardView.gb
+    , defaultDashboard = Messages.Page.DefaultDashboard.gb
     }
 
 
@@ -53,4 +59,6 @@ de =
     , equipManage = Messages.Comp.EquipmentManage.de
     , tagManage = Messages.Comp.TagManage.de
     , folderManage = Messages.Comp.FolderManage.de
+    , dashboard = Messages.Comp.DashboardView.de
+    , defaultDashboard = Messages.Page.DefaultDashboard.de
     }

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

@@ -0,0 +1,57 @@
+module Messages.Page.DefaultDashboard exposing (Texts, de, gb)
+
+import Messages.Basics
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , default : String
+    , welcomeName : String
+    , welcomeTitle : String
+    , welcomeBody : String
+    , summaryName : String
+    , dueInDays : Int -> String
+    , dueHeaderColumns : List String
+    , newDocsName : String
+    }
+
+
+gb : Texts
+gb =
+    let
+        b =
+            Messages.Basics.gb
+    in
+    { basics = b
+    , default = "Default"
+    , welcomeName = "Welcome Message"
+    , welcomeTitle = "# Welcome to Docspell"
+    , welcomeBody = "Docspell keeps your documents organized."
+    , summaryName = "Summary"
+    , dueInDays = \n -> "Due in " ++ String.fromInt n ++ " days"
+    , dueHeaderColumns = dueHeaderCols b
+    , newDocsName = "New Documents"
+    }
+
+
+de : Texts
+de =
+    let
+        b =
+            Messages.Basics.de
+    in
+    { basics = b
+    , default = "Standard"
+    , welcomeName = "Willkommens-Nachricht"
+    , welcomeTitle = "# Willkommen zu Docspell"
+    , welcomeBody = "Docspell behält die Übersicht über deine Dokumene."
+    , summaryName = "Zahlen"
+    , dueInDays = \n -> "Fällig in " ++ String.fromInt n ++ " Tagen"
+    , newDocsName = "Neue Dokumente"
+    , dueHeaderColumns = dueHeaderCols b
+    }
+
+
+dueHeaderCols : Messages.Basics.Texts -> List String
+dueHeaderCols b =
+    [ b.name, b.correspondent, b.date ]