aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/eglot.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/progmodes/eglot.el')
-rw-r--r--lisp/progmodes/eglot.el10
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)