emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]