mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-22 04:21:24 -08:00
Code Issues Projects Releases Wiki Activity

Eglot: enhance eglot-list-connections-mode

Browse source 
* lisp/progmodes/eglot.el (eglot-list-connections-mode)
(eglot-list-connections): Tweak.
This commit is contained in:
João Távora 2026-01-09 21:23:41 +00:00
parent 7e13073c3c
commit fefd6526e2
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/progmodes/eglot.el
View file

@ -4708,7 +4708,8 @@ If NOERROR, return predicate, else erroring function."
\\{eglot-list-connections-mode-map}"
:interactive nil
(setq-local tabulated-list-format
`[("Language server" 16) ("Project name" 16) ("Modes handled" 16)])
`[("Language server" 16) ("Project name" 20) ("Buffers" 7)
("Modes" 20) ("Invocation" 32)])
(tabulated-list-init-header))
(defun eglot-list-connections ()
@ -4726,9 +4727,14 @@ If NOERROR, return predicate, else erroring function."
`[,(or (plist-get (eglot--server-info server) :name)
(jsonrpc-name server))
,(eglot-project-nickname server)
,(format "%s" (length (eglot--managed-buffers server)))
,(mapconcat #'symbol-name
(eglot--major-modes server)
", ")]))
", ")
,(let ((c (process-command
(jsonrpc--process server))))
(if (consp c) (mapconcat #'identity c " ")
"network"))]))
(cl-reduce #'append
(hash-table-values eglot--servers-by-project))))
(revert-buffer)