diff options
| author | João Távora | 2025-01-31 10:31:37 +0000 |
|---|---|---|
| committer | João Távora | 2025-01-31 10:31:44 +0000 |
| commit | bd39ec062d0078c97140b8ad4ddf7c47e6f6e4ee (patch) | |
| tree | 5f03de2b21768d8d4687e17115738f0e6690cf20 | |
| parent | c2822650a214d08ad49863f8d09b6435642c9bf1 (diff) | |
| download | emacs-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.el | 10 |
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 | ;;; |