59 lines
2.8 KiB
Plaintext
59 lines
2.8 KiB
Plaintext
|
|
;; Added by Package.el. This must come before configurations of
|
|
;; installed packages. Don't delete this line. If you don't want it,
|
|
;; just comment it out by adding a semicolon to the start of the line.
|
|
;; You may delete these explanatory comments.
|
|
(package-initialize)
|
|
|
|
(put 'narrow-to-region 'disabled nil)
|
|
; Outline-minor-mode key map \M-o \M-?
|
|
(define-prefix-command 'cm-map nil "Outline-")
|
|
; HIDE
|
|
(define-key cm-map "\M-q" 'hide-sublevels) ; Hide everything but the top-level headings
|
|
(define-key cm-map "\M-t" 'hide-body) ; Hide everything but headings (all body lines)
|
|
(define-key cm-map "\M-o" 'hide-other) ; Hide other branches
|
|
(define-key cm-map "\M-c" 'hide-entry) ; Hide this entry's body
|
|
(define-key cm-map "\M-l" 'hide-leaves) ; Hide body lines in this entry and sub-entries
|
|
(define-key cm-map "\M-d" 'hide-subtree) ; Hide everything in this entry and sub-entries
|
|
; SHOW
|
|
(define-key cm-map "\M-a" 'show-all) ; Show (expand) everything
|
|
(define-key cm-map "\M-e" 'show-entry) ; Show this heading's body
|
|
(define-key cm-map "\M-i" 'show-children) ; Show this heading's immediate child sub-headings
|
|
(define-key cm-map "\M-k" 'show-branches) ; Show all sub-headings under this heading
|
|
(define-key cm-map "\M-s" 'show-subtree) ; Show (expand) everything in this heading & below
|
|
; MOVE
|
|
(define-key cm-map "\M-u" 'outline-up-heading) ; Up
|
|
(define-key cm-map "\M-n" 'outline-next-visible-heading) ; Next
|
|
(define-key cm-map "\M-p" 'outline-previous-visible-heading) ; Previous
|
|
(define-key cm-map "\M-f" 'outline-forward-same-level) ; Forward - same level
|
|
(define-key cm-map "\M-b" 'outline-backward-same-level) ; Backward - same level
|
|
(global-set-key "\M-o" cm-map)
|
|
|
|
; Use 'C-u C-x =' to change faces and colors
|
|
(custom-set-variables
|
|
;; custom-set-variables was added by Custom.
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
|
;; Your init file should contain only one such instance.
|
|
;; If there is more than one, they won't work right.
|
|
'(frame-background-mode (quote light))
|
|
'(load-home-init-file t t))
|
|
(custom-set-faces
|
|
;; custom-set-faces was added by Custom.
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
|
;; Your init file should contain only one such instance.
|
|
;; If there is more than one, they won't work right.
|
|
'(ediff-current-diff-A ((t (:background "brightred"))))
|
|
'(ediff-current-diff-B ((t (:background "green"))))
|
|
'(sh-heredoc ((t (:foreground "color-22")))))
|
|
(setq line-number-display-limit 1000000000)
|
|
(setq ediff-diff-options "--text")
|
|
(prefer-coding-system 'utf-8-unix)
|
|
(prefer-coding-system 'utf-8)
|
|
(set-default-coding-systems 'utf-8)
|
|
(set-language-environment 'utf-8)
|
|
(set-selection-coding-system 'utf-8)
|
|
; Set F12 to run defined macro
|
|
(global-set-key (quote [f12]) (quote kmacro-end-and-call-macro))
|
|
|
|
(setq minibuffer-max-depth nil)
|