blob: c9d44abc535eca3a23cb9661b2d6a6aece330ca6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
module LoggedIn.View.Date
( renderShortDate
, renderLongDate
, renderMonth
) where
import Date exposing (..)
import Utils.Date exposing (monthToNum)
import String
import Model.Translations exposing (..)
renderShortDate : Date -> Translations -> String
renderShortDate date translations =
let params =
[ String.pad 2 '0' (toString (Date.day date))
, String.pad 2 '0' (toString (monthToNum (Date.month date)))
, toString (Date.year date)
]
in getParamMessage params "ShortDate" translations
renderLongDate : Date -> Translations -> String
renderLongDate date translations =
let params =
[ toString (Date.day date)
, (getMessage (getMonthKey (Date.month date)) translations)
, toString (Date.year date)
]
in getParamMessage params "LongDate" translations
renderMonth : Translations -> Month -> String
renderMonth translations month = getMessage (getMonthKey month) translations
getMonthKey : Month -> String
getMonthKey month =
case month of
Jan -> "January"
Feb -> "February"
Mar -> "March"
Apr -> "April"
May -> "May"
Jun -> "June"
Jul -> "July"
Aug -> "August"
Sep -> "September"
Oct -> "October"
Nov -> "November"
Dec -> "December"
|
