[elpa] externals/eglot e53dd5c 46/54: Per #354: make a public reader for project-nickname

[João Távora]

branch: externals/eglot
commit e53dd5cd9b5ce372efdc84a561fa6643dfdb6368
Author: Felicián Németh <address@hidden>
Commit: Felicián Németh <address@hidden>

    Per #354: make a public reader for project-nickname
    
    Close #399.
    
    * eglot.el (eglot-lsp-server): Add a public reader for
    project-nickname as eglot-project-nickname.
    (eglot--connect, eglot--read-server, eglot--mode-line-format): Use
    the public variant.
---
 eglot.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/eglot.el b/eglot.el
index 4c65af0..8d1d2d7 100644
--- a/eglot.el
+++ b/eglot.el
@@ -536,7 +536,8 @@ treated as in `eglot-dbind'."
 (defclass eglot-lsp-server (jsonrpc-process-connection)
   ((project-nickname
     :documentation "Short nickname for the associated project."
-    :accessor eglot--project-nickname)
+    :accessor eglot--project-nickname
+    :reader eglot-project-nickname)
    (major-mode
     :documentation "Major mode symbol."
     :accessor eglot--major-mode)
@@ -906,7 +907,7 @@ in project `%s'."
                            (or (plist-get serverInfo :name)
                                (jsonrpc-name server))
                            managed-major-mode
-                           (eglot--project-nickname server))
+                           (eglot-project-nickname server))
                           (when tag (throw tag t))))
                       :timeout eglot-connect-timeout
                       :error-fn (eglot--lambda ((ResponseError) code message)
@@ -1172,7 +1173,7 @@ and just return it.  PROMPT shouldn't end with a question 
mark."
                           being hash-values of eglot--servers-by-project
                           append servers))
         (name (lambda (srv)
-                (format "%s/%s" (eglot--project-nickname srv)
+                (format "%s/%s" (eglot-project-nickname srv)
                         (eglot--major-mode srv)))))
     (cond ((null servers)
            (eglot--error "No servers!"))
@@ -1388,7 +1389,7 @@ 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)))
+               (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)))