github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add two enablers for persp-name and lsp segments.

Browse source 
See https://github.com/seagle0128/doom-modeline/issues/59#issuecomment-444842483.
This commit is contained in:
Vincent Zhang 2018-12-07 00:24:29 +08:00
parent 8a2e5ffbda
commit 83731bca00
2 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
README.md
View file

@ -103,6 +103,12 @@ Strongly recommend to use
;; Whether display minor modes or not. Non-nil to display in mode-line.
(setq doom-modeline-minor-modes nil)
;; Whether display perspective name or not. Non-nil to display in mode-line.
(setq doom-modeline-persp-name t)
;; Whether display `lsp' state or not. Non-nil to display in mode-line.
(setq doom-modeline-lsp t)
```
## FAQ

12
doom-modeline.el
View file

@ -114,6 +114,12 @@ The icons may not be showed correctly in terminal and on Windows.")
(defvar doom-modeline-minor-modes nil
"Whether display minor modes or not. Non-nil to display in mode-line.")
(defvar doom-modeline-persp-name t
"Whether display perspective name or not. Non-nil to display in mode-line.")
(defvar doom-modeline-lsp t
"Whether display `lsp' state or not. Non-nil to display in mode-line.")
;;
;; compatibility
@ -1298,7 +1304,8 @@ Requires `eyebrowse-mode' to be enabled."
"Update perspective name in mode-line."
(setq doom-modeline--persp-name
;; Support `persp-mode', while not support `perspective'
(when (and (bound-and-true-p persp-mode)
(when (and doom-modeline-persp-name
(bound-and-true-p persp-mode)
(fboundp 'safe-persp-name)
(fboundp 'get-current-persp))
(let ((persp (get-current-persp)))
@ -1454,7 +1461,8 @@ mouse-1: Display Line and Column Mode Menu"
(doom-modeline-def-segment lsp
"The LSP server state."
(if (and (doom-modeline--active)
(if (and doom-modeline-lsp
(doom-modeline--active)
(bound-and-true-p lsp-mode))
(concat (lsp-mode-line) " ")))