ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX make datetimes that aren't on the current date not show their HHMM

This commit is contained in:
Nathan Dwarshuis 2022-05-22 23:40:52 -04:00
parent 20c3dece24
commit 7a3532ed90
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
local/lib/org-x/org-x-dag.el
View File

@ -3286,19 +3286,26 @@ FUTURE-LIMIT in a list."
(if todayp datetimes
(--drop-while (org-x-dag-date< it sel-date) 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)
(org-x-dag-partition-timestamp)))
(-when-let (ds (get-datetimes donep dt-fun pts))
(-let ((tags (org-x-dag-id->tags id))
((&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
(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
(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
(acc id donep)
(-let (((acc-d acc-s) acc)