fix rendering bug in meow--render-indicator

function used to only read meow-insert-indicator.
this commit adds an association list to map states to indicator faces.
fixes #246

Author: eshrh

CUSTOMIZATIONS.org

@@ -214,7 +214,19 @@ Default:
    (beacon . "BEACON"))
 #+end_src
 
-A list of mappings for how state is displayed in modeline indicator.
+A association list of state symbols to strings describing the state.
+** meow-indicator-face-alist
+Default:
+
+#+begin_src emacs-lisp
+((normal . meow-normal-indicator)
+ (motion . meow-motion-indicator)
+ (keypad . meow-keypad-indicator)
+ (insert . meow-insert-indicator)
+ (beacon . meow-beacon-indicator))
+#+end_src
+
+An association list of meow state symbols to indicator face symbols.
 
 ** meow-display-thing-help
 

meow-util.el

@@ -161,11 +161,13 @@ Looks up the state in meow-replace-state-name-list"
 (defun meow--render-indicator ()
   "Renders a short indicator based on the current state."
   (when (bound-and-true-p meow-global-mode)
-    (let ((state-name (meow--get-state-name (meow--current-state))))
+    (let* ((state (meow--current-state))
+           (state-name (meow--get-state-name state))
+           (indicator-face (alist-get state meow-indicator-face-alist)))
       (if state-name
           (propertize
            (format " %s " state-name)
-           'face 'meow-insert-indicator)
+           'face indicator-face)
         ""))))
 
 (defun meow--update-indicator ()

meow-var.el

@@ -68,6 +68,14 @@ This will affect how selection is displayed."
   :type '(alist :key-type (symbol :tag "Meow state")
                 :key-value (string :tag "Indicator")))
 
+(defvar meow-indicator-face-alist
+  '((normal . meow-normal-indicator)
+    (motion . meow-motion-indicator)
+    (keypad . meow-keypad-indicator)
+    (insert . meow-insert-indicator)
+    (beacon . meow-beacon-indicator))
+  "Alist of meow states -> faces")
+
 (defcustom meow-select-on-change t
   "Whether to activate region when exiting INSERT mode
  after `meow-change', `meow-change-char' and `meow-change-save'."