mirror of
https://github.com/correl/doom-modeline.git
synced 2024-11-23 19:19:50 +00:00
Update hooks for lsp indicator.
See https://github.com/emacs-lsp/lsp-mode/issues/726.
This commit is contained in:
parent
5774186d18
commit
7b9a1e5dd6
1 changed files with 2 additions and 3 deletions
|
@ -138,7 +138,6 @@
|
||||||
(declare-function image-get-display-property 'image-mode)
|
(declare-function image-get-display-property 'image-mode)
|
||||||
(declare-function jsonrpc--request-continuations 'jsonrpc)
|
(declare-function jsonrpc--request-continuations 'jsonrpc)
|
||||||
(declare-function jsonrpc-last-error 'jsonrpc)
|
(declare-function jsonrpc-last-error 'jsonrpc)
|
||||||
(declare-function lsp--cleanup-hanging-watches 'lsp-mode)
|
|
||||||
(declare-function lsp--workspace-print 'lsp-mode)
|
(declare-function lsp--workspace-print 'lsp-mode)
|
||||||
(declare-function lsp-describe-session 'lsp-mode)
|
(declare-function lsp-describe-session 'lsp-mode)
|
||||||
(declare-function lsp-restart-workspace 'lsp-mode)
|
(declare-function lsp-restart-workspace 'lsp-mode)
|
||||||
|
@ -1537,7 +1536,7 @@ mouse-3: Describe current input method")
|
||||||
;;
|
;;
|
||||||
|
|
||||||
(defvar doom-modeline--lsp nil)
|
(defvar doom-modeline--lsp nil)
|
||||||
(defun doom-modeline-update-lsp (&rest _)
|
(defun doom-modeline-update-lsp ()
|
||||||
"Update `lsp-mode' status."
|
"Update `lsp-mode' status."
|
||||||
(setq doom-modeline--lsp
|
(setq doom-modeline--lsp
|
||||||
(concat
|
(concat
|
||||||
|
@ -1581,7 +1580,7 @@ mouse-1: Reload to start server")
|
||||||
map)))
|
map)))
|
||||||
" ")))
|
" ")))
|
||||||
(add-hook 'lsp-mode-hook #'doom-modeline-update-lsp)
|
(add-hook 'lsp-mode-hook #'doom-modeline-update-lsp)
|
||||||
(advice-add #'lsp--cleanup-hanging-watches :after #'doom-modeline-update-lsp)
|
(add-hook 'lsp-after-uninitialized-hook #'doom-modeline-update-lsp)
|
||||||
|
|
||||||
(defvar doom-modeline--eglot nil)
|
(defvar doom-modeline--eglot nil)
|
||||||
(defun doom-modeline-update-eglot ()
|
(defun doom-modeline-update-eglot ()
|
||||||
|
|
Loading…
Reference in a new issue