From 865eb8360d2e0388de5dcb45877f56d3293920d7 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Wed, 13 Apr 2022 22:23:45 -0400 Subject: [PATCH] FIX timeblock header --- local/lib/org-x/org-x-dag.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index a390994..7e78051 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -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"