From d073369d9147925eea074ab367417dff08b07a21 Mon Sep 17 00:00:00 2001
From: Alison Watson <marrub.xz@gmail.com>
Date: Sat, 15 Feb 2020 21:55:14 -0500
Subject: [PATCH] emacs: use our own mode tags for evil

---
 emacs/data.el | 8 ++++++++
 emacs/init.el | 8 ++++++++
 2 files changed, 16 insertions(+)

diff --git a/emacs/data.el b/emacs/data.el
index d15f60a..6b7b535 100644
--- a/emacs/data.el
+++ b/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
diff --git a/emacs/init.el b/emacs/init.el
index 6b39650..1148d8c 100644
--- a/emacs/init.el
+++ b/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)