61 lines
1.1 KiB
Elm
61 lines
1.1 KiB
Elm
module Page exposing (format)
|
|
|
|
import Html exposing (Html, span, text)
|
|
import Time exposing (Month(..), Posix, utc)
|
|
|
|
|
|
formatMonth : Month -> String
|
|
formatMonth month =
|
|
case month of
|
|
Jan ->
|
|
"Jan"
|
|
|
|
Feb ->
|
|
"Feb"
|
|
|
|
Mar ->
|
|
"Mar"
|
|
|
|
Apr ->
|
|
"Apr"
|
|
|
|
May ->
|
|
"May"
|
|
|
|
Jun ->
|
|
"Jun"
|
|
|
|
Jul ->
|
|
"Jul"
|
|
|
|
Aug ->
|
|
"Aug"
|
|
|
|
Sep ->
|
|
"Sep"
|
|
|
|
Oct ->
|
|
"Oct"
|
|
|
|
Nov ->
|
|
"Nov"
|
|
|
|
Dec ->
|
|
"Dec"
|
|
|
|
|
|
format : Posix -> Html msg
|
|
format time =
|
|
span
|
|
[]
|
|
[ text <| String.pad 2 '0' <| String.fromInt <| Time.toHour utc time
|
|
, text ":"
|
|
, text <| String.pad 2 '0' <| String.fromInt <| Time.toMinute utc time
|
|
, text " "
|
|
, text <| formatMonth <| Time.toMonth utc time
|
|
, text " "
|
|
, text <| String.pad 2 '0' <| String.fromInt <| Time.toDay utc time
|
|
, text " "
|
|
, text <| String.fromInt <| Time.toYear utc time
|
|
]
|