ENH update weekly plan to use tree-based buffer status

This commit is contained in:
Nathan Dwarshuis 2022-05-18 18:58:41 -04:00
parent c8a27cba5c
commit 8b1e318c1d
1 changed files with 3 additions and 5 deletions

View File

@ -3126,10 +3126,8 @@ 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)
(`(: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)