setup origami to use tab to toggle folded or not on org-agenda ; tweak super agenda origami tie in to fix off by one bug
This commit is contained in:
parent
b7287c50f8
commit
52b5951323
12
org/init.el
12
org/init.el
|
@ -188,9 +188,15 @@
|
||||||
(forward-line 3)
|
(forward-line 3)
|
||||||
(--each ap/org-super-agenda-auto-hide-groups
|
(--each ap/org-super-agenda-auto-hide-groups
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(cl-loop do (origami-close-node (current-buffer) (point))
|
(cl-loop
|
||||||
while (re-search-forward (rx-to-string `(seq bol " " ,it)) nil t))))
|
while (re-search-forward (rx-to-string `(seq bol " " ,it)) nil t)
|
||||||
|
do (origami-close-node (current-buffer) (point))
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
(add-hook 'org-agenda-mode-hook #'origami-mode)
|
(add-hook 'org-agenda-mode-hook #'origami-mode)
|
||||||
|
|
||||||
(add-hook 'org-agenda-finalize-hook #'ap/org-super-agenda-origami-fold-default)
|
(add-hook 'org-agenda-finalize-hook #'ap/org-super-agenda-origami-fold-default)
|
||||||
|
|
||||||
|
(define-key org-super-agenda-header-map (kbd "<tab>") #'origami-toggle-node)
|
||||||
|
(define-key org-agenda-mode-map (kbd "<tab>") #'origami-toggle-node)
|
||||||
|
|
Reference in a new issue