diff options
| -rw-r--r-- | init.el | 1 | ||||
| -rw-r--r-- | lisp/init-outline.el | 43 |
2 files changed, 44 insertions, 0 deletions
@@ -28,6 +28,7 @@ (require 'init-view) (require 'init-editing) +(require 'init-outline) (require 'init-god) (require 'init-text) diff --git a/lisp/init-outline.el b/lisp/init-outline.el new file mode 100644 index 0000000..433ab0f --- /dev/null +++ b/lisp/init-outline.el @@ -0,0 +1,43 @@ + +;; Modified from https://github.com/abo-abo/hydra/wiki/Emacs +(defhydra hydra-outline-mode (:hint nil) + " + ^^Hide ^^Show ^^Move +_q_ sublevels _a_ all _u_ up +_t_ body _e_ entry _n_ next visible +_o_ other _i_ children _p_ previous visible +_c_ entry _k_ branches _f_ forward same level +_l_ leaves _s_ subtree _b_ backward same level +_d_ subtree + +" + ("q" hide-sublevels) + ("t" hide-body) + ("o" hide-other) + ("c" hide-entry) + ("l" hide-leaves) + ("d" hide-subtree) + + ("a" show-all) + ("e" show-entry) + ("i" show-children) + ("k" show-branches) + ("s" show-subtree) + + ("u" outline-up-heading) + ("n" outline-next-visible-heading) + ("p" outline-previous-visible-heading) + ("f" outline-forward-same-level) + ("b" outline-backward-same-level) + + ("m" outline-mark-subtree "mark" :color blue)) + +(defun km/hydra-outline-mode () + (interactive) + (unless outline-minor-mode + (outline-minor-mode)) + (hydra-outline-mode/body)) + +(global-set-key (kbd "C-c n") 'km/hydra-outline-mode) + +(provide 'init-outline) |