Emacs: restore shortened LSP info in the mode line

laurynas-biveinis · Sep 9, 2021 · be71cb5 · be71cb5
1 parent 8aef67b
commit be71cb5
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/emacs/.emacs.d/setup.el b/emacs/.emacs.d/setup.el
@@ -1362,6 +1362,15 @@ CANDIDATES is the list of candidates."
 (setq lsp-semantic-tokens-enable t)
 (setq lsp-headerline-breadcrumb-enable t)
 
+(defun dotfiles--lsp-mode-line ()
+  "Construct the mode line text for `lsp-mode'."
+  (if (lsp-workspaces)
+      " LSP"
+    " !LSP"))
+
+(setf (alist-get 'lsp-mode minor-mode-alist)
+      '((:eval (dotfiles--lsp-mode-line))))
+
 (require 'lsp-headerline)
 (setq lsp-headerline-breadcrumb-segments '(project file symbols))