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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3518,7 +3518,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 %d-%02d-%02d\n" 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)))
@ -3547,6 +3547,10 @@ FUTURE-LIMIT in a list."
;; files are actually needed (I think) for `org-agenda-prepare' to run ;; files are actually needed (I think) for `org-agenda-prepare' to run
(org-agenda-run-series name `((,@cmds) ((org-agenda-files ',files))))))) (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) (defun org-x-dag-agenda-call (buffer-name header-name type match files settings)
(declare (indent 5)) (declare (indent 5))
(let* ((n (or header-name buffer-name)) (let* ((n (or header-name buffer-name))
@ -3596,7 +3600,7 @@ In the order of display
(interactive) (interactive)
(let ((files (cons (org-x-dag->planning-file :daily) (let ((files (cons (org-x-dag->planning-file :daily)
(org-x-dag->action-files)))) (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-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep))
(org-super-agenda-groups (org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Morning routine" `(,(nd/org-def-super-agenda-pred "Morning routine"