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

Eglot: de-spam eglot-mode-line-progress

Browse source 
Too spammy when many progress reporters are created by servers
such as rust-analyzer.

* lisp/progmodes/eglot.el (eglot-mode-line-progress): Tweak.
This commit is contained in:
João Távora 2026-01-11 00:35:54 +00:00
parent 68de337f26
commit fde1a5ebeb
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/progmodes/eglot.el
View file

@ -2667,14 +2667,16 @@ still unanswered LSP requests to the server\n"))))
(cl-loop
for pr hash-values of (eglot--progress-reporters server)
when (eq (car pr) 'eglot--mode-line-reporter)
collect (eglot--mode-line-props
(format "%s%%%%" (or (nth 4 pr) "?"))
'eglot-mode-line
nil
(format "(%s) %s %s" (nth 1 pr)
(nth 2 pr) (nth 3 pr)))
into reports
finally (return (mapconcat #'identity reports " /")))))
for v = (nth 4 pr)
when v sum 1 into n and sum v into acc
collect (format "(%s) %s %s" (nth 1 pr) (nth 2 pr) (nth 3 pr))
into blurbs finally return
(unless (zerop n)
(eglot--mode-line-props
(format "%d%%%%" (/ acc n 1.0))
'eglot-mode-line
nil
(mapconcat #'identity blurbs "\n"))))))
"Eglot mode line construct for LSP progress reports.")
(defconst eglot-mode-line-action-suggestion