[elpa] externals/eglot 3403f86 027/139: Correctly report what we currently are capable of

[João Távora]

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

    Correctly report what we currently are capable of
    
    Which is almost nothing.
    
    * eglot.el (eglot--protocol-initialize): Clean up.
---
 eglot.el | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/eglot.el b/eglot.el
index db594f4..1f2737e 100644
--- a/eglot.el
+++ b/eglot.el
@@ -459,20 +459,23 @@ INTERACTIVE is t if caller was called interactively."
   (eglot--request
    process
    :initialize
-   `(:processId  ,(emacs-pid)
-                 :rootPath  ,(concat 
-                              (expand-file-name (car (project-roots
-                                                      (project-current)))))
-                 :initializationOptions  []
-                 :capabilities (:workspace (:executeCommand 
(:dynamicRegistration t))
-                                           :textDocument (:synchronization 
(:didSave t))))
+   (eglot--obj :processId  (emacs-pid)
+               :rootPath  (concat
+                           (expand-file-name (car (project-roots
+                                                   (project-current)))))
+               :initializationOptions  []
+               :capabilities
+               (eglot--obj
+                :workspace (eglot--obj)
+                :textDocument (eglot--obj
+                               :publishDiagnostics `(:relatedInformation t))))
    :success-fn (cl-function
                 (lambda (&key capabilities)
                   (setf (eglot--capabilities process) capabilities)
                   (when interactive
                     (setf (eglot--status process) nil)
                     (eglot--message
-                     "So yeah I got lots (%d) of capabilities"
+                     "Server reports %d capabilities"
                      (length capabilities)))))))
 
 (defun eglot-quit-server (process &optional sync interactive)