2013-09-30 07:44:31 +00:00
|
|
|
Elm.Native.Date = {};
|
|
|
|
Elm.Native.Date.make = function(elm) {
|
2013-03-09 07:22:15 +00:00
|
|
|
elm.Native = elm.Native || {};
|
2013-09-30 08:32:27 +00:00
|
|
|
elm.Native.Date = elm.Native.Date || {};
|
|
|
|
if (elm.Native.Date.values) return elm.Native.Date.values;
|
2013-03-09 07:22:15 +00:00
|
|
|
|
2013-09-30 07:44:31 +00:00
|
|
|
var JS = Elm.JavaScript.make(elm);
|
|
|
|
var Maybe = Elm.Maybe.make(elm);
|
2013-02-21 23:33:53 +00:00
|
|
|
|
|
|
|
function dateNow() { return new window.Date; }
|
|
|
|
function readDate(str) {
|
2013-03-09 07:22:15 +00:00
|
|
|
var d = new window.Date(JS.fromString(str));
|
|
|
|
if (isNaN(d.getTime())) return Maybe.Nothing;
|
|
|
|
return Maybe.Just(d);
|
2013-02-21 23:33:53 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
var dayTable = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"];
|
|
|
|
var monthTable = ["Jan", "Feb", "Mar", "Apr", "May", "Jun",
|
|
|
|
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"];
|
|
|
|
|
2013-09-30 08:32:27 +00:00
|
|
|
return elm.Native.Date.values = {
|
2013-02-21 23:33:53 +00:00
|
|
|
read : readDate,
|
|
|
|
year : function(d) { return d.getFullYear(); },
|
|
|
|
month : function(d) { return { ctor:monthTable[d.getMonth()] }; },
|
|
|
|
day : function(d) { return d.getDate(); },
|
|
|
|
hour : function(d) { return d.getHours(); },
|
|
|
|
minute : function(d) { return d.getMinutes(); },
|
|
|
|
second : function(d) { return d.getSeconds(); },
|
2013-03-12 07:48:11 +00:00
|
|
|
toTime : function(d) { return d.getTime(); },
|
|
|
|
dayOfWeek : function(d) { return { ctor:dayTable[d.getDay()] }; }
|
2013-02-21 23:33:53 +00:00
|
|
|
};
|
|
|
|
|
2013-03-09 07:22:15 +00:00
|
|
|
};
|