diff options
author | Stephen Leake <stephen_leake@stephe-leake.org> | 2022-11-20 13:45:13 -0800 |
---|---|---|
committer | Stephen Leake <stephen_leake@stephe-leake.org> | 2022-11-20 13:45:13 -0800 |
commit | 6b0179f7908c658342d1e642e5444e3d2e1cd997 (patch) | |
tree | 0e0c84d8f87db7dc0d3cb1095eadb0caa88b2082 | |
parent | 8ec8decd9f1ab642c7f1406b37a89773345b5aba (diff) | |
download | emacs-6b0179f7908c658342d1e642e5444e3d2e1cd997.tar.gz |
Delete eglot spinner; not useful
* lisp/progmodes/eglot.el (eglot-lsp-server): Delete slot spinner.
(eglot--mode-line-format): Don't include spinner in mode-line.
(eglot--signal-textDocument/didChange): Don't set spinner.
-rw-r--r-- | lisp/progmodes/eglot.el | 28 |
1 files changed, 10 insertions, 18 deletions
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 9555d21b00a..c1bda7081c5 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -821,9 +821,6 @@ treated as in `eglot--dbind'." (project :documentation "Project associated with server." :accessor eglot--project) - (spinner - :documentation "List (ID DOING-WHAT DONE-P) representing server progress." - :initform `(nil nil t) :accessor eglot--spinner) (inhibit-autoreconnect :initform t :documentation "Generalized boolean inhibiting auto-reconnection if true." @@ -1924,12 +1921,11 @@ Uses THING, FACE, DEFS and PREPEND." (defun eglot--mode-line-format () "Compose the Eglot's mode-line." - (pcase-let* ((server (eglot-current-server)) - (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))) - (last-error (and server (jsonrpc-last-error server)))) + (let* ((server (eglot-current-server)) + (nick (and server (eglot-project-nickname server))) + (pending (and server (hash-table-count + (jsonrpc--request-continuations server)))) + (last-error (and server (jsonrpc-last-error server)))) (append `(,(propertize eglot-menu-string @@ -1955,14 +1951,11 @@ Uses THING, FACE, DEFS and PREPEND." '((mouse-3 eglot-clear-status "Clear this status")) (format "An error occurred: %s\n" (plist-get last-error :message))))) - ,@(when (and doing (not done-p)) - `("/" ,(eglot--mode-line-props doing - 'compilation-mode-line-run '()))) - ,@(when (cl-plusp pending) - `("/" ,(eglot--mode-line-props - (format "%d" pending) 'warning - '((mouse-3 eglot-forget-pending-continuations - "Forget pending continuations")) + ,@(when (cl-plusp pending) + `("/" ,(eglot--mode-line-props + (format "%d" pending) 'warning + '((mouse-3 eglot-forget-pending-continuations + "Forget pending continuations")) "Number of outgoing, \ still unanswered LSP requests to the server\n")))))))) @@ -2414,7 +2407,6 @@ When called interactively, use the currently active server" vconcat `[,(list :range `(:start ,beg :end ,end) :rangeLength len :text text)])))) (setq eglot--recent-changes nil) - (setf (eglot--spinner server) (list nil :textDocument/didChange t)) (jsonrpc--call-deferred server)))) (defun eglot--signal-textDocument/didOpen () |