diff options
author | Joris | 2016-03-27 21:59:46 +0200 |
---|---|---|
committer | Joris | 2016-03-27 21:59:46 +0200 |
commit | b0d80a5458d7ba4546e5f01f5b6398ea6d23f981 (patch) | |
tree | c19421e93f8797d3ea3bd7385bffa7a27296991f /src/client/elm/LoggedIn/View/Date.elm | |
parent | bcaf346553abf5821bec1e6d9928c68c4a2f998e (diff) | |
download | budget-b0d80a5458d7ba4546e5f01f5b6398ea6d23f981.tar.gz budget-b0d80a5458d7ba4546e5f01f5b6398ea6d23f981.tar.bz2 budget-b0d80a5458d7ba4546e5f01f5b6398ea6d23f981.zip |
Move view and models files
Diffstat (limited to 'src/client/elm/LoggedIn/View/Date.elm')
-rw-r--r-- | src/client/elm/LoggedIn/View/Date.elm | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/src/client/elm/LoggedIn/View/Date.elm b/src/client/elm/LoggedIn/View/Date.elm new file mode 100644 index 0000000..62c8be5 --- /dev/null +++ b/src/client/elm/LoggedIn/View/Date.elm @@ -0,0 +1,59 @@ +module LoggedIn.View.Date + ( renderShortDate + , renderLongDate + ) where + +import Date exposing (..) +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 (getMonthNumber (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 + +getMonthNumber : Month -> Int +getMonthNumber month = + case month of + Jan -> 1 + Feb -> 2 + Mar -> 3 + Apr -> 4 + May -> 5 + Jun -> 6 + Jul -> 7 + Aug -> 8 + Sep -> 9 + Oct -> 10 + Nov -> 11 + Dec -> 12 + +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" |