FIX too many deadlined tasks
This commit is contained in:
parent
0b2b8d7c5a
commit
df094e5344
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue