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 (cl-flet
((has-date-p ((has-date-p
(date headline) (date headline)
(-when-let (sched (-some->> (org-ml-headline-get-planning headline) (print (org-ml-headline-get-planning headline))
(org-ml-get-property :scheduled) (-when-let (sched (-some--> (org-ml-headline-get-planning headline)
(org-ml-timestamp-get-start-time) (plist-get it :scheduled)
(org-x-dag-datetime-split) (org-x-dag-datetime-split it)
(car) (car it)
(org-x-dag-date-to-absolute))) (org-x-dag-date-to-absolute it)))
(= sched date)))) (= sched date))))
(--find (has-date-p date it) headlines))) (--find (has-date-p date it) headlines)))