From: João Távora <joaotavora@gmail.com>
Date: Fri, 31 Jan 2025 10:31:37 +0000 (+0000)
Subject: Eglot: add server menu into main menu
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cbf809207a0acb3c0574507c339cc74299612d1;p=emacs.git

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.

(cherry picked from commit bd39ec062d0078c97140b8ad4ddf7c47e6f6e4ee)
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 8dd75612c8c..06db08df17c 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -2273,10 +2273,11 @@ If it is activated, also signal textDocument/didOpen."
     ["Rewrite" eglot-code-action-rewrite
      :visible (eglot-server-capable :codeActionProvider)]
     ["Quickfix" eglot-code-action-quickfix
-     :visible (eglot-server-capable :codeActionProvider)]))
+     :visible (eglot-server-capable :codeActionProvider)]
+    "--"))
 
-(easy-menu-define eglot-server-menu nil "Monitor server communication"
-  '("Debugging the server communication"
+(easy-menu-define eglot-server-menu nil "Manage server communication"
+  '("Server menu"
     ["Reconnect to server" eglot-reconnect]
     ["Quit server" eglot-shutdown]
     "--"
@@ -2287,6 +2288,9 @@ If it is activated, also signal textDocument/didOpen."
        (interactive)
        (customize-variable 'eglot-events-buffer-size))]))
 
+(add-to-list 'eglot-menu
+             `(eglot-server-menu menu-item "Server menu" ,eglot-server-menu) t)
+
 
 ;;; Mode-line
 ;;;