FIX timestamp bug
This commit is contained in:
parent
e9ddf983f6
commit
c7d9b1bca5
|
@ -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)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue