lots of new fixes.
This commit is contained in:
@@ -23,7 +23,7 @@
|
||||
|
||||
|
||||
(defn day-of-week-seq [day]
|
||||
(let [next-day (loop [d (auto-ap.time/local-now)]
|
||||
(let [next-day (loop [d (local-now)]
|
||||
(if (= (time/day-of-week d) day)
|
||||
d
|
||||
(recur (time/plus d (time/days 1)))))]
|
||||
|
||||
Reference in New Issue
Block a user