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

Improve LSP segment.

Browse source
This commit is contained in:
Vincent Zhang 2019-03-12 17:50:18 +07:00
parent 292f7bd238
commit 5985a573f1
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
doom-modeline-segments.el
View file

@ -1491,8 +1491,8 @@ mouse-3: Describe current input method")
(concat "LSP Connected " (concat "LSP Connected "
(string-join (--map (format "[%s]\n" (lsp--workspace-print it)) (string-join (--map (format "[%s]\n" (lsp--workspace-print it))
workspaces)) workspaces))
"C-mouse-1: Rename server "C-mouse-1: Switch to another workspace folder
mouse-1: Describe server mouse-1: Describe current session
mouse-2: Quit server mouse-2: Quit server
mouse-3: Reconnect to server") mouse-3: Reconnect to server")
"LSP Disconnected") "LSP Disconnected")
@ -1500,7 +1500,7 @@ mouse-3: Reconnect to server")
'local-map (let ((map (make-sparse-keymap))) 'local-map (let ((map (make-sparse-keymap)))
(when workspaces (when workspaces
(define-key map [mode-line C-mouse-1] (define-key map [mode-line C-mouse-1]
#'lsp-rename) #'lsp-workspace-folders-switch)
(define-key map [mode-line mouse-1] (define-key map [mode-line mouse-1]
#'lsp-describe-session) #'lsp-describe-session)
(define-key map [mode-line mouse-2] (define-key map [mode-line mouse-2]
@ -1522,9 +1522,9 @@ mouse-3: Reconnect to server")
(face (cond (face (cond
(last-error 'error) (last-error 'error)
((and doing (not done-p)) 'compilation-mode-line-run) ((and doing (not done-p)) 'compilation-mode-line-run)
((cl-plusp pending) 'mode-line) ((cl-plusp pending) 'warning)
(nick 'success) (nick 'success)
(t 'warning))) (t 'mode-line)))
(help-echo (cond (help-echo (cond
(last-error (last-error
(format "EGLOT\nAn error occured: %s (format "EGLOT\nAn error occured: %s
@ -1534,7 +1534,7 @@ mouse-3: clear this status" (plist-get last-error :message)))
(if detail (format "%s" detail) ""))) (if detail (format "%s" detail) "")))
((cl-plusp pending) ((cl-plusp pending)
(format "EGLOT\n%d outstanding requests" pending)) (format "EGLOT\n%d outstanding requests" pending))
(nick (format "EGLOT Connected: (%s/%s) (nick (format "EGLOT Connected (%s/%s)
C-mouse-1: Disply server errors C-mouse-1: Disply server errors
mouse-1: Display server events mouse-1: Display server events
mouse-2: Quit server mouse-2: Quit server