emacs: use our own mode tags for evil
parent
a6ab5fce23
commit
d073369d91
|
@ -44,4 +44,12 @@
|
||||||
"Sets up `emacs-lisp-mode'."
|
"Sets up `emacs-lisp-mode'."
|
||||||
(add-hook 'after-save-hook #'agw-remove-elc nil t))
|
(add-hook 'after-save-hook #'agw-remove-elc nil t))
|
||||||
|
|
||||||
|
(defun agw-evil-visual-state-tag (&optional selection)
|
||||||
|
"Displays the mode for the visual state."
|
||||||
|
(let ((selection (or selection evil-visual-selection)))
|
||||||
|
(cond ((eq selection 'char) "v")
|
||||||
|
((eq selection 'line) "V")
|
||||||
|
((eq selection 'screen-line) "ʌ")
|
||||||
|
((eq selection 'block) "Λ"))))
|
||||||
|
|
||||||
;; EOF
|
;; EOF
|
||||||
|
|
|
@ -305,6 +305,14 @@
|
||||||
evil-shift-width 3
|
evil-shift-width 3
|
||||||
evil-vsplit-window-right t
|
evil-vsplit-window-right t
|
||||||
evil-want-keybinding nil)
|
evil-want-keybinding nil)
|
||||||
|
;; tags
|
||||||
|
(setq evil-normal-state-tag "~"
|
||||||
|
evil-insert-state-tag "i"
|
||||||
|
evil-operator-state-tag "o"
|
||||||
|
evil-replace-state-tag "r"
|
||||||
|
evil-visual-state-tag 'agw-evil-visual-state-tag
|
||||||
|
evil-motion-state-tag "m"
|
||||||
|
evil-emacs-state-tag "x")
|
||||||
:config
|
:config
|
||||||
(evil-mode t)
|
(evil-mode t)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue