branch: externals/elpa commit 3403f86ea50bc7562b02df86509f7ca70e14c22e Author: João Távora <joaotav...@gmail.com> Commit: João Távora <joaotav...@gmail.com>
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)