From 21e4addc9b3cef5cf32d282565990000b1a9c1a4 Mon Sep 17 00:00:00 2001
From: Trevor Richards <trev@trevdev.ca>
Date: Sat, 31 Dec 2022 16:11:30 -0800
Subject: [PATCH] Added emacsclient indicator

Closes feature request from #25
---
 mood-line.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/mood-line.el b/mood-line.el
index 236ce04..28e712e 100644
--- a/mood-line.el
+++ b/mood-line.el
@@ -110,6 +110,8 @@
     (:buffer-modified . ?*)
     (:buffer-read-only . ?#)
 
+    (:emacsclient . ?c)
+
     (:count-separator . ?*))
   "Set of ASCII glyphs for use with mood-line.")
 
@@ -131,6 +133,8 @@
     (:buffer-modified . ?●)
     (:buffer-read-only . ?■)
 
+    (:emacsclient . ?▶)
+
     (:count-separator . ?×))
   "Set of Fira Code-compatible glyphs for use with mood-line.")
 
@@ -152,6 +156,8 @@
     (:buffer-modified . ?●)
     (:buffer-read-only . ?■)
 
+    (:emacsclient . ?↹)
+
     (:count-separator . ?✕))
   "Set of Unicode glyphs for use with mood-line.")
 
@@ -237,6 +243,8 @@ glyph.  Glyphs used by mood-line include:
 `:buffer-modified'     | File-backed buffer is modified
 `:buffer-read-only'    | File-backed buffer is read-only
 
+`:emacsclient'         | Frame is a client for an Emacs daemon
+
 `:count-separator'     | Separates some indicator names from numerical counts
 
 `mood-line-glyphs-ascii' will be used as a fallback wherever the a glyph may be
@@ -451,6 +459,17 @@ Modal modes checked, in order: `evil-mode', `meow-mode', `god-mode'."
    ((featurep 'god-mode)
     (mood-line-segment-modal-god))))
 
+;; ---------------------------------- ;;
+;; Emacsclient segment function
+;; ---------------------------------- ;;
+
+(defun mood-line-segment-emacsclient ()
+  "Indicate whether or not the frame is an emacsclient."
+  (if (not (eq (format-mode-line mode-line-client) ""))
+      (format #("%s " 0 1 (face mood-line-status-info))
+              (mood-line--get-glyph :emacsclient))
+    ""))
+
 ;; -------------------------------------------------------------------------- ;;
 ;;
 ;; Anzu segment
@@ -903,6 +922,7 @@ Checkers checked, in order: `flycheck', `flymake'."
                        (:eval (mood-line-segment-buffer-name))
                        (:eval (mood-line-segment-anzu))
                        (:eval (mood-line-segment-multiple-cursors))
+                       (:eval (mood-line-segment-emacsclient))
                        (:eval (mood-line-segment-cursor-position))))
 
                     ;; Right