weekly debits/credits.

src/clj/auto_ap/time.clj

@@ -20,3 +20,11 @@
     (f/unparse (f/formatter format) v)
     (catch Exception e
       nil)))
+
+
+(defn day-of-week-seq [day]
+  (let [next-day (loop [d (auto-ap.time/local-now)]
+                   (if (= (time/day-of-week d) day)
+                     d
+                     (recur (time/plus d (time/days 1)))))]
+    (iterate #(time/plus % (time/days 7)) next-day)))