Variable: eglot-mode-line-menu

#("eglot" 0 5
  (face eglot-mode-line mouse-face mode-line-highlight help-echo
	"Eglot: Emacs LSP client\nmouse-1: Display minor mode menu"
	keymap
	(keymap
	 (mode-line keymap
		    (down-mouse-1 keymap "Eglot"
				  (Customize\ Eglot menu-item
						    "Customize Eglot"
						    menu-function-47
						    :key-sequence nil)
				  (nil "--")
				  (Find\ definitions menu-item
						     "Find definitions"
						     xref-find-definitions
						     :enable
						     (eglot-server-capable
						      :definitionProvider)
						     :help
						     "Find definitions of identifier at point")
				  (Find\ references menu-item
						    "Find references"
						    xref-find-references
						    :enable
						    (eglot-server-capable
						     :referencesProvider)
						    :help
						    "Find references to identifier at point")
				  (Find\ symbols\ in\ workspace\ \(apropos\)
				   menu-item
				   "Find symbols in workspace (apropos)"
				   xref-find-apropos :enable
				   (eglot-server-capable
				    :workspaceSymbolProvider)
				   :help
				   "Find symbols matching a query")
				  (Find\ declaration menu-item
						     "Find declaration"
						     eglot-find-declaration
						     :enable
						     (eglot-server-capable
						      :declarationProvider)
						     :help
						     "Find declaration for identifier at point")
				  (Find\ implementation menu-item
							"Find implementation"
							eglot-find-implementation
							:enable
							(eglot-server-capable
							 :implementationProvider)
							:help
							"Find implementation for identifier at point")
				  (Find\ type\ definition menu-item
							  "Find type definition"
							  eglot-find-typeDefinition
							  :enable
							  (eglot-server-capable
							   :typeDefinitionProvider)
							  :help
							  "Find type definition for identifier at point")
				  (nil-8 "--")
				  (Rename\ symbol menu-item
						  "Rename symbol"
						  eglot-rename :enable
						  (eglot-server-capable
						   :renameProvider))
				  (Format\ buffer menu-item
						  "Format buffer"
						  eglot-format-buffer
						  :enable
						  (eglot-server-capable
						   :documentFormattingProvider))
				  (Format\ active\ region menu-item
							  "Format active region"
							  eglot-format
							  :enable
							  (and
							   (region-active-p)
							   (eglot-server-capable
							    :documentRangeFormattingProvider)))
				  (Show\ Flymake\ diagnostics\ for\ buffer
				   menu-item
				   "Show Flymake diagnostics for buffer"
				   flymake-show-buffer-diagnostics)
				  (Show\ Flymake\ diagnostics\ for\ project
				   menu-item
				   "Show Flymake diagnostics for project"
				   flymake-show-project-diagnostics)
				  (Show\ Eldoc\ documentation\ at\ point
				   menu-item
				   "Show Eldoc documentation at point"
				   eldoc-doc-buffer)
				  (nil-15 "--")
				  (All\ possible\ code\ actions
				   menu-item
				   "All possible code actions"
				   eglot-code-actions :enable
				   (eglot-server-capable
				    :codeActionProvider))
				  (Organize\ imports menu-item
						     "Organize imports"
						     eglot-code-action-organize-imports
						     :visible
						     (eglot-server-capable
						      :codeActionProvider))
				  (Extract menu-item "Extract"
					   eglot-code-action-extract
					   :visible
					   (eglot-server-capable
					    :codeActionProvider))
				  (Inline menu-item "Inline"
					  eglot-code-action-inline
					  :visible
					  (eglot-server-capable
					   :codeActionProvider))
				  (Rewrite menu-item "Rewrite"
					   eglot-code-action-rewrite
					   :visible
					   (eglot-server-capable
					    :codeActionProvider))
				  (Quickfix menu-item "Quickfix"
					    eglot-code-action-quickfix
					    :visible
					    (eglot-server-capable
					     :codeActionProvider))
				  (nil-22 "--")
				  (Show\ type\ hierarchy menu-item
							 "Show type hierarchy"
							 eglot-show-type-hierarchy
							 :enable
							 (eglot-server-capable
							  :typeHierarchyProvider))
				  (Show\ call\ hierarchy menu-item
							 "Show call hierarchy"
							 eglot-show-call-hierarchy
							 :enable
							 (eglot-server-capable
							  :callHierarchyProvider))
				  (nil-25 "--")
				  (eglot-server-menu menu-item
						     "Server menu"
						     (keymap
						      "Server menu"
						      (Reconnect\ to\ server
						       menu-item
						       "Reconnect to server"
						       eglot-reconnect)
						      (Quit\ server
						       menu-item
						       "Quit server"
						       eglot-shutdown)
						      (nil "--")
						      (LSP\ events\ buffer
						       menu-item
						       "LSP events buffer"
						       eglot-events-buffer)
						      (Server\ stderr\ buffer
						       menu-item
						       "Server stderr buffer"
						       eglot-stderr-buffer)
						      (Customize\ event\ buffer\ size
						       menu-item
						       "Customize event buffer size"
						       menu-function-48
						       :key-sequence
						       nil))))))))