FIX timestamp bug

This commit is contained in:
Nathan Dwarshuis 2024-09-22 18:28:31 -04:00
parent e9ddf983f6
commit c7d9b1bca5
1 changed files with 6 additions and 6 deletions

View File

@ -3759,12 +3759,12 @@ FUTURE-LIMIT in a list."
(cl-flet
((has-date-p
(date headline)
(-when-let (sched (-some->> (org-ml-headline-get-planning headline)
(org-ml-get-property :scheduled)
(org-ml-timestamp-get-start-time)
(org-x-dag-datetime-split)
(car)
(org-x-dag-date-to-absolute)))
(print (org-ml-headline-get-planning headline))
(-when-let (sched (-some--> (org-ml-headline-get-planning headline)
(plist-get it :scheduled)
(org-x-dag-datetime-split it)
(car it)
(org-x-dag-date-to-absolute it)))
(= sched date))))
(--find (has-date-p date it) headlines)))