From bae6fd4ebc64851c31efec0cdb0e6dff2bae71a1 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Thu, 2 May 2019 00:42:56 -0400 Subject: [PATCH] added header text properties to super agenda headers for navigation --- etc/conf.org | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/etc/conf.org b/etc/conf.org index 95ecff4..77bbb74 100644 --- a/etc/conf.org +++ b/etc/conf.org @@ -2320,7 +2320,14 @@ earlier ones." :config (let ((inhibit-message t)) (org-super-agenda-mode 1)) (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 **** block agenda views ***** default sorting