Add outline mode

1 files changed, 28 insertions, 2 deletions

diff --git a/init.el b/init.el
index 0b3b834..549838c 100644
--- a/init.el
+++ b/init.el
@@ -964,8 +964,8 @@ https://yannherklotz.com"))
    'minibuffer-complete-word
    'self-insert-command
    minibuffer-local-completion-map)
-   ;; sbt-supershell kills sbt-mode:  https://github.com/hvesalai/emacs-sbt-mode/issues/152
-   (setq sbt:program-options '("-Dsbt.supershell=false")))
+  ;; sbt-supershell kills sbt-mode:  https://github.com/hvesalai/emacs-sbt-mode/issues/152
+  (setq sbt:program-options '("-Dsbt.supershell=false")))
 
 (use-package eglot
   :if (not ymh/emacs-29-p)
@@ -1052,6 +1052,32 @@ https://yannherklotz.com"))
   :if (executable-find "zig")
   :ensure t)
 
+(use-package outline
+  :bind-keymap ("C-c C-o" . outline-mode-map)
+  :bind (:map outline-mode-map
+              ("C-a" . outline-show-all)
+              ("C-b" . outline-backward-same-level)
+              ("C-c" . outline-hide-entry)
+              ("C-d" . outline-hide-subtree)
+              ("C-e" . outline-show-entry)
+              ("C-f" . outline-forward-same-level)
+              ("TAB" . outline-show-children)
+              ("C-k" . outline-show-branches)
+              ("C-l" . outline-hide-leaves)
+              ("RET" . outline-insert-heading)
+              ("C-n" . outline-next-visible-heading)
+              ("C-o" . outline-hide-other)
+              ("C-p" . outline-previous-visible-heading)
+              ("C-q" . outline-hide-sublevels)
+              ("C-s" . outline-show-subtree)
+              ("C-t" . outline-hide-body)
+              ("C-u" . outline-up-heading)
+              ("C-v" . outline-move-subtree-down)
+              ("C-^" . outline-move-subtree-up)
+              ("@"   . outline-mark-subtree)
+              ("C-<" . outline-promote)
+              ("C->" . outline-demote)))
+
 (setq gc-cons-threshold (* 1024 1024 10))
 
 (setq custom-file (expand-file-name "custom.el" user-emacs-directory))