Editable dashboard

This commit is contained in:
eikek
2022-01-26 21:27:26 +01:00
parent 2c2b34cd89
commit e83bf6b750
41 changed files with 2813 additions and 130 deletions

View File

@ -2,6 +2,7 @@ module Messages.Page.Dashboard exposing (Texts, de, gb)
import Messages.Basics
import Messages.Comp.BookmarkChooser
import Messages.Comp.DashboardEdit
import Messages.Comp.DashboardView
import Messages.Comp.EquipmentManage
import Messages.Comp.FolderManage
@ -30,6 +31,7 @@ type alias Texts =
, folderManage : Messages.Comp.FolderManage.Texts
, uploadForm : Messages.Comp.UploadForm.Texts
, dashboard : Messages.Comp.DashboardView.Texts
, dashboardEdit : Messages.Comp.DashboardEdit.Texts
, defaultDashboard : Messages.Page.DefaultDashboard.Texts
, manage : String
, dashboardLink : String
@ -38,6 +40,7 @@ type alias Texts =
, settings : String
, documentation : String
, uploadFiles : String
, editDashboard : String
}
@ -56,6 +59,7 @@ gb =
, folderManage = Messages.Comp.FolderManage.gb
, uploadForm = Messages.Comp.UploadForm.gb
, dashboard = Messages.Comp.DashboardView.gb
, dashboardEdit = Messages.Comp.DashboardEdit.gb
, defaultDashboard = Messages.Page.DefaultDashboard.gb
, manage = "Manage"
, dashboardLink = "Dasbhoard"
@ -64,6 +68,7 @@ gb =
, settings = "Settings"
, documentation = "Documentation"
, uploadFiles = "Upload documents"
, editDashboard = "Edit Dashboard"
}
@ -82,12 +87,14 @@ de =
, folderManage = Messages.Comp.FolderManage.de
, uploadForm = Messages.Comp.UploadForm.de
, dashboard = Messages.Comp.DashboardView.de
, dashboardEdit = Messages.Comp.DashboardEdit.de
, defaultDashboard = Messages.Page.DefaultDashboard.de
, manage = "Managen"
, manage = "Verwalten"
, dashboardLink = "Dasbhoard"
, bookmarks = "Bookmarks"
, misc = "Anderes"
, settings = "Einstellungen"
, documentation = "Dokumentation"
, uploadFiles = "Dokumente hochladen"
, editDashboard = "Dashboard ändern"
}

View File

@ -1,8 +1,6 @@
module Messages.Page.DefaultDashboard exposing (Texts, de, gb)
import Data.Fields exposing (Field)
import Messages.Basics
import Messages.Data.Fields
type alias Texts =
@ -13,36 +11,26 @@ type alias Texts =
, welcomeBody : String
, summaryName : String
, dueInDays : Int -> String
, dueHeaderColumns : List String
, newDocsName : String
}
gb : Texts
gb =
let
b =
Messages.Basics.gb
in
{ basics = b
{ basics = Messages.Basics.gb
, 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 Messages.Data.Fields.gb
, newDocsName = "New Documents"
}
de : Texts
de =
let
b =
Messages.Basics.de
in
{ basics = b
{ basics = Messages.Basics.de
, default = "Standard"
, welcomeName = "Willkommens-Nachricht"
, welcomeTitle = "# Willkommen zu Docspell"
@ -50,10 +38,4 @@ de =
, summaryName = "Zahlen"
, dueInDays = \n -> "Fällig in " ++ String.fromInt n ++ " Tagen"
, newDocsName = "Neue Dokumente"
, dueHeaderColumns = dueHeaderCols b Messages.Data.Fields.de
}
dueHeaderCols : Messages.Basics.Texts -> (Field -> String) -> List String
dueHeaderCols b d =
[ b.name, b.correspondent, d Data.Fields.DueDate ]