[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/elpa 0ec7801 012/139: Simplify `eglot--protocol-initial
From: |
João Távora |
Subject: |
[elpa] externals/elpa 0ec7801 012/139: Simplify `eglot--protocol-initialize` |
Date: |
Mon, 14 May 2018 09:53:25 -0400 (EDT) |
branch: externals/elpa
commit 0ec78011fee3be96f110fc37756a9baac6595348
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>
Simplify `eglot--protocol-initialize`
* eglot.el (eglot--protocol-initialize): Simplify
---
eglot.el | 29 +++++++----------------------
1 file changed, 7 insertions(+), 22 deletions(-)
diff --git a/eglot.el b/eglot.el
index cd91d78..b59ee02 100644
--- a/eglot.el
+++ b/eglot.el
@@ -70,7 +70,7 @@
"Point where next unread message starts")
(eglot--define-process-var eglot--short-name nil
- "A short name")
+ "A short name for the process")
(eglot--define-process-var eglot--expected-bytes nil
"How many bytes declared by server")
@@ -81,6 +81,9 @@
(eglot--define-process-var eglot--events-buffer nil
"A buffer pretty-printing the EGLOT RPC events")
+(eglot--define-process-var eglot--capabilities :unreported
+ "Holds list of capabilities that server reported")
+
(cl-defmacro eglot--request (process
method
params
@@ -367,29 +370,11 @@
:capabilities (:workspace (:executeCommand
(:dynamicRegistration t))
:textDocument (:synchronization
(:didSave t))))
(lambda (&key capabilities)
- (cl-destructuring-bind
- (&rest all
- &key
- ;; capabilities reported by server
- _textDocumentSync
- _hoverProvider
- _completionProvider
- _definitionProvider
- _referencesProvider
- _documentHighlightProvider
- _documentSymbolProvider
- _workspaceSymbolProvider
- _codeActionProvider
- _documentFormattingProvider
- _documentRangeFormattingProvider
- _renameProvider
- _executeCommandProvider
- )
- capabilities
- (when interactive
+ (setf (eglot--capabilities process) capabilities)
+ (when interactive
(eglot--message
"So yeah I got lots (%d) of capabilities"
- (length all)))))))
+ (length capabilities))))))
(defun eglot-quit-server (process &optional sync)
(interactive (list (eglot--current-process-or-lose)))
- [elpa] externals/elpa c948713 035/139: Auto-reconnect on unexpected connection loss, (continued)
- [elpa] externals/elpa c948713 035/139: Auto-reconnect on unexpected connection loss, João Távora, 2018/05/14
- [elpa] externals/elpa 3489176 004/139: Add a mode-line construct and some minor fanciness, João Távora, 2018/05/14
- [elpa] externals/elpa bc011d0 010/139: Minor cleanup, João Távora, 2018/05/14
- [elpa] externals/elpa e1d36d2 014/139: Fix some byte-compilation warnings, João Távora, 2018/05/14
- [elpa] externals/elpa 1dc2a9f 021/139: Implement spinners and RLS's window/progress, João Távora, 2018/05/14
- [elpa] externals/elpa 95983c9 028/139: Change status to error everytime an error is found, João Távora, 2018/05/14
- [elpa] externals/elpa 328c7ae 025/139: Auto update mode-line after setting some process properties, João Távora, 2018/05/14
- [elpa] externals/elpa 2775dea 003/139: Rename eglot--continuations eglot--pending-continuations, João Távora, 2018/05/14
- [elpa] externals/elpa 75495dc 033/139: Slightly more user friendly start, João Távora, 2018/05/14
- [elpa] externals/elpa 6f6f01d 018/139: Doc fixes, João Távora, 2018/05/14
- [elpa] externals/elpa 0ec7801 012/139: Simplify `eglot--protocol-initialize`,
João Távora <=
- [elpa] externals/elpa 88e3655 040/139: Appease checkdoc.el, João Távora, 2018/05/14
- [elpa] externals/elpa f7f77e1 044/139: Make M-x eglot the main entry point, João Távora, 2018/05/14
- [elpa] externals/elpa 51ff863 046/139: Must re-announce didOpen after reconnect, João Távora, 2018/05/14
- [elpa] externals/elpa d2eca65 045/139: Fix another Flymake sync bug, João Távora, 2018/05/14
- [elpa] externals/elpa c95a0a4 041/139: Multiple servers per project are possible, João Távora, 2018/05/14
- [elpa] externals/elpa e60c7fc 013/139: Overhaul async mechanism safety, João Távora, 2018/05/14
- [elpa] externals/elpa a3545fb 050/139: Rename RPC methods for clarity, João Távora, 2018/05/14
- [elpa] externals/elpa 4d4b85d 061/139: eglot-editing-mode becomes eglot--managed-mode, João Távora, 2018/05/14
- [elpa] externals/elpa 4f246b5 017/139: * eglot.el (eglot-mode-map): Move up before minor mode., João Távora, 2018/05/14
- [elpa] externals/elpa a4f99e0 005/139: Introduce and use `eglot--current-process-or-lose', João Távora, 2018/05/14