]> git.donarmstrong.com Git - lib.git/commitdiff
move outline configuration where it belongs
authorDon Armstrong <don@donarmstrong.com>
Tue, 29 Aug 2023 20:57:03 +0000 (13:57 -0700)
committerDon Armstrong <don@donarmstrong.com>
Tue, 29 Aug 2023 20:57:03 +0000 (13:57 -0700)
emacs_el/configuration/don-configuration.org

index 9d42195fc6aea6c49d80ba7c535f643469f943f1..5df3887f2a8a0b72fb6bd30762eda3580547fa1f 100644 (file)
@@ -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 ()