FIX timeblock header
This commit is contained in:
parent
fbe36911da
commit
865eb8360d
|
@ -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"
|
||||
|
|
Loading…
Reference in New Issue