emacs: use our own mode tags for evil

emacs/data.el

@@ -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

emacs/init.el

@@ -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)