Add German translation for UserSettings page

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

@@ -1,4 +1,7 @@
-module Messages.Data.Color exposing (gb)
+module Messages.Data.Color exposing
+    ( de
+    , gb
+    )
 
 import Data.Color exposing (Color(..))
 
@@ -44,3 +47,46 @@ gb color =
 
         Black ->
             "Black"
+
+
+de : Color -> String
+de color =
+    case color of
+        Red ->
+            "Rot"
+
+        Orange ->
+            "Orange"
+
+        Yellow ->
+            "Gelb"
+
+        Olive ->
+            "Olive-Grün"
+
+        Green ->
+            "Grün"
+
+        Teal ->
+            "Blaugrün"
+
+        Blue ->
+            "Blau"
+
+        Violet ->
+            "Violett"
+
+        Purple ->
+            "Lila"
+
+        Pink ->
+            "Rosa"
+
+        Brown ->
+            "Braun"
+
+        Grey ->
+            "Grau"
+
+        Black ->
+            "Schwarz"

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

@@ -1,4 +1,7 @@
-module Messages.Data.Fields exposing (gb)
+module Messages.Data.Fields exposing
+    ( de
+    , gb
+    )
 
 import Data.Fields exposing (Field(..))
 
@@ -41,3 +44,43 @@ gb field =
 
         SourceName ->
             "Item Source"
+
+
+de : Field -> String
+de field =
+    case field of
+        Tag ->
+            "Tag"
+
+        Folder ->
+            "Ordner"
+
+        CorrOrg ->
+            "Korrespondent Organisation"
+
+        CorrPerson ->
+            "Korrespondent Person"
+
+        ConcPerson ->
+            "Betreffend Person"
+
+        ConcEquip ->
+            "Betreffend Zubehör"
+
+        Date ->
+            "Datum"
+
+        DueDate ->
+            "Fälligkeits-Datum"
+
+        Direction ->
+            "Richtung"
+
+        PreviewImage ->
+            "Vorschau Bild"
+
+        CustomFields ->
+            "Benutzer Felder"
+
+        SourceName ->
+            "Quelle"

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

@@ -1,4 +1,7 @@
-module Messages.Data.SSLType exposing (gb)
+module Messages.Data.SSLType exposing
+    ( de
+    , gb
+    )
 
 import Data.SSLType exposing (SSLType(..))
 
@@ -14,3 +17,16 @@ gb st =
 
         StartTLS ->
             "StartTLS"
+
+
+de : SSLType -> String
+de st =
+    case st of
+        None ->
+            "Keine"
+
+        SSL ->
+            "SSL/TLS"
+
+        StartTLS ->
+            "StartTLS"