From c7d9b1bca5d2f340515fb8b7038342aa31876f6b Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 22 Sep 2024 18:28:31 -0400 Subject: [PATCH] FIX timestamp bug --- local/lib/org-x/org-x-dag.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index b4abdcf..0fec09b 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -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)))