From df094e5344e49e55f8dba5dc1a236a0f8daef389 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 5 Jun 2022 13:32:17 -0400 Subject: [PATCH] FIX too many deadlined tasks --- local/lib/org-x/org-x-dag.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index ee4ce66..1ddfa23 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -3431,8 +3431,8 @@ FUTURE-LIMIT in a list." #'org-x-dag-get-scheduled-at #'identity)) (deadlined-datetimes - (id) - (expand-datetimes id nil t :deadline + (id donep) + (expand-datetimes id donep t :deadline #'org-x-dag-get-deadlines-at (lambda (datetime) (if (org-x-dag-date= datetime sel-date) datetime @@ -3445,12 +3445,12 @@ FUTURE-LIMIT in a list." (add-dead (acc id) (-let (((acc-d acc-s) acc) - (ds (deadlined-datetimes id))) + (ds (deadlined-datetimes id nil))) `((,@ds ,@acc-d) ,acc-s))) (add-dead-sched (acc id donep) (-let (((acc-d acc-s) acc) - (ds (deadlined-datetimes id)) + (ds (deadlined-datetimes id donep)) (ss (scheduled-datetimes id donep))) `((,@ds ,@acc-d) (,@ss ,@acc-s)))) (format-id