diff --git a/src/DateFormat/Language.elm b/src/DateFormat/Language.elm index 50a2043..5d46719 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, norwegian ) {-| @@ -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, norwegian -} @@ -625,3 +625,96 @@ toFrenchOrdinalSuffix n = else "e" + + + +-- Norwegian + + +{-| The Norwegian language! +-} +norwegian : Language +norwegian = + Language + toNorwegianMonthName + (toNorwegianMonthName >> String.left 3) + toNorwegianWeekdayName + (toNorwegianWeekdayName >> String.left 3) + toNorwegianAmPm + toNorwegianOrdinalSuffix + + +toNorwegianMonthName : Time.Month -> String +toNorwegianMonthName month = + case month of + Jan -> + "januar" + + Feb -> + "februar" + + Mar -> + "mars" + + Apr -> + "april" + + May -> + "mai" + + Jun -> + "juni" + + Jul -> + "juli" + + Aug -> + "august" + + Sep -> + "september" + + Oct -> + "oktober" + + Nov -> + "november" + + Dec -> + "desember" + + +toNorwegianWeekdayName : Time.Weekday -> String +toNorwegianWeekdayName weekday = + case weekday of + Mon -> + "mandag" + + Tue -> + "tirsdag" + + Wed -> + "onsdag" + + Thu -> + "torsdag" + + Fri -> + "fredag" + + Sat -> + "lørdag" + + Sun -> + "søndag" + + +toNorwegianAmPm : Int -> String +toNorwegianAmPm _ = + -- Norwegian uses 24h formatting only. + "" + + +toNorwegianOrdinalSuffix : Int -> String +toNorwegianOrdinalSuffix _ = + "."