a lot of progress on typeaheads, etc.

src/clj/auto_ap/time.clj

@@ -1,5 +1,12 @@
 (ns auto-ap.time
-  (:require [clj-time.core :as time]))
+  (:require [clj-time.core :as time]
+            [clj-time.format :as f]))
 
 (defn local-now []
   (time/to-time-zone (time/now) (time/time-zone-for-id "America/Los_Angeles")))
+
+(def normal-date "MM/dd/yyyy")
+
+(defn parse [v format]
+  (time/from-time-zone (f/parse (f/formatter format) v)
+                       (time/time-zone-for-id "America/Los_Angeles")))