[outline] extend adoc/outline config

This commit is contained in:
contrapunctus 2021-07-06 06:21:12 +05:30
parent 137c525f43
commit 648f871f4e
1 changed files with 14 additions and 1 deletions

View File

@ -2962,11 +2962,24 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
#+BEGIN_SRC emacs-lisp
(use-package outline
:hook (adoc-mode . outline-minor-mode)
;; Does this cause this error?
;; Polymode error (pm--mode-setup org-mode): recentering a window that does not display current-buffer.
;; (outline-view-change . (lambda () (recenter 3)))
:bind (:map outline-minor-mode-map
("TAB" . contrapunctus-outline-indent-or-toggle-children)
;; this (rather than `outline-show-children') seems to
;; be the equivalent of `org-show-subtree'
("C-c C-k" . outline-show-branches)))
("C-c C-k" . outline-show-branches)
;; wow, in adoc-mode these also replace the first letter of the heading with an "e"... 😒
;; ("C-c ," . outline-promote)
;; ("C-c ." . outline-demote)
)
("C-c ," . adoc-demote)
("C-c ." . adoc-promote)
("C-c C-c" . outline-previous-heading)
("C-c C-r" . outline-next-heading)
("C-c C-h" . nil)
("C-c C-h" . outline-up-heading))
#+END_SRC
#+BEGIN_SRC emacs-lisp