emacs: use our own mode tags for evil
parent
a6ab5fce23
commit
d073369d91
|
@ -44,4 +44,12 @@
|
|||
"Sets up `emacs-lisp-mode'."
|
||||
(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
|
||||
|
|
|
@ -305,6 +305,14 @@
|
|||
evil-shift-width 3
|
||||
evil-vsplit-window-right t
|
||||
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
|
||||
(evil-mode t)
|
||||
|
||||
|
|
Loading…
Reference in New Issue