added header text properties to super agenda headers for navigation
This commit is contained in:
parent
3862257b00
commit
bae6fd4ebc
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue