FIX timeblock header

This commit is contained in:
Nathan Dwarshuis 2022-04-13 22:23:45 -04:00
parent fbe36911da
commit 865eb8360d
1 changed files with 6 additions and 2 deletions

View File

@ -3518,7 +3518,7 @@ FUTURE-LIMIT in a list."
(setq-local org-agenda-current-span span)
(org-agenda--insert-overriding-header
(with-temp-buffer
(insert (format "Agenda for %d-%02d-%02d: \n" y m d))
(insert (format "Agenda for %d-%02d-%02d\n" y m d))
(add-text-properties (point-min) (1- (point))
(list 'face 'org-agenda-structure))
(buffer-string)))
@ -3547,6 +3547,10 @@ FUTURE-LIMIT in a list."
;; files are actually needed (I think) for `org-agenda-prepare' to run
(org-agenda-run-series name `((,@cmds) ((org-agenda-files ',files)))))))
(defun org-x-dag-agenda-call-inner (buffer-name type match files settings)
(declare (indent 4))
(org-x-dag-agenda-run-series buffer-name files `((,type ,match ,settings))))
(defun org-x-dag-agenda-call (buffer-name header-name type match files settings)
(declare (indent 5))
(let* ((n (or header-name buffer-name))
@ -3596,7 +3600,7 @@ In the order of display
(interactive)
(let ((files (cons (org-x-dag->planning-file :daily)
(org-x-dag->action-files))))
(org-x-dag-agenda-call "Timeblock" nil 'agenda "" files
(org-x-dag-agenda-call-inner "Timeblock" 'agenda "" files
`((org-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep))
(org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Morning routine"