You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
106 lines
3.1 KiB
106 lines
3.1 KiB
;;; dot-evil.el --- -*- lexical-binding: t; -*- |
|
|
|
;;; Commentary: |
|
|
|
;; Setup Evil and related packages. |
|
|
|
;;; Code: |
|
|
|
;; ----------------------------------------- |
|
|
|
(elpaca-setup undo-tree |
|
(:when-loaded |
|
(setq undo-tree-auto-save-history t) |
|
(setq undo-tree-history-directory-alist `(("." . ,(expand-file-name "undo-tree" dot-cache-dir)))) |
|
(global-undo-tree-mode))) |
|
|
|
(elpaca-setup goto-chg) |
|
|
|
(elpaca-setup evil |
|
(:also-load undo-tree goto-chg) |
|
(setq evil-ex-complete-emacs-commands nil) |
|
(setq evil-kill-on-visual-paste nil) |
|
(setq evil-operator-state-cursor 'box) ; Do not set half cursor |
|
(setq evil-search-module 'evil-search) |
|
(setq evil-split-window-below t) |
|
(setq evil-undo-system 'undo-tree) |
|
(setq evil-vsplit-window-right t) |
|
(setq evil-want-C-u-scroll t) |
|
(setq evil-want-Y-yank-to-eol t) |
|
(setq evil-want-integration t) |
|
(setq evil-want-keybinding nil) ; Needed by evil-collection |
|
(:require evil) |
|
(:when-loaded |
|
|
|
;; Put search results in the center of the window |
|
(defun dot/evil-scroll-center (&rest _) |
|
"Scroll cursor to center of the window." |
|
(evil-scroll-line-to-center nil)) |
|
(advice-add 'evil-ex-search :after #'dot/evil-scroll-center) |
|
(advice-add 'evil-match :after #'dot/evil-scroll-center) |
|
|
|
(defun dot/evil-normal-sort-paragraph () |
|
"Sort paragraph cursor is under. |
|
Vim equivalence: vip:sort<CR>" |
|
(interactive) |
|
(let ((p (point))) |
|
(evil-visual-char) |
|
(call-interactively 'evil-inner-paragraph) |
|
(evil-ex-sort (region-beginning) (region-end)) |
|
(goto-char p))) |
|
|
|
(defun dot/evil-insert-shift-left () |
|
"Shift line left, retains cursor position. |
|
Vim equivalence: <C-D>" |
|
(interactive) |
|
(evil-shift-left-line 1)) |
|
|
|
(defun dot/evil-insert-shift-right () |
|
"Shift line right, retains cursor position. |
|
Vim equivalence: <Tab>" |
|
(interactive) |
|
(when (not (yas-expand)) |
|
(insert "\t"))) |
|
|
|
|
|
(defun dot/evil-visual-shift-left () |
|
"Shift visual selection left, retains the selection. |
|
Vim equivalence: <gv" |
|
(interactive) |
|
(call-interactively #'evil-shift-left) |
|
(setq deactivate-mark nil)) |
|
|
|
(defun dot/evil-visual-shift-right () |
|
"Shift visual selection left, retains the selection. |
|
Vim equivalence: >gv" |
|
(interactive) |
|
(call-interactively #'evil-shift-right) |
|
(setq deactivate-mark nil)) |
|
|
|
(evil-mode))) |
|
|
|
;; Evil command aliases. |
|
|
|
(elpaca nil (setup evil-ex ; evil-ex.el is part of evil |
|
(:when-loaded |
|
(evil-ex-define-cmd "W" "w") |
|
(evil-ex-define-cmd "Q" "q") |
|
(evil-ex-define-cmd "WQ" "wq") |
|
(evil-ex-define-cmd "Wq" "wq")))) |
|
|
|
(elpaca-setup evil-collection |
|
(setq evil-collection-company-use-tng nil) |
|
(setq evil-collection-key-blacklist (list dot/leader-key dot/localleader-key |
|
dot/leader-alt-key dot/localleader-alt-key |
|
"M-h" "M-j" "M-k" "M-l")) |
|
(setq evil-collection-setup-minibuffer t) |
|
(:load-after evil) |
|
(:when-loaded |
|
(evil-collection-init))) |
|
|
|
(elpaca-setup evil-nerd-commenter |
|
(:load-after evil)) |
|
|
|
(provide 'dot-evil) |
|
|
|
;;; dot-evil.el ends here
|
|
|