ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
local/lib/org-x/org-x-dag.el
View File

@ -3126,11 +3126,9 @@ FUTURE-LIMIT in a list."
(let ((span (org-x-dag->weekly-span))) (let ((span (org-x-dag->weekly-span)))
(org-x-dag-with-ids files (org-x-dag-with-ids files
(pcase (either-from-right (org-x-dag-id->bs it) nil) (pcase (either-from-right (org-x-dag-id->bs it) nil)
(`(:weekly :active ,p) (`(:weekly :leaf :active ,abs)
(-let* (((&plist :date d :offset o) p) (let ((day (->> (calendar-gregorian-from-absolute abs)
(abs (+ d o)) (calendar-day-of-week))))
(day (->> (calendar-gregorian-from-absolute abs)
(calendar-day-of-week))))
(when (interval-contains-p abs span) (when (interval-contains-p abs span)
(let ((ns (-some-> (org-x-dag-id->ns it) (let ((ns (-some-> (org-x-dag-id->ns it)
(either-from (-const nil) #'identity))) (either-from (-const nil) #'identity)))