[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/elpa 328c7ae 025/139: Auto update mode-line after setti
From: |
João Távora |
Subject: |
[elpa] externals/elpa 328c7ae 025/139: Auto update mode-line after setting some process properties |
Date: |
Mon, 14 May 2018 09:53:28 -0400 (EDT) |
branch: externals/elpa
commit 328c7aeb9dc0ede8334be6b520545abeb0db308a
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>
Auto update mode-line after setting some process properties
* eglot.el (eglot--define-process-var): Rework.
(eglot--short-name, eglot--spinner, eglot--status): Update mode-line
after setting it.
---
eglot.el | 22 +++++++++++++++-------
1 file changed, 15 insertions(+), 7 deletions(-)
diff --git a/eglot.el b/eglot.el
index ff71a2f..1a82cc5 100644
--- a/eglot.el
+++ b/eglot.el
@@ -55,7 +55,12 @@
(if (project-current) ""
" (Also no current project)"))))
-(defmacro eglot--define-process-var (var-sym initval &optional doc)
+(defmacro eglot--define-process-var
+ (var-sym initval &optional doc mode-line-update-p)
+ "Define VAR-SYM as a generalized process-local variable.
+INITVAL is the default value. DOC is the documentation.
+MODE-LINE-UPDATE-P says to also force a mode line update
+after setting it."
(declare (indent 2))
`(progn
(put ',var-sym 'function-documentation ,doc)
@@ -67,12 +72,15 @@
(process-put proc ',var-sym def)
def))))
(gv-define-setter ,var-sym (to-store &optional process)
- (let ((prop ',var-sym))
- `(let ((proc (or ,process (eglot--current-process-or-lose))))
- (process-put proc ',prop ,to-store))))))
+ (let* ((prop ',var-sym))
+ ,(let ((form '(let ((proc (or ,process
(eglot--current-process-or-lose))))
+ (process-put proc ',prop ,to-store))))
+ (if mode-line-update-p
+ `(backquote (prog1 ,form (force-mode-line-update t)))
+ `(backquote ,form)))))))
(eglot--define-process-var eglot--short-name nil
- "A short name for the process")
+ "A short name for the process" t)
(eglot--define-process-var eglot--expected-bytes nil
"How many bytes declared by server")
@@ -91,11 +99,11 @@
(eglot--define-process-var eglot--spinner `(nil nil t)
"\"Spinner\" used by some servers.
-A list (ID WHAT DONE-P).")
+A list (ID WHAT DONE-P)." t)
(eglot--define-process-var eglot--status `(:unknown nil)
"Status as declared by the server.
-A list (WHAT SERIOUS-P).")
+A list (WHAT SERIOUS-P)." t)
(defun eglot--command (&optional errorp)
(let ((probe (cdr (assoc major-mode eglot-executables))))
- [elpa] externals/elpa 8bd634c 016/139: Start working on this again, (continued)
- [elpa] externals/elpa 8bd634c 016/139: Start working on this again, João Távora, 2018/05/14
- [elpa] externals/elpa dfab9a0 011/139: Experimental diagnostic overlays, João Távora, 2018/05/14
- [elpa] externals/elpa 22dc2f7 034/139: Ready to start fixing flymake integration, João Távora, 2018/05/14
- [elpa] externals/elpa 931093e 032/139: Don't clutter UI with warnings, João Távora, 2018/05/14
- [elpa] externals/elpa c948713 035/139: Auto-reconnect on unexpected connection loss, João Távora, 2018/05/14
- [elpa] externals/elpa 3489176 004/139: Add a mode-line construct and some minor fanciness, João Távora, 2018/05/14
- [elpa] externals/elpa bc011d0 010/139: Minor cleanup, João Távora, 2018/05/14
- [elpa] externals/elpa e1d36d2 014/139: Fix some byte-compilation warnings, João Távora, 2018/05/14
- [elpa] externals/elpa 1dc2a9f 021/139: Implement spinners and RLS's window/progress, João Távora, 2018/05/14
- [elpa] externals/elpa 95983c9 028/139: Change status to error everytime an error is found, João Távora, 2018/05/14
- [elpa] externals/elpa 328c7ae 025/139: Auto update mode-line after setting some process properties,
João Távora <=
- [elpa] externals/elpa 2775dea 003/139: Rename eglot--continuations eglot--pending-continuations, João Távora, 2018/05/14
- [elpa] externals/elpa 75495dc 033/139: Slightly more user friendly start, João Távora, 2018/05/14
- [elpa] externals/elpa 6f6f01d 018/139: Doc fixes, João Távora, 2018/05/14
- [elpa] externals/elpa 0ec7801 012/139: Simplify `eglot--protocol-initialize`, João Távora, 2018/05/14
- [elpa] externals/elpa 88e3655 040/139: Appease checkdoc.el, João Távora, 2018/05/14
- [elpa] externals/elpa f7f77e1 044/139: Make M-x eglot the main entry point, João Távora, 2018/05/14
- [elpa] externals/elpa 51ff863 046/139: Must re-announce didOpen after reconnect, João Távora, 2018/05/14
- [elpa] externals/elpa d2eca65 045/139: Fix another Flymake sync bug, João Távora, 2018/05/14
- [elpa] externals/elpa c95a0a4 041/139: Multiple servers per project are possible, João Távora, 2018/05/14
- [elpa] externals/elpa e60c7fc 013/139: Overhaul async mechanism safety, João Távora, 2018/05/14