From: Michal Krzywkowski <k.michal@zoho.com>
Date: Wed, 3 Oct 2018 19:08:38 +0000 (+0200)
Subject: Make eglot-ignored-server-capabilites more user-friendly ()
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d294a3e010a955edb9e26537b144f8aabe4b5f99;p=emacs.git

Make eglot-ignored-server-capabilites more user-friendly ()

* eglot.el (eglot-ignored-server-capabilites): Add list of possible
  choices to :type, along with a user-friendly description.

GitHub-reference: https://github.com/joaotavora/eglot/issues/126
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index d2ec9291b0a..8014024ecd8 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -745,7 +745,29 @@ Doubles as an indicator of snippet support."
 You could add, for instance, the symbol
 `:documentHighlightProvider' to prevent automatic highlighting
 under cursor."
-  :type '(repeat symbol))
+  :type '(repeat
+          (choice
+           (symbol :tag "Other")
+           (const :tag "Documentation on hover" :hoverProvider)
+           (const :tag "Code completion" :completionProvider)
+           (const :tag "Function signature help" :signatureHelpProvider)
+           (const :tag "Go to definition" :definitionProvider)
+           (const :tag "Go to type definition" :typeDefinitionProvider)
+           (const :tag "Go to implementation" :implementationProvider)
+           (const :tag "Find references" :referencesProvider)
+           (const :tag "Highlight symbols automatically" :documentHighlightProvider)
+           (const :tag "List symbols in buffer" :documentSymbolProvider)
+           (const :tag "List symbols in workspace" :workspaceSymbolProvider)
+           (const :tag "Execute code actions" :codeActionProvider)
+           (const :tag "Code lens" :codeLensProvider)
+           (const :tag "Format buffer" :documentFormattingProvider)
+           (const :tag "Format portion of buffer" :documentRangeFormattingProvider)
+           (const :tag "On-type formatting" :documentOnTypeFormattingProvider)
+           (const :tag "Rename symbol" :renameProvider)
+           (const :tag "Highlight links in document" :documentLinkProvider)
+           (const :tag "Decorate color references" :colorProvider)
+           (const :tag "Fold regions of buffer" :foldingRangeProvider)
+           (const :tag "Execute custom commands" :executeCommandProvider))))
 
 (defun eglot--server-capable (&rest feats)
   "Determine if current server is capable of FEATS."