Date.Extra.I18n.I_fi_fi

module Date.Extra.I18n.I_fi_fi exposing (..)

{-| Finnish values for day and month names.

@docs dayShort
@docs dayName
@docs monthShort
@docs monthName
@docs dayOfMonthWithSuffix

Copyright (c) 2016 Ossi Hanhinen
-}


import Date exposing (Day (..), Month (..))


{-| Day short name. -}
dayShort : Day -> String
dayShort day =
  case day of
    Mon -> "ma"
    Tue -> "ti"
    Wed -> "ke"
    Thu -> "to"
    Fri -> "pe"
    Sat -> "la"
    Sun -> "su"


{-| Day full name. -}
dayName : Day -> String
dayName day =
  case day of
    Mon -> "maanantai"
    Tue -> "tiistai"
    Wed -> "keskiviikko"
    Thu -> "torstai"
    Fri -> "perjantai"
    Sat -> "lauantai"
    Sun -> "sunnuntai"


{-| Month short name. -}
monthShort : Month -> String
monthShort month =
  case month of
    Jan -> "tammi"
    Feb -> "helmi"
    Mar -> "maalis"
    Apr -> "huhti"
    May -> "touko"
    Jun -> "kesä"
    Jul -> "heinä"
    Aug -> "elo"
    Sep -> "syys"
    Oct -> "loka"
    Nov -> "marras"
    Dec -> "joulu"


{-| Month full name. -}
monthName : Month -> String
monthName month =
  case month of
    Jan -> "tammikuuta"
    Feb -> "helmikuuta"
    Mar -> "maaliskuuta"
    Apr -> "huhtikuuta"
    May -> "toukokuuta"
    Jun -> "kesäkuuta"
    Jul -> "heinäkuuta"
    Aug -> "elokuuta"
    Sep -> "syyskuuta"
    Oct -> "lokakuuta"
    Nov -> "marraskuuta"
    Dec -> "joulukuuta"


{-| This may not do anything in Finish -}
dayOfMonthWithSuffix : Bool -> Int -> String
dayOfMonthWithSuffix pad day =
  case day of
    _ -> (toString day)