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

[Feature] New lsp indicator with an icon.

Browse source
This commit is contained in:
Vincent Zhang 2019-02-26 15:20:39 +07:00
parent 27b22faf56
commit 84ff61a660
1 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
doom-modeline-segments.el
View file

@ -109,7 +109,8 @@
(declare-function iedit-find-current-occurrence-overlay 'iedit-lib)
(declare-function iedit-prev-occurrence 'iedit-lib)
(declare-function image-get-display-property 'image-mode)
(declare-function lsp-mode-line 'lsp-mode)
(declare-function lsp-workspaces 'lsp-mode)
(declare-function lsp--workspace-print 'lsp-mode)
(declare-function magit-toplevel 'magit-git)
(declare-function minions-minor-modes-menu 'minions)
(declare-function nyan-create 'nyan-mode)
@ -1408,7 +1409,23 @@ mouse-3: Describe current input method")
(if (and doom-modeline-lsp
(doom-modeline--active)
(bound-and-true-p lsp-mode))
(concat (lsp-mode-line) " ")))
(concat
" "
(let ((icon (if doom-modeline-icon
(doom-modeline-icon-faicon "rocket" :v-adjust -0.0575)
"LSP"))
(workspaces (lsp-workspaces)))
(propertize icon
'face (let ((face (if workspaces 'success 'warning)))
(if doom-modeline-icon
`(:height 1.1 :family ,(all-the-icons-icon-family icon) :inherit ,face)
face))
'help-echo (if workspaces
(concat "LSP Connected "
(string-join (--map (format "[%s]" (lsp--workspace-print it))
workspaces)))
"LSP Disconnected")))
" ")))
;;