[nongnu] elpa/telephone-line aa7b1ec159 2/2: Merge pull request #125 from eshrh/meow-segment

[ELPA Syncer]

branch: elpa/telephone-line
commit aa7b1ec159252f8a25f3c75fcc346fa4b0b3c73d
Merge: 4fd47989c4 b32047f32b
Author: Daniel Bordak <daniel.bordak@dbordak.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #125 from eshrh/meow-segment
    
    telephone-line-segments.el: add support for meow
---
 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)))