This is an alternative site for discovering Elm packages. You may be looking for the official Elm package site instead.

Date.Extra.I18n.I_fi_fi

Finnish values for day and month names.

dayShort : Day -> String

Day short name.

dayName : Day -> String

Day full name.

monthShort : Month -> String

Month short name.

monthName : Month -> String

Month full name.

dayOfMonthWithSuffix : Bool -> Int -> String

This may not do anything in Finish

Copyright (c) 2016 Ossi Hanhinen

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)