From: JD Smith <jdtsmith@gmail.com>
Date: Thu, 23 Mar 2023 17:43:52 +0000 (+0000)
Subject: Eglot: let user opt-in to plaintext LSP docs (bug#61373)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4566a0c6b825a18e6c065da0543b8b942b7db8df;p=emacs.git

Eglot: let user opt-in to plaintext LSP docs (bug#61373)

* lisp/progmodes/eglot.el
(eglot-prefer-plaintext): New variable.
(eglot-client-capabilities): Use it.

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index fae1c8db8b7..806e498c38c 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -391,6 +391,10 @@ done by `eglot-reconnect'."
   "If non-nil, activate Eglot in cross-referenced non-project files."
   :type 'boolean)
 
+(defcustom eglot-prefer-plaintext nil
+  "If non-nil, always request plaintext responses to hover requests."
+  :type 'boolean)
+
 (defcustom eglot-menu-string "eglot"
   "String displayed in mode line when Eglot is active."
   :type 'string)
@@ -776,7 +780,8 @@ treated as in `eglot--dbind'."
                                     :contextSupport t)
              :hover              (list :dynamicRegistration :json-false
                                        :contentFormat
-                                       (if (fboundp 'gfm-view-mode)
+                                       (if (and (not eglot-prefer-plaintext)
+                                                (fboundp 'gfm-view-mode))
                                            ["markdown" "plaintext"]
                                          ["plaintext"]))
              :signatureHelp      (list :dynamicRegistration :json-false