From: Don Armstrong Date: Tue, 3 Apr 2012 18:17:37 +0000 (+0000) Subject: add outline mode bindings to M-o X-Git-Url: https://git.donarmstrong.com/?p=home-base.git;a=commitdiff_plain;h=d3a1d4709ce69f2f553b25eb8fe3376a5a240dd8 add outline mode bindings to M-o --- diff --git a/.emacs b/.emacs index 6e4127a..97abbe2 100644 --- a/.emacs +++ b/.emacs @@ -300,6 +300,29 @@ (lambda () (interactive) (cond ((looking-at "^##### ") 1)((looking-at "^#### ") 2)((looking-at "^[a-zA-Z0-9_\.]+ ?<- ?function(.*{") 3) (t 1000))) ))) + ; Outline-minor-mode key map + (define-prefix-command 'cm-map nil "Outline-") + ; HIDE + (define-key cm-map "q" 'hide-sublevels) ; Hide everything but the top-level headings + (define-key cm-map "t" 'hide-body) ; Hide everything but headings (all body lines) + (define-key cm-map "o" 'hide-other) ; Hide other branches + (define-key cm-map "c" 'hide-entry) ; Hide this entry's body + (define-key cm-map "l" 'hide-leaves) ; Hide body lines in this entry and sub-entries + (define-key cm-map "d" 'hide-subtree) ; Hide everything in this entry and sub-entries + ; SHOW + (define-key cm-map "a" 'show-all) ; Show (expand) everything + (define-key cm-map "e" 'show-entry) ; Show this heading's body + (define-key cm-map "i" 'show-children) ; Show this heading's immediate child sub-headings + (define-key cm-map "k" 'show-branches) ; Show all sub-headings under this heading + (define-key cm-map "s" '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) + (defun my-org-mode-setup () (when (and (buffer-file-name) (file-exists-p (buffer-file-name)))