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

Fix #203: Add custom faces for the LSP icon.

Browse source
This commit is contained in:
Vincent Zhang 2019-08-02 00:44:43 +08:00
parent 6ecda37e45
commit 59a5d1e8d2
2 changed files with 19 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
doom-modeline-core.el
View file

@ -422,6 +422,21 @@ If the actual char height is larger, it respects the actual char height."
"Face for the replace state tag in evil state indicator." "Face for the replace state tag in evil state indicator."
:group 'doom-modeline-faces) :group 'doom-modeline-faces)
(defface doom-modeline-lsp-success
'((t (:inherit success)))
"Face for success state in LSP."
:group 'doom-modeline-faces)
(defface doom-modeline-lsp-warning
'((t (:inherit warning)))
"Face for warning state in LSP."
:group 'doom-modeline-faces)
(defface doom-modeline-lsp-error
'((t (:inherit error)))
"Face for error state in LSP."
:group 'doom-modeline-faces)
;; ;;
;; Externals ;; Externals

8
doom-modeline-segments.el
View file

@ -1613,7 +1613,7 @@ mouse-3: Describe current input method")
"Update `lsp-mode' status." "Update `lsp-mode' status."
(setq doom-modeline--lsp (setq doom-modeline--lsp
(let* ((workspaces (lsp-workspaces)) (let* ((workspaces (lsp-workspaces))
(face (if workspaces 'success 'warning)) (face (if workspaces 'doom-modeline-lsp-success 'error))
(icon (doom-modeline-lsp-icon "LSP" face))) (icon (doom-modeline-lsp-icon "LSP" face)))
(propertize icon (propertize icon
'help-echo 'help-echo
@ -1664,10 +1664,10 @@ mouse-1: Reload to start server")
(`(,_id ,doing ,done-p ,detail) (and server (eglot--spinner server))) (`(,_id ,doing ,done-p ,detail) (and server (eglot--spinner server)))
(last-error (and server (jsonrpc-last-error server))) (last-error (and server (jsonrpc-last-error server)))
(face (cond (face (cond
(last-error 'error) (last-error 'doom-modeline-lsp-error)
((and doing (not done-p)) 'compilation-mode-line-run) ((and doing (not done-p)) 'compilation-mode-line-run)
((and pending (cl-plusp pending)) 'warning) ((and pending (cl-plusp pending)) 'doom-modeline-lsp-warning)
(nick 'success) (nick 'doom-modeline-lsp-success)
(t 'mode-line))) (t 'mode-line)))
(icon (doom-modeline-lsp-icon "EGLOT" face))) (icon (doom-modeline-lsp-icon "EGLOT" face)))
(propertize icon (propertize icon