fix: react to new mcp tools notification (#4863)

* fix: react to new mcp tools notification

* chore: remove unused argument

* chore: add docstr

Author: kassick

clients/lsp-copilot.el

@@ -190,6 +190,13 @@ automatically, browse to %s." user-code verification-uri))
         :name "emacs"
         :version "0.1.0"))
 
+(defun lsp-copilot--mcp-tools-notification (_ params)
+   "Reacts to the copilot/mcpTools notification"
+  (-let* (((&copilot-ls:McpToolsNotification :servers) params)
+          (tools-str (s-join ", " servers)))
+    (when (s-present? tools-str)
+        (lsp--info "Copilot: Available MCP Tools: %s" tools-str))))
+
 (defun lsp-copilot--server-initialized-fn (workspace)
   ;; Patch capabilities -- server may respond with an empty dict. In plist,
   ;; this would become nil
@@ -228,6 +235,7 @@ automatically, browse to %s." user-code verification-uri))
                           ("featureFlagsNotification" #'ignore)
                           ("statusNotification" #'ignore)
                           ("didChangeStatus" #'ignore)
+                          ("copilot/mcpTools" #'lsp-copilot--mcp-tools-notification)
                           ("window/logMessage" #'lsp--window-log-message)
                           ("conversation/preconditionsNotification" #'ignore))))
 

lsp-protocol.el

@@ -473,7 +473,8 @@ See `-let' for a description of the destructuring mechanism."
 (lsp-interface
  (copilot-ls:SignInInitiateResponse (:status :userCode :verificationUri :expiresIn :interval :user) nil)
  (copilot-ls:SignInConfirmResponse (:status :user))
- (copilot-ls:CheckStatusResponse (:status :user)))
+ (copilot-ls:CheckStatusResponse (:status :user))
+ (copilot-ls:McpToolsNotification (:servers)))
 
 
 ;; begin autogenerated code