git.iko.soy/elk
on master help sign in
Add Date library.
807a7ecevancz
core-elm/Date.elmnew file+8
compare with master
unifiedsplit
@@ -0,0 +1,8 @@
1+
2+module Date where
3+
4+data Weekday = Mon | Tue | Wed | Thu | Fri | Sat | Sun
5+
6+data Month = Jan | Feb | Mar | Apr
7+ | May | Jun | Jul | Aug
8+ | Sep | Oct | Nov | Dec
core-js/Date.jsnew file+31
@@ -0,0 +1,31 @@
1+
2+Elm.Date = function() {
3+
4+ function readDate(str) {
5+ var d = new Date(Elm.JavaScript.castStringToJSString(str));
6+ if (isNaN(d.getTime())) return Nothing;
7+ return Just(d);
8+ }
9+
10+ var dayTable = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"];
11+ var monthTable = ["Jan", "Feb", "Mar", "Apr", "May", "Jun",
12+ "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"];
13+
14+ return {
15+ read : readDate,
16+ year : function(d) { return d.getFullYear(); },
17+ month : function(d) { return [monthTable[d.getMonth()]]; },
18+ day : function(d) { return d.getDate(); },
19+ hour : function(d) { return d.getHours(); },
20+ minute : function(d) { return d.getMinutes(); },
21+ second : function(d) { return d.getSeconds(); },
22+ weekday : function(d) { return [dayTable[d.getDay()]]; },
23+ toTime : function(d) { return d.getTime(); },
24+ Mon : ["Mon"], Tue : ["Tue"], Wed : ["Wed"],
25+ Thu : ["Thu"], Fri : ["Fri"], Sat : ["Sat"], Sun : ["Sun"],
26+ Jan : ["Jan"], Feb : ["Feb"], Mar : ["Mar"], Apr : ["Apr"],
27+ May : ["May"], Jun : ["Jun"], Jul : ["Jul"], Aug : ["Aug"],
28+ Sep : ["Sep"], Oct : ["Oct"], Nov : ["Nov"], Dec : ["Dec"]
29+ };
30+
31+}();