branch: externals/eglot
commit 3403f86ea50bc7562b02df86509f7ca70e14c22e
Author: João Távora <[email protected]>
Commit: João Távora <[email protected]>
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)
