show server socket name in modeline

2 years ago · 228d60c5dc
parent 858ed5a8e7
commit 228d60c5dc
1 changed files with 6 additions and 1 deletions
--- 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)