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 (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)