diff --git a/mood-line.el b/mood-line.el index 50768b9..c90cdf4 100644 --- a/mood-line.el +++ b/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