ClojureScript Date parsing

dates.cljx

#+clj (defn parse-date
  [date-string]
  (f/parse (f/formatter "dd/MM/yyyy") date-string))

;; Javascript date uglyness: http://stackoverflow.com/questions/2587345/javascript-date-parse
#+cljs (defn parse-date
      "Parses a UK date string such as 29/01/2014 and converts it into a JS date object or nil if invalid.
        Handles bizarro javascript case such as new Date(2014, 1, 31) => Mon Mar 03 2014 00:00:00 GMT+0000 (GMT)"
  [date-string]
  (let [date-parts (clojure.string/split date-string #"/")
      month (dec (js/parseInt (second date-parts) 10))
      year (nth date-parts 2 nil)
      date (js/Date. year month (first date-parts))]
  (when (and year (not (js/isNaN (.getTime date))) (= month (.getMonth date)))
    date)))