From 7d7225cb002d37a38cf85416a723d715def8c450 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Tue, 26 Apr 2022 22:59:28 -0400 Subject: [PATCH] FIX resetting accumulator accidentally --- local/lib/org-x/org-x-dag.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index edb7d06..453f401 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -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)