From: John Turner <jturner.usa@gmail.com>
Date: Sat, 25 Mar 2023 07:35:46 +0000 (-0400)
Subject: show server socket name in modeline
X-Git-Url: https://jturnerusa.dev/gitweb/?a=commitdiff_plain;h=228d60c5dcfe06fb30e40efe76be272ee48946a1;p=emacs.d

show server socket name in modeline
---

diff --git a/init/mode-line/init-mode-line.el b/init/mode-line/init-mode-line.el
index 44d3055..1846031 100644
--- a/init/mode-line/init-mode-line.el
+++ b/init/mode-line/init-mode-line.el
@@ -6,6 +6,11 @@
                                  " "
                                  "(" mode-name ")"
                                  " "
-                                 "[" (:eval (abbreviate-file-name default-directory)) "]"))
+                                 "[" (:eval (abbreviate-file-name default-directory)) "]"
+                                 " "
+                                 "(" (:eval (if server-process
+                                                (process-name server-process)
+                                              "none"))
+                                 ")"))
 
 (provide 'init-mode-line)