share et dashboad

This commit is contained in:
Jimmy Girardet
2022-03-10 12:11:43 +01:00
parent 8d7308d970
commit 58255f60a3
20 changed files with 264 additions and 35 deletions

View File

@ -5,7 +5,7 @@
-}
module Messages.Data.BoxContent exposing (Texts, de, gb)
module Messages.Data.BoxContent exposing (Texts, de, gb, fr)
import Data.BoxContent exposing (BoxContent(..))
@ -59,3 +59,13 @@ updateForContent init =
BoxStats _ ->
init.statsBox
}
fr : Texts
fr =
updateForContent
{ forContent = \_ -> ""
, queryBox = "Boite de recherche"
, statsBox = "Boite de statistique"
, messageBox = "Boite de message"
, uploadBox = "Boite d'envoi"
}

View File

@ -5,7 +5,7 @@
-}
module Messages.Data.ItemColumn exposing (Texts, de, gb)
module Messages.Data.ItemColumn exposing (Texts, de, gb, fr)
import Data.ItemColumn exposing (ItemColumn(..))
@ -120,3 +120,57 @@ de =
_ ->
headerName col
}
fr : Texts
fr =
let
headerName col =
case col of
Name ->
"Nom"
DateLong ->
"Date"
DateShort ->
"Date"
DueDateLong ->
"Date d'échéance"
DueDateShort ->
"Date d'échéance"
Folder ->
"Dossier"
Correspondent ->
"Correspondant"
Concerning ->
"Concerné"
Tags ->
"Tags"
in
{ header = headerName
, label =
\col ->
case col of
DateShort ->
headerName col ++ " (court)"
DateLong ->
headerName col ++ " (long)"
DueDateShort ->
headerName col ++ " (court)"
DueDateLong ->
headerName col ++ " (long)"
_ ->
headerName col
}