add weekday name format for DateTimes

Author: tippenein

src/Data/Formatter/DateTime.purs

@@ -57,6 +57,7 @@ data FormatterCommand
   | DayOfMonth
   | UnixTimestamp
   | DayOfWeek
+  | DayOfWeekName
   | Hours24
   | Hours12
   | Meridiem
@@ -89,6 +90,7 @@ printFormatterCommand = case _ of
   DayOfMonth → "D"
   UnixTimestamp → "X"
   DayOfWeek → "E"
+  DayOfWeekName → "A"
   Hours24 → "HH"
   Hours12 → "hh"
   Meridiem → "a"
@@ -125,6 +127,7 @@ formatterCommandParser = (PC.try <<< PS.string) `oneOfAs`
   , Tuple "DD" DayOfMonthTwoDigits
   , Tuple "D" DayOfMonth
   , Tuple "E" DayOfWeek
+  , Tuple "A" DayOfWeekName
   , Tuple "HH" Hours24
   , Tuple "hh" Hours12
   , Tuple "a" Meridiem
@@ -167,6 +170,7 @@ formatCommand dt@(DT.DateTime d t) = case _ of
   DayOfMonth → show $ fromEnum $ D.day d
   UnixTimestamp → show $ Int.floor $ (_ / 1000.0) $ unwrap $ unInstant $ fromDateTime dt
   DayOfWeek → show $ fromEnum $ D.weekday d
+  DayOfWeekName → show $ D.weekday d
   Hours24 → padSingleDigit (fromEnum $ T.hour t)
   Hours12 → padSingleDigit $ fix12 $ (fromEnum $ T.hour t) `mod` 12
   Meridiem → if (fromEnum $ T.hour t) >= 12 then "PM" else "AM"
@@ -356,6 +360,8 @@ unformatCommandParser = case _ of
         }
   -- TODO we would need to use this value if we support date format using week number
   DayOfWeek → void $ parseInt 1 (validateRange 1 7) "Incorrect day of week"
+  DayOfWeekName → _{day = _} `modifyWithParser`
+    (fromEnum <$> parseDayOfWeekName)
   Hours24 → _{hour = _} `modifyWithParser`
     (parseInt 2 (validateRange 0 24 <> exactLength) "Incorrect 24 hour")
   Hours12 → _{hour = _} `modifyWithParser`
@@ -405,6 +411,18 @@ parseMeridiem =  (PC.try <<< PS.string) `oneOfAs`
   , Tuple "PM" PM
   ]
 
+
+parseDayOfWeekName ∷ ∀ m. Monad m ⇒ P.ParserT String m D.Weekday
+parseDayOfWeekName = (PC.try <<< PS.string) `oneOfAs`
+  [ Tuple "Monday" D.Monday
+  , Tuple "Tuesday" D.Tuesday
+  , Tuple "Wednesday" D.Wednesday
+  , Tuple "Thursday" D.Thursday
+  , Tuple "Friday" D.Friday
+  , Tuple "Saturday" D.Saturday
+  , Tuple "Sunday" D.Sunday
+  ]
+
 parseMonth ∷ ∀ m. Monad m ⇒ P.ParserT String m D.Month
 parseMonth = (PC.try <<< PS.string) `oneOfAs`
   [ Tuple "January" D.January

test/src/DateTime.purs

@@ -22,6 +22,7 @@ datetimeTest = describe "Data.Formatter.DateTime" do
     , { format: "YYYY-DD-MM", dateStr: "2017-12-04" , date: makeDateTime 2017 4 12 11 3 4 234}
     , { format: "YYYY-MMM", dateStr: "2017-Apr" , date: makeDateTime 2017 4 12 11 3 4 234}
     , { format: "MMM D", dateStr: "Apr 1" , date: makeDateTime 2017 4 1 0 0 0 0}
+    , { format: "A, MMM D", dateStr: "Saturday, Apr 1" , date: makeDateTime 2017 4 1 0 0 0 0}
     , { format: "hh:mm:ss:SSS a", dateStr: "11:03:04:234 AM" , date: makeDateTime 2017 4 12 11 3 4 234}
     , { format: "YY", dateStr: "17" , date: makeDateTime 2017 4 12 11 3 4 234}
     , { format: "YY", dateStr: "17" , date: makeDateTime 20017 4 12 0 0 0 0} -- Format 20017 with YY