From c3b66648f4005128078e778a22f225c47bf17266 Mon Sep 17 00:00:00 2001
From: Igor Ranieri Elland <Elland@users.noreply.github.com>
Date: Fri, 30 Oct 2020 16:53:42 +0100
Subject: [PATCH] Added German to language option.

---
 src/DateFormat/Language.elm | 89 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 87 insertions(+), 2 deletions(-)

diff --git a/src/DateFormat/Language.elm b/src/DateFormat/Language.elm
index 50a2043..7ee3748 100644
--- a/src/DateFormat/Language.elm
+++ b/src/DateFormat/Language.elm
@@ -1,6 +1,6 @@
 module DateFormat.Language exposing
     ( Language
-    , english, spanish, dutch, swedish, portuguese, french
+    , english, spanish, dutch, swedish, portuguese, french, german
     )
 
 {-|
@@ -22,7 +22,7 @@ This module exposes `Language`, along with a few implementations.
 
 ### Languages
 
-@docs english, spanish, dutch, swedish, portuguese, french
+@docs english, spanish, dutch, swedish, portuguese, french, german
 
 -}
 
@@ -625,3 +625,88 @@ toFrenchOrdinalSuffix n =
 
     else
         "e"
+
+-- German
+
+
+toGermanMonthName : Month -> String
+toGermanMonthName month =
+    case month of
+        Jan ->
+            "Januar"
+
+        Feb ->
+            "Februar"
+
+        Mar ->
+            "März"
+
+        Apr ->
+            "April"
+
+        May ->
+            "Mai"
+
+        Jun ->
+            "Juni"
+
+        Jul ->
+            "Juli"
+
+        Aug ->
+            "August"
+
+        Sep ->
+            "September"
+
+        Oct ->
+            "Oktober"
+
+        Nov ->
+            "November"
+
+        Dec ->
+            "Dezember"
+
+
+toGermanWeekdayName : Weekday -> String
+toGermanWeekdayName weekday =
+    case weekday of
+        Mon ->
+            "Montag"
+
+        Tue ->
+            "Dienstag"
+
+        Wed ->
+            "Mittwoch"
+
+        Thu ->
+            "Donnerstag"
+
+        Fri ->
+            "Freitag"
+
+        Sat ->
+            "Samstag"
+
+        Sun ->
+            "Sonntag"
+
+
+toGermanSuffix : Int -> String
+toGermanSuffix _ = "."
+
+
+{-| The german language!
+-}
+german : Language
+german =
+    Language
+        toGermanMonthName
+        (toGermanMonthName >> String.left 3)
+        toGermanWeekdayName
+        (toGermanWeekdayName >> String.left 3)
+        toEnglishAmPm
+        toGermanSuffix
+