Merge branch 'client-indicator'

mood-line.el

@@ -144,6 +144,8 @@ An optional key :padding may be provided, the value of which will be used as
     (:buffer-modified . ?*)
     (:buffer-read-only . ?#)
 
+    (:emacsclient . ?c)
+
     (:count-separator . ?*))
   "Set of ASCII glyphs for use with mood-line.")
 
@@ -165,6 +167,8 @@ An optional key :padding may be provided, the value of which will be used as
     (:buffer-modified . ?●)
     (:buffer-read-only . ?■)
 
+    (:emacsclient . ?▶)
+
     (:count-separator . ?×))
   "Set of Fira Code-compatible glyphs for use with mood-line.")
 
@@ -186,6 +190,8 @@ An optional key :padding may be provided, the value of which will be used as
     (:buffer-modified . ?●)
     (:buffer-read-only . ?■)
 
+    (:emacsclient . ?↹)
+
     (:count-separator . ?✕))
   "Set of Unicode glyphs for use with mood-line.")
 
@@ -288,6 +294,8 @@ Keys are names for different mode line glyphs, values are characters for that
  :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 whenever a glyph is found
@@ -504,6 +512,17 @@ Modal modes checked, in order: `evil-mode', `meow-mode', `god-mode'."
    ((bound-and-true-p flymake-mode)
     mood-line-segment-checker--flymake-text)))
 
+;; ---------------------------------- ;;
+;; 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