Some predefined boxes for a dashboard

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

@@ -0,0 +1,46 @@
+module Messages.Comp.BoxQueryView exposing (Texts, de, gb)
+
+import Data.ItemTemplate as IT
+import Http
+import Messages.Basics
+import Messages.Comp.HttpError
+import Messages.Data.Direction
+import Messages.DateFormat as DF
+import Messages.UiLanguage
+
+
+type alias Texts =
+    { httpError : Http.Error -> String
+    , errorOccurred : String
+    , basics : Messages.Basics.Texts
+    , noResults : String
+    , templateCtx : IT.TemplateContext
+    }
+
+
+gb : Texts
+gb =
+    { httpError = Messages.Comp.HttpError.gb
+    , errorOccurred = "Error retrieving data."
+    , basics = Messages.Basics.gb
+    , noResults = "No items found."
+    , templateCtx =
+        { dateFormatLong = DF.formatDateLong Messages.UiLanguage.English
+        , dateFormatShort = DF.formatDateShort Messages.UiLanguage.English
+        , directionLabel = Messages.Data.Direction.gb
+        }
+    }
+
+
+de : Texts
+de =
+    { httpError = Messages.Comp.HttpError.de
+    , errorOccurred = "Fehler beim Laden der Daten."
+    , basics = Messages.Basics.de
+    , noResults = "Keine Dokumente gefunden."
+    , templateCtx =
+        { dateFormatLong = DF.formatDateLong Messages.UiLanguage.German
+        , dateFormatShort = DF.formatDateShort Messages.UiLanguage.German
+        , directionLabel = Messages.Data.Direction.de
+        }
+    }

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

@@ -0,0 +1,32 @@
+module Messages.Comp.BoxSummaryView exposing (Texts, de, gb)
+
+import Http
+import Messages.Basics
+import Messages.Comp.HttpError
+import Messages.Comp.SearchStatsView
+
+
+type alias Texts =
+    { httpError : Http.Error -> String
+    , errorOccurred : String
+    , statsView : Messages.Comp.SearchStatsView.Texts
+    , basics : Messages.Basics.Texts
+    }
+
+
+gb : Texts
+gb =
+    { httpError = Messages.Comp.HttpError.gb
+    , errorOccurred = "Error retrieving data."
+    , statsView = Messages.Comp.SearchStatsView.gb
+    , basics = Messages.Basics.gb
+    }
+
+
+de : Texts
+de =
+    { httpError = Messages.Comp.HttpError.de
+    , errorOccurred = "Fehler beim Laden der Daten."
+    , statsView = Messages.Comp.SearchStatsView.de
+    , basics = Messages.Basics.de
+    }

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

@@ -0,0 +1,24 @@
+module Messages.Comp.BoxView exposing (Texts, de, gb)
+
+import Messages.Comp.BoxQueryView
+import Messages.Comp.BoxSummaryView
+
+
+type alias Texts =
+    { queryView : Messages.Comp.BoxQueryView.Texts
+    , summaryView : Messages.Comp.BoxSummaryView.Texts
+    }
+
+
+gb : Texts
+gb =
+    { queryView = Messages.Comp.BoxQueryView.gb
+    , summaryView = Messages.Comp.BoxSummaryView.gb
+    }
+
+
+de : Texts
+de =
+    { queryView = Messages.Comp.BoxQueryView.de
+    , summaryView = Messages.Comp.BoxSummaryView.de
+    }

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

@@ -0,0 +1,20 @@
+module Messages.Comp.DashboardView exposing (Texts, de, gb)
+
+import Messages.Comp.BoxView
+
+
+type alias Texts =
+    { boxView : Messages.Comp.BoxView.Texts
+    }
+
+
+gb : Texts
+gb =
+    { boxView = Messages.Comp.BoxView.gb
+    }
+
+
+de : Texts
+de =
+    { boxView = Messages.Comp.BoxView.de
+    }

modules/webapp/src/main/elm/Messages/DateFormat.elm

@@ -10,6 +10,7 @@ module Messages.DateFormat exposing
     , formatDateLong
     , formatDateShort
     , formatDateTimeLong
+    , formatDateTimeShort
     )
 
 import DateFormat exposing (Token)
@@ -68,6 +69,11 @@ formatDateShort lang millis =
     format lang .dateShort millis
 
 
+formatDateTimeShort : UiLanguage -> Int -> String
+formatDateTimeShort lang millis =
+    format lang .dateTimeShort millis
+
+
 
 --- Language Definitions
 

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 ]