FIX resetting accumulator accidentally

This commit is contained in:
Nathan Dwarshuis 2022-04-26 22:59:28 -04:00
parent 81fbf08561
commit 7d7225cb00
1 changed files with 5 additions and 3 deletions

View File

@ -2961,9 +2961,11 @@ FUTURE-LIMIT in a list."
(acc id)
(pcase (either-from-right (org-x-dag-id->bs id) nil)
(`(:daily :active (:sched ,sched))
(-when-let (dt (org-ml-timestamp-get-start-time sched))
(when (org-x-dag-date= sel-date dt)
(add-sched acc id nil))))
(-if-let (dt (org-ml-timestamp-get-start-time sched))
(if (org-x-dag-date= sel-date dt)
(add-sched acc id nil)
acc)
acc))
(`(:daily :complete ,_)
(add-sched acc id t))
(`(:action . ,bs)