;;;; srfi-19 -*- scheme -*-

;;; English bundle

(
  ;; weekday abbreviations
  (sun . "Sun") (mon . "Mon") (tue . "Tue") (wed . "Wed")
  (thu . "Thu") (fri . "Fri") (sat . "Sat")

  ;; long weekdays
  (sunday . "Sunday") (monday . "Monday") (tuesday . "Tuesday")
  (wednesday . "Wednesday") (thursday . "Thursday") (friday . "Friday")
  (saturday . "Saturday")

  ;; month abbrevs
  (jan . "Jan") (feb . "Feb") (mar . "Mar") (apr . "Apr")
  (may . "May") (jun . "Jun") (jul . "Jul") (aug . "Aug")
  (sep . "Sep") (oct . "Oct") (nov . "Nov") (dec . "Dec")

  ;; long month
  (january . "January") (february . "February") (march . "March") (april . "April")
  (may-long . "May") (june . "June") (july . "July") (august . "August")
  (september . "September") (october . "October") (november . "November") (december . "December")

  (pm . "PM") (am . "AM")

  (date-time . "~a ~b ~d ~H:~M:~S~z ~Y")
  (date . "~m/~d/~y")
  (time . "~H:~M:~S")
  (separator . ".")

  ;; Optional - default is "" for all references
  ;day-of-month key => ordinal indicator -> string suffix
  (month-day-ordinal-suffixes . ((1  . "st") (2  . "nd") (3  . "rd")
                                 (21 . "st") (22 . "nd") (23 . "rd")
                                 (31 . "st")))
  (month-day-ordinal-suffix . "th")
)