diff options
| -rw-r--r-- | lisp/progmodes/eglot.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 6cc48beea5e..8be88ab7316 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el | |||
| @@ -4708,7 +4708,8 @@ If NOERROR, return predicate, else erroring function." | |||
| 4708 | \\{eglot-list-connections-mode-map}" | 4708 | \\{eglot-list-connections-mode-map}" |
| 4709 | :interactive nil | 4709 | :interactive nil |
| 4710 | (setq-local tabulated-list-format | 4710 | (setq-local tabulated-list-format |
| 4711 | `[("Language server" 16) ("Project name" 16) ("Modes handled" 16)]) | 4711 | `[("Language server" 16) ("Project name" 20) ("Buffers" 7) |
| 4712 | ("Modes" 20) ("Invocation" 32)]) | ||
| 4712 | (tabulated-list-init-header)) | 4713 | (tabulated-list-init-header)) |
| 4713 | 4714 | ||
| 4714 | (defun eglot-list-connections () | 4715 | (defun eglot-list-connections () |
| @@ -4726,9 +4727,14 @@ If NOERROR, return predicate, else erroring function." | |||
| 4726 | `[,(or (plist-get (eglot--server-info server) :name) | 4727 | `[,(or (plist-get (eglot--server-info server) :name) |
| 4727 | (jsonrpc-name server)) | 4728 | (jsonrpc-name server)) |
| 4728 | ,(eglot-project-nickname server) | 4729 | ,(eglot-project-nickname server) |
| 4730 | ,(format "%s" (length (eglot--managed-buffers server))) | ||
| 4729 | ,(mapconcat #'symbol-name | 4731 | ,(mapconcat #'symbol-name |
| 4730 | (eglot--major-modes server) | 4732 | (eglot--major-modes server) |
| 4731 | ", ")])) | 4733 | ", ") |
| 4734 | ,(let ((c (process-command | ||
| 4735 | (jsonrpc--process server)))) | ||
| 4736 | (if (consp c) (mapconcat #'identity c " ") | ||
| 4737 | "network"))])) | ||
| 4732 | (cl-reduce #'append | 4738 | (cl-reduce #'append |
| 4733 | (hash-table-values eglot--servers-by-project)))) | 4739 | (hash-table-values eglot--servers-by-project)))) |
| 4734 | (revert-buffer) | 4740 | (revert-buffer) |