partial user settings

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

@@ -5,7 +5,7 @@
 -}
 
 
-module Messages.Data.AccountScope exposing (Texts, de, gb)
+module Messages.Data.AccountScope exposing (Texts, de, gb, fr)
 
 import Data.AccountScope exposing (AccountScope)
 
@@ -22,3 +22,8 @@ gb =
 de : Texts
 de =
     Data.AccountScope.fold "Persönlich" "Kollektiv"
+
+
+fr : Texts
+fr =
+    Data.AccountScope.fold "Personnel" "Groupe"

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

@@ -5,7 +5,7 @@
 -}
 
 
-module Messages.Data.ChannelType exposing (Texts, de, gb)
+module Messages.Data.ChannelType exposing (Texts, de, gb, fr)
 
 import Data.ChannelType exposing (ChannelType)
 
@@ -44,3 +44,20 @@ de ct =
 
         Data.ChannelType.Http ->
             "JSON"
+
+
+fr : Texts
+fr ct =
+    case ct of
+        Data.ChannelType.Matrix ->
+            "Matrix"
+
+        Data.ChannelType.Gotify ->
+            "Gotify"
+
+        Data.ChannelType.Mail ->
+            "E-Mail"
+
+        Data.ChannelType.Http ->
+            "JSON"
+

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

@@ -8,6 +8,7 @@
 module Messages.Data.Color exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.Color exposing (Color(..))
@@ -97,3 +98,45 @@ de color =
 
         Black ->
             "Schwarz"
+
+fr : Color -> String
+fr color =
+    case color of
+        Red ->
+            "Rouge"
+
+        Orange ->
+            "Orange"
+
+        Yellow ->
+            "Jaune"
+
+        Olive ->
+            "Olive"
+
+        Green ->
+            "Vert"
+
+        Teal ->
+            "Turquoise"
+
+        Blue ->
+            "Bleu"
+
+        Violet ->
+            "Mauve"
+
+        Purple ->
+            "Violet"
+
+        Pink ->
+            "Rose"
+
+        Brown ->
+            "Marron"
+
+        Grey ->
+            "Gris"
+
+        Black ->
+            "Noir"

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

@@ -8,6 +8,7 @@
 module Messages.Data.Fields exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.Fields exposing (Field(..))
@@ -91,3 +92,43 @@ de field =
 
         SourceName ->
             "Quelle"
+
+
+fr : Field -> String
+fr field =
+    case field of
+        Tag ->
+            "Tag"
+
+        Folder ->
+            "Dossier"
+
+        CorrOrg ->
+            "Organisation correspondante"
+
+        CorrPerson ->
+            "Personne correspondante"
+
+        ConcPerson ->
+            "Personne concernée"
+
+        ConcEquip ->
+            "Équipement concerné"
+
+        Date ->
+            "Date"
+
+        DueDate ->
+            "Date d'échéance"
+
+        Direction ->
+            "Sens"
+
+        PreviewImage ->
+            "Aperçu"
+
+        CustomFields ->
+            "Champs personnalisés"
+
+        SourceName ->
+            "Source du document"

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

@@ -8,6 +8,7 @@
 module Messages.Data.PdfMode exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.Pdf exposing (PdfMode(..))
@@ -37,3 +38,17 @@ de st =
 
         Server ->
             "Browserübergreifende Ersatzdarstellung"
+
+
+
+fr : PdfMode -> String
+fr st =
+    case st of
+        Detect ->
+            "Détecter automatiquement"
+
+        Native ->
+            "Utiliser le support pdf natif du navigateur"
+
+        Server ->
+            "Utiliser le mode compatibilité"

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

@@ -8,6 +8,7 @@
 module Messages.Data.SSLType exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.SSLType exposing (SSLType(..))
@@ -37,3 +38,16 @@ de st =
 
         StartTLS ->
             "StartTLS"
+
+fr : SSLType -> String
+fr st =
+    case st of
+        None ->
+            "Aucun"
+
+        SSL ->
+            "SSL/TLS"
+
+        StartTLS ->
+            "StartTLS"
+