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

FIX too many deadlined tasks

This commit is contained in:
Nathan Dwarshuis 2022-06-05 13:32:17 -04:00
parent 0b2b8d7c5a
commit df094e5344
1 changed files with 4 additions and 4 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

@ -3431,8 +3431,8 @@ FUTURE-LIMIT in a list."
#'org-x-dag-get-scheduled-at #'org-x-dag-get-scheduled-at
#'identity)) #'identity))
(deadlined-datetimes (deadlined-datetimes
(id) (id donep)
(expand-datetimes id nil t :deadline (expand-datetimes id donep t :deadline
#'org-x-dag-get-deadlines-at #'org-x-dag-get-deadlines-at
(lambda (datetime) (lambda (datetime)
(if (org-x-dag-date= datetime sel-date) datetime (if (org-x-dag-date= datetime sel-date) datetime
@ -3445,12 +3445,12 @@ FUTURE-LIMIT in a list."
(add-dead (add-dead
(acc id) (acc id)
(-let (((acc-d acc-s) acc) (-let (((acc-d acc-s) acc)
(ds (deadlined-datetimes id))) (ds (deadlined-datetimes id nil)))
`((,@ds ,@acc-d) ,acc-s))) `((,@ds ,@acc-d) ,acc-s)))
(add-dead-sched (add-dead-sched
(acc id donep) (acc id donep)
(-let (((acc-d acc-s) acc) (-let (((acc-d acc-s) acc)
(ds (deadlined-datetimes id)) (ds (deadlined-datetimes id donep))
(ss (scheduled-datetimes id donep))) (ss (scheduled-datetimes id donep)))
`((,@ds ,@acc-d) (,@ss ,@acc-s)))) `((,@ds ,@acc-d) (,@ss ,@acc-s))))
(format-id (format-id