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

[Performance] Optimize lsp/eglot indicators.

Browse source
This commit is contained in:
Vincent Zhang 2019-03-22 03:00:45 +08:00
parent 77ac0984eb
commit aebaa760c6
1 changed files with 24 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
doom-modeline-segments.el
View file

@ -1535,12 +1535,10 @@ mouse-3: Describe current input method")
;; LSP ;; LSP
;; ;;
(doom-modeline-def-segment lsp (defvar doom-modeline--lsp nil)
"The LSP server state." (defun doom-modeline-update-lsp ()
(if (and doom-modeline-lsp "Update `lsp-mode' status."
(doom-modeline--active)) (setq doom-modeline--lsp
(cond
((bound-and-true-p lsp-mode)
(concat (concat
" " " "
(let ((icon (if doom-modeline-icon (let ((icon (if doom-modeline-icon
@ -1573,8 +1571,13 @@ mouse-3: Reconnect to server")
(define-key map [mode-line mouse-3] (define-key map [mode-line mouse-3]
#'lsp-restart-workspace)) #'lsp-restart-workspace))
map))) map)))
" ")) " ")))
((bound-and-true-p eglot--managed-mode) (add-hook 'lsp-mode-hook #'doom-modeline-update-lsp)
(defvar doom-modeline--eglot nil)
(defun doom-modeline-update-eglot ()
"Update `eglot' status."
(setq doom-modeline--eglot
(pcase-let* ((icon (if doom-modeline-icon (pcase-let* ((icon (if doom-modeline-icon
(doom-modeline-icon-faicon "rocket" :v-adjust -0.0575) (doom-modeline-icon-faicon "rocket" :v-adjust -0.0575)
"EGLOT")) "EGLOT"))
@ -1633,7 +1636,18 @@ mouse-3: Reconnect to server" nick (eglot--major-mode server)))
'help-echo help-echo 'help-echo help-echo
'mouse-face '(:box 0) 'mouse-face '(:box 0)
'local-map local-map) 'local-map local-map)
" ")))))) " "))))
(add-hook 'eglot--managed-mode-hook #'doom-modeline-update-eglot)
(doom-modeline-def-segment lsp
"The LSP server state."
(if (and doom-modeline-lsp
(doom-modeline--active))
(cond
((bound-and-true-p lsp-mode)
doom-modeline--lsp)
((bound-and-true-p eglot--managed-mode)
doom-modeline--eglot))))
(defun doom-modeline-override-eglot-modeline () (defun doom-modeline-override-eglot-modeline ()
"Override `eglot' mode-line." "Override `eglot' mode-line."
@ -1836,6 +1850,7 @@ mouse-1: Toggle Debug on Quit"
(defvar-local doom-modeline--pdf-pages nil) (defvar-local doom-modeline--pdf-pages nil)
(defun doom-modeline-update-pdf-pages () (defun doom-modeline-update-pdf-pages ()
"Update PDF pages."
(setq doom-modeline--pdf-pages (setq doom-modeline--pdf-pages
(propertize (propertize
(format " P%d/%d " (format " P%d/%d "