From: Don Armstrong Date: Tue, 29 Aug 2023 20:57:03 +0000 (-0700) Subject: move outline configuration where it belongs X-Git-Url: https://git.donarmstrong.com/?p=lib.git;a=commitdiff_plain;h=76d1132ca2cbd087187ea443f1287fc756b89e3f move outline configuration where it belongs --- diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org index 9d42195..5df3887 100644 --- a/emacs_el/configuration/don-configuration.org +++ b/emacs_el/configuration/don-configuration.org @@ -1247,6 +1247,30 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori :delight :init (setq outline-minor-mode-prefix "C-c C-2") + :config + (global-set-key "\M-o" cm-map) + ; Outline-minor-mode key map +(define-prefix-command 'cm-map nil "Outline-") +; HIDE +(define-key cm-map "q" 'outline-hide-sublevels) ; Hide everything but the top-level headings +(define-key cm-map "t" 'outline-hide-body) ; Hide everything but headings (all body lines) +(define-key cm-map "o" 'outline-hide-other) ; Hide other branches +(define-key cm-map "c" 'outline-hide-entry) ; Hide this entry's body +(define-key cm-map "l" 'outline-hide-leaves) ; Hide body lines in this entry and sub-entries +(define-key cm-map "d" 'outline-hide-subtree) ; Hide everything in this entry and sub-entries +; SHOW +(define-key cm-map "a" 'outline-show-all) ; Show (expand) everything +(define-key cm-map "e" 'outline-show-entry) ; Show this heading's body +(define-key cm-map "i" 'outline-show-children) ; Show this heading's immediate child sub-headings +(define-key cm-map "k" 'outline-show-branches) ; Show all sub-headings under this heading +(define-key cm-map "s" 'outline-show-subtree) ; Show (expand) everything in this heading & below +; MOVE +(define-key cm-map "u" 'outline-up-heading) ; Up +(define-key cm-map "n" 'outline-next-visible-heading) ; Next +(define-key cm-map "p" 'outline-previous-visible-heading) ; Previous +(define-key cm-map "f" 'outline-forward-same-level) ; Forward - same level +(define-key cm-map "b" 'outline-backward-same-level) ; Backward - same level + ) #+END_SRC *** outshine (outlining) integration @@ -2710,28 +2734,6 @@ emacs, and use a different desktop file to restore history (put 'downcase-region 'disabled nil) (put 'narrow-to-region 'disabled nil) -; Outline-minor-mode key map -(define-prefix-command 'cm-map nil "Outline-") -; HIDE -(define-key cm-map "q" 'outline-hide-sublevels) ; Hide everything but the top-level headings -(define-key cm-map "t" 'outline-hide-body) ; Hide everything but headings (all body lines) -(define-key cm-map "o" 'outline-hide-other) ; Hide other branches -(define-key cm-map "c" 'outline-hide-entry) ; Hide this entry's body -(define-key cm-map "l" 'outline-hide-leaves) ; Hide body lines in this entry and sub-entries -(define-key cm-map "d" 'outline-hide-subtree) ; Hide everything in this entry and sub-entries -; SHOW -(define-key cm-map "a" 'outline-show-all) ; Show (expand) everything -(define-key cm-map "e" 'outline-show-entry) ; Show this heading's body -(define-key cm-map "i" 'outline-show-children) ; Show this heading's immediate child sub-headings -(define-key cm-map "k" 'outline-show-branches) ; Show all sub-headings under this heading -(define-key cm-map "s" 'outline-show-subtree) ; Show (expand) everything in this heading & below -; MOVE -(define-key cm-map "u" 'outline-up-heading) ; Up -(define-key cm-map "n" 'outline-next-visible-heading) ; Next -(define-key cm-map "p" 'outline-previous-visible-heading) ; Previous -(define-key cm-map "f" 'outline-forward-same-level) ; Forward - same level -(define-key cm-map "b" 'outline-backward-same-level) ; Backward - same level -(global-set-key "\M-o" cm-map) ; fix up tmux xterm keys ; stolen from http://unix.stackexchange.com/questions/24414/shift-arrow-not-working-in-emacs-within-tmux (defun fix-up-tmux-keys ()