FIX make datetimes that aren't on the current date not show their HHMM
This commit is contained in:
parent
20c3dece24
commit
7a3532ed90
|
@ -3286,19 +3286,26 @@ FUTURE-LIMIT in a list."
|
||||||
(if todayp datetimes
|
(if todayp datetimes
|
||||||
(--drop-while (org-x-dag-date< it sel-date) datetimes)))))
|
(--drop-while (org-x-dag-date< it sel-date) datetimes)))))
|
||||||
(expand-datetimes
|
(expand-datetimes
|
||||||
(id donep which dt-fun)
|
(id donep which dt-fun post-fun)
|
||||||
(-when-let (pts (-some->> (org-x-dag-id->planning-timestamp which id)
|
(-when-let (pts (-some->> (org-x-dag-id->planning-timestamp which id)
|
||||||
(org-x-dag-partition-timestamp)))
|
(org-x-dag-partition-timestamp)))
|
||||||
(-when-let (ds (get-datetimes donep dt-fun pts))
|
(-when-let (ds (get-datetimes donep dt-fun pts))
|
||||||
(-let ((tags (org-x-dag-id->tags id))
|
(-let ((tags (org-x-dag-id->tags id))
|
||||||
((&plist :pos) pts))
|
((&plist :pos) pts))
|
||||||
(--map (list :pos pos :datetime it :tags tags :id id) ds)))))
|
(->> (-map post-fun ds)
|
||||||
|
(--map (list :pos pos :datetime it :tags tags :id id)))))))
|
||||||
(scheduled-datetimes
|
(scheduled-datetimes
|
||||||
(id donep)
|
(id donep)
|
||||||
(expand-datetimes id donep :scheduled #'org-x-dag-get-scheduled-at))
|
(expand-datetimes id donep :scheduled
|
||||||
|
#'org-x-dag-get-scheduled-at
|
||||||
|
#'identity))
|
||||||
(deadlined-datetimes
|
(deadlined-datetimes
|
||||||
(id donep)
|
(id donep)
|
||||||
(expand-datetimes id donep :deadline #'org-x-dag-get-deadlines-at))
|
(expand-datetimes id donep :deadline
|
||||||
|
#'org-x-dag-get-deadlines-at
|
||||||
|
(lambda (datetime)
|
||||||
|
(if (org-x-dag-date= datetime sel-date) datetime
|
||||||
|
(car (org-x-dag-datetime-split datetime))))))
|
||||||
(add-sched
|
(add-sched
|
||||||
(acc id donep)
|
(acc id donep)
|
||||||
(-let (((acc-d acc-s) acc)
|
(-let (((acc-d acc-s) acc)
|
||||||
|
|
Loading…
Reference in New Issue