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

ENH use day name in date for timeblock

This commit is contained in:
Nathan Dwarshuis 2022-05-03 23:27:26 -04:00
parent 666d18f01f
commit eec18ad19b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4304,7 +4304,8 @@ FUTURE-LIMIT in a list."
(sd (or start-day today)) (sd (or start-day today))
(org-agenda-redo-command (org-agenda-redo-command
`(org-x-dag-show-daily-nodes 'nil ,start-day ',span ,with-hour)) `(org-x-dag-show-daily-nodes 'nil ,start-day ',span ,with-hour))
((m d y) (calendar-gregorian-from-absolute sd)) ((greg &as m d y) (calendar-gregorian-from-absolute sd))
(day-name (calendar-day-name greg))
(rtnall (org-x-dag-itemize-agenda org-agenda-files `(,y ,m ,d)))) (rtnall (org-x-dag-itemize-agenda org-agenda-files `(,y ,m ,d))))
(setq-local org-starting-day sd) (setq-local org-starting-day sd)
(setq-local org-arg-loc arg) (setq-local org-arg-loc arg)
@ -4312,7 +4313,7 @@ FUTURE-LIMIT in a list."
(setq-local org-agenda-current-span span) (setq-local org-agenda-current-span span)
(org-agenda--insert-overriding-header (org-agenda--insert-overriding-header
(with-temp-buffer (with-temp-buffer
(insert (format "Agenda for %d-%02d-%02d\n" y m d)) (insert (format "Agenda for %s, %d-%02d-%02d\n" day-name y m d))
(add-text-properties (point-min) (1- (point)) (add-text-properties (point-min) (1- (point))
(list 'face 'org-agenda-structure)) (list 'face 'org-agenda-structure))
(buffer-string))) (buffer-string)))