137 lines
4.2 KiB
EmacsLisp
137 lines
4.2 KiB
EmacsLisp
;;;; Editor behavior ;;;;;;;;;;;;;;;;
|
|
(blink-cursor-mode -1)
|
|
|
|
(setq-default
|
|
tab-width 4 ; set tab width to 4 for all buffers
|
|
indent-tabs-mode nil ; use tabs, not spaces
|
|
tab-always-indent nil)
|
|
;; do not soft-wrap lines
|
|
(setq-default truncate-lines t)
|
|
(setq truncate-partial-width-windows nil)
|
|
;; Remove trailing whitespace
|
|
(add-hook 'before-save-hook 'delete-trailing-whitespace)
|
|
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
|
|
|
|
;; All this just to show errant tab characters
|
|
(add-hook 'font-lock-mode-hook
|
|
(function
|
|
(lambda ()
|
|
(setq font-lock-keywords
|
|
(append font-lock-keywords
|
|
'(("\r" (0 'my-carriage-return-face t))
|
|
("\t" (0 'my-tab-face t))))))))
|
|
(setq whitespace-style (quote (face trailing tab-mark)))
|
|
(setq whitespace-display-mappings '((tab-mark 9 [?> 9] [92 9])))
|
|
(add-hook 'find-file-hook 'whitespace-mode)
|
|
|
|
;;;; Plugins ;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(use-package highlight-indentation
|
|
:init
|
|
(add-hook 'prog-mode-hook 'highlight-indentation-mode))
|
|
|
|
(use-package evil
|
|
:diminish undo-tree-mode
|
|
:config
|
|
(progn
|
|
(evil-mode 1)
|
|
|
|
(use-package evil-matchit)
|
|
(use-package evil-surround)
|
|
(use-package evil-numbers)
|
|
(use-package evil-exchange)
|
|
(use-package evil-space)
|
|
(use-package evil-visualstar)
|
|
(use-package evil-nerd-commenter)
|
|
(use-package evil-ex-registers)
|
|
|
|
;; To get evil-leader mappings to work in the messages buffer...
|
|
(kill-buffer "*Messages*")
|
|
|
|
(global-evil-matchit-mode 1)
|
|
(global-evil-surround-mode 1)
|
|
|
|
(evil-exchange-install)
|
|
|
|
(evil-space-setup "t" ";" ",") ; Repeat t with space
|
|
(evil-space-setup "f" ";" ",") ; Repeat f with space
|
|
(evil-space-setup "T" "," ";") ; Repeat T with space
|
|
(evil-space-setup "F" "," ";") ; Repeat F with space
|
|
(evil-define-operator evil-destroy (beg end type register yank-handler)
|
|
(evil-delete beg end type ?_ yank-handler))
|
|
|
|
(evil-set-initial-state 'comint-mode 'insert)
|
|
|
|
;; Enable registers in ex-mode
|
|
(define-key evil-ex-completion-map (kbd "C-r") #'evil-ex-paste-from-register)))
|
|
|
|
(use-package rainbow-delimiters
|
|
:commands rainbow-delimiters-mode
|
|
:init (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))
|
|
|
|
(use-package rotate-text
|
|
:commands (rotate-word-at-point rotate-region))
|
|
|
|
;;;; Init plugins ;;;;;;;;;;;;;;;;;;;
|
|
(use-package autopair
|
|
:diminish autopair-mode
|
|
:init
|
|
(progn (autopair-global-mode)
|
|
(setq autopair-blink nil)
|
|
;; disable blink-matching-paren
|
|
(setq blink-matching-paren nil)))
|
|
|
|
(use-package anzu
|
|
:diminish anzu-mode
|
|
:init (global-anzu-mode))
|
|
|
|
(use-package expand-region)
|
|
|
|
(use-package key-chord
|
|
:init
|
|
(progn (key-chord-mode 1)
|
|
(setq key-chord-two-keys-delay 0.5)))
|
|
|
|
(use-package saveplace
|
|
:init
|
|
(progn (setq-default save-place t)
|
|
(setq save-place-file (expand-file-name "saveplace" my/tmp-dir))))
|
|
|
|
(use-package savehist
|
|
:init
|
|
(progn (setq savehist-additional-variables
|
|
;; search entries
|
|
'(search ring regexp-search-ring)
|
|
;; save every 5 minutes
|
|
savehist-autosave-interval 300
|
|
;; keep the home clean
|
|
savehist-file (expand-file-name "savehist" my/tmp-dir))
|
|
(savehist-mode 1)))
|
|
|
|
(use-package multiple-cursors
|
|
:commands (mc/mark-next-like-this mc/mark-previous-like-this mc/mark-all-like-this)
|
|
:config
|
|
(progn
|
|
;; I do it this way because hooking mc/keyboard-quit to insert mode's exit
|
|
;; hook breaks multiple-cursors!
|
|
(defadvice keyboard-quit (around mc-and-keyboard-quit activate)
|
|
(mc/keyboard-quit) ad-do-it)))
|
|
|
|
(use-package smex
|
|
:commands (smex smex-major-mode-commands)
|
|
:config
|
|
(progn (smex-initialize)
|
|
;; Hook up smex to auto-update, rather than update on every run
|
|
(defun smex-update-after-load (unused)
|
|
(when (boundp 'smex-cache) (smex-update)))
|
|
(add-hook 'after-load-functions 'smex-update-after-load)))
|
|
|
|
(use-package recentf
|
|
:init
|
|
(progn (recentf-mode 1)
|
|
(add-to-list 'recentf-exclude "\\.ido\\.last\\'")
|
|
(add-to-list 'recentf-exclude "\\.revive\\'")
|
|
(setq recentf-max-menu-items 0)
|
|
(setq recentf-auto-cleanup 'never)))
|
|
|
|
;;
|
|
(provide 'core-editor)
|