You can now see cash flow details

2020-08-23 07:42:12 -07:00
parent 3a2351aa41
commit edbc9f85c4
9 changed files with 144 additions and 35 deletions
--- a/src/cljs/auto_ap/views/utils.cljs
+++ b/src/cljs/auto_ap/views/utils.cljs
@@ -456,3 +456,11 @@

 (defn action-cell-width [cnt]
  (str (inc (* cnt 51)) "px"))
+
+(defn days-until [d]
+  (let [today (t/at-midnight (t/now))
+        d (t/at-midnight d)
+        in (if (t/after? today d)
+                 (- (t/in-days (t/interval (t/minus d (t/days 1)) today)))
+                 (t/in-days (t/interval today d )))]
+    in))