aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoão Távora2025-01-31 10:31:37 +0000
committerJoão Távora2025-01-31 10:31:44 +0000
commitbd39ec062d0078c97140b8ad4ddf7c47e6f6e4ee (patch)
tree5f03de2b21768d8d4687e17115738f0e6690cf20
parentc2822650a214d08ad49863f8d09b6435642c9bf1 (diff)
downloademacs-bd39ec062d0078c97140b8ad4ddf7c47e6f6e4ee.tar.gz
emacs-bd39ec062d0078c97140b8ad4ddf7c47e6f6e4ee.zip
Eglot: add server menu into main menu
* lisp/progmodes/eglot.el (eglot-menu): Add separator at end and add in eglot-server menu at load-time. (eglot-server-menu): Rework menu title and description.
-rw-r--r--lisp/progmodes/eglot.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index c2a8562eb97..76648f310e6 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -2283,10 +2283,11 @@ If it is activated, also signal textDocument/didOpen."
2283 ["Rewrite" eglot-code-action-rewrite 2283 ["Rewrite" eglot-code-action-rewrite
2284 :visible (eglot-server-capable :codeActionProvider)] 2284 :visible (eglot-server-capable :codeActionProvider)]
2285 ["Quickfix" eglot-code-action-quickfix 2285 ["Quickfix" eglot-code-action-quickfix
2286 :visible (eglot-server-capable :codeActionProvider)])) 2286 :visible (eglot-server-capable :codeActionProvider)]
2287 "--"))
2287 2288
2288(easy-menu-define eglot-server-menu nil "Monitor server communication" 2289(easy-menu-define eglot-server-menu nil "Manage server communication"
2289 '("Debugging the server communication" 2290 '("Server menu"
2290 ["Reconnect to server" eglot-reconnect] 2291 ["Reconnect to server" eglot-reconnect]
2291 ["Quit server" eglot-shutdown] 2292 ["Quit server" eglot-shutdown]
2292 "--" 2293 "--"
@@ -2297,6 +2298,9 @@ If it is activated, also signal textDocument/didOpen."
2297 (interactive) 2298 (interactive)
2298 (customize-variable 'eglot-events-buffer-size))])) 2299 (customize-variable 'eglot-events-buffer-size))]))
2299 2300
2301(add-to-list 'eglot-menu
2302 `(eglot-server-menu menu-item "Server menu" ,eglot-server-menu) t)
2303
2300 2304
2301;;; Mode-line 2305;;; Mode-line
2302;;; 2306;;;