added header text properties to super agenda headers for navigation

This commit is contained in:
ndwarshuis 2019-05-02 00:42:56 -04:00
parent 3862257b00
commit bae6fd4ebc
1 changed files with 8 additions and 1 deletions

View File

@ -2321,6 +2321,13 @@ earlier ones."
(let ((inhibit-message t)) (org-super-agenda-mode 1)) (let ((inhibit-message t)) (org-super-agenda-mode 1))
(add-hook 'org-agenda-mode-hook 'origami-mode)) (add-hook 'org-agenda-mode-hook 'origami-mode))
;; make the super agenda headers actual agenda headers
(defun nd/org-super-agenda-add-header-property (orig-fun s)
"Add the default header property to header string S from ORIG-FUN."
(org-add-props (funcall orig-fun s) nil 'org-agenda-structural-header t))
(advice-add #'org-super-agenda--make-agenda-header :around
#'nd/org-super-agenda-add-header-property)
#+END_SRC #+END_SRC
**** block agenda views **** block agenda views
***** default sorting ***** default sorting