[nongnu] elpa/telephone-line b32047f32b 1/2: telephone-line-segments.el: add support for meow

[ELPA Syncer]

branch: elpa/telephone-line
commit b32047f32bbae937946a48f9fb5818d8e91c9ade
Author: eshrh <esrh@gatech.edu>
Commit: eshrh <esrh@gatech.edu>

    telephone-line-segments.el: add support for meow
    
    Adds a segment for the meow modal editing system. Respects
    telephone-line-evil-use-short-tag by shortening the state name to the
    first character.
---
 telephone-line-segments.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/telephone-line-segments.el b/telephone-line-segments.el
index 8ff5f6147d..32d5bf2d3d 100644
--- a/telephone-line-segments.el
+++ b/telephone-line-segments.el
@@ -319,6 +319,13 @@ Configure the face group telephone-line-evil to change the 
colors per-mode."
         (seq-take tag 1)
       tag)))
 
+(telephone-line-defsegment* telephone-line-meow-tag-segment ()
+  (when (bound-and-true-p meow-mode)
+    (let ((tag (meow--get-state-name (meow--current-state))))
+      (if telephone-line-evil-use-short-tag
+          (seq-take tag 1)
+        tag))))
+
 (telephone-line-defsegment* telephone-line-workgroups2-segment ()
   (when (bound-and-true-p workgroups-mode)
     (telephone-line-raw (wg-mode-line-string) t)))