From 8b1e318c1d4f4789c6062f8e2fdd827f7001cd51 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Wed, 18 May 2022 18:58:41 -0400 Subject: [PATCH] ENH update weekly plan to use tree-based buffer status --- local/lib/org-x/org-x-dag.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index b13dff1..af360ee 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -3126,11 +3126,9 @@ FUTURE-LIMIT in a list." (let ((span (org-x-dag->weekly-span))) (org-x-dag-with-ids files (pcase (either-from-right (org-x-dag-id->bs it) nil) - (`(:weekly :active ,p) - (-let* (((&plist :date d :offset o) p) - (abs (+ d o)) - (day (->> (calendar-gregorian-from-absolute abs) - (calendar-day-of-week)))) + (`(:weekly :leaf :active ,abs) + (let ((day (->> (calendar-gregorian-from-absolute abs) + (calendar-day-of-week)))) (when (interval-contains-p abs span) (let ((ns (-some-> (org-x-dag-id->ns it) (either-from (-const nil) #'identity)))