branch: elpa/telephone-line
commit aa7b1ec159252f8a25f3c75fcc346fa4b0b3c73d
Merge: 4fd47989c4 b32047f32b
Author: Daniel Bordak <daniel.bor...@dbordak.com>
Commit: GitHub <nore...@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)))
