Fixing minor bugs.

src/cljs/auto_ap/views/utils.cljs

@@ -90,6 +90,7 @@
 
 (defn dispatch-date-change [event]
   (fn [e g]
+    (println e (c/from-date e) (time/from-default-time-zone (c/from-date e)) (date->str (time/from-default-time-zone (c/from-date e)) standard))
     (re-frame/dispatch (conj event
                              (if (str/blank? e)
                                e
@@ -283,6 +284,7 @@
 
                        :else
                    selected )
+
         keys (assoc keys
                     :on-change (dispatch-date-change (conj event field)) 
                     :selected selected
@@ -411,6 +413,9 @@
 (defn local-now []
   (t/to-default-time-zone (t/now)))
 
+(defn local-today []
+  (t/at-midnight (t/to-default-time-zone (t/now))))
+
 (def with-user
   (re-frame/->interceptor
    :id :with-user