[elpa] externals/eglot f7a1bf6 49/69: Fix #236: much less noisy mode line

[João Távora]

branch: externals/eglot
commit f7a1bf69834520052ab6ee9a901b9f6691cfa36d
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    Fix #236: much less noisy mode line
    
    * eglot.el (eglot--mode-line-format): Simplify.
---
 eglot.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/eglot.el b/eglot.el
index cfcfaa7..0a9da05 100644
--- a/eglot.el
+++ b/eglot.el
@@ -1314,7 +1314,7 @@ Uses THING, FACE, DEFS and PREPEND."
                (nick (and server (eglot--project-nickname server)))
                (pending (and server (hash-table-count
                                      (jsonrpc--request-continuations server))))
-               (`(,_id ,doing ,done-p ,detail) (and server (eglot--spinner 
server)))
+               (`(,_id ,doing ,done-p ,_detail) (and server (eglot--spinner 
server)))
                (last-error (and server (jsonrpc-last-error server))))
     (append
      `(,(eglot--mode-line-props "eglot" 'eglot-mode-line nil))
@@ -1332,15 +1332,13 @@ Uses THING, FACE, DEFS and PREPEND."
                      (format "An error occured: %s\n" (plist-get last-error
                                                                  :message)))))
          ,@(when (and doing (not done-p))
-             `("/" ,(eglot--mode-line-props
-                     (format "%s%s" doing
-                             (if detail (format ":%s" detail) ""))
-                     'compilation-mode-line-run '())))
+             `("/" ,(eglot--mode-line-props doing
+                                            'compilation-mode-line-run '())))
          ,@(when (cl-plusp pending)
              `("/" ,(eglot--mode-line-props
-                     (format "%d outstanding requests" pending) 'warning
+                     (format "%d" pending) 'warning
                      '((mouse-3 eglot-forget-pending-continuations
-                                "fahgettaboudit"))))))))))
+                                "forget pending continuations"))))))))))
 
 (add-to-list 'mode-line-misc-info
              `(eglot--managed-mode (" [" eglot--mode-line-format "] ")))