Finish mcp servers view

Author: ericdallo

eca-mcp.el

@@ -23,6 +23,11 @@
   :type 'alist
   :group 'eca)
 
+(defface eca-mcp-details-tool-face
+  '((t (:inherit hl-line :slant italic)))
+  "Face for tools showed in mcp details buffer."
+  :group 'eca)
+
 ;; Internal
 
 (defvar eca-mcp-details-buffer-name "<eca-mcp-details>")
@@ -35,40 +40,66 @@
   "Create the eca mcp details buffer for current session."
   (get-buffer-create (generate-new-buffer-name eca-mcp-details-buffer-name)))
 
+(defun eca-mcp--refresh-server-details ()
+  "Refresh the MCP server details."
+  (with-current-buffer (eca-mcp--get-details-buffer)
+    (erase-buffer)
+    (insert (propertize "MCP servers" 'font-lock-face 'helpful-heading))
+    (insert "\n\n")
+    (seq-doseq (server (-sort  (lambda (a b)
+                                 (string-lessp (plist-get a :name)
+                                               (plist-get b :name)))
+                               (eca-vals (eca--session-mcp-servers eca--session))))
+      (-let (((&plist :name name :command command :args args
+                      :status status :tools tools) server))
+        (insert (propertize name 'font-lock-face 'bold))
+        (insert " - ")
+        (insert (propertize status
+                            'font-lock-face (pcase status
+                                              ("running" 'success)
+                                              ("starting" 'warning)
+                                              ("failed" 'error)
+                                              ("stopped" 'default)
+                                              ("disabled" 'shadow))))
+        (insert "\n")
+        (if (seq-empty-p tools)
+            (insert (propertize "No tools available" 'font-lock-face font-lock-doc-face))
+          (progn
+            (insert (propertize "Tools: " 'font-lock-face font-lock-doc-face))
+            (seq-doseq (tool tools)
+              (insert (propertize (plist-get tool :name) 'font-lock-face 'eca-mcp-details-tool-face) " "))))
+        (insert "\n")
+        (insert (propertize "Command: " 'font-lock-face font-lock-doc-face))
+        (insert (concat command " " (string-join args " ")))
+        (when (string= "failed" status)
+          (insert "\n")
+          (insert (propertize (format "Failed to start, check %s for details"
+                                      (buttonize
+                                       "eca stderr buffer"
+                                       (lambda(_) (eca-process-show-stderr))))
+                              'font-lock-face 'error))))
+      (insert "\n\n"))))
+
 ;; Public
 
 (define-derived-mode eca-mcp-details-mode fundamental-mode "eca-mcp-details"
   "Major mode for ECA mcp details."
   :group 'eca
-  (insert (propertize "MCP servers" 'font-lock-face 'helpful-heading))
-  (insert "\n\n")
-  (seq-doseq (server (eca-vals (eca--session-mcp-servers eca--session)))
-    (-let (((&plist :name name :command command :args args
-                    :status status :tools tools) server))
-      (insert (propertize name 'font-lock-face 'bold))
-      (insert " - ")
-      (insert (propertize status
-                          'font-lock-face (pcase status
-                                            ("running" 'success)
-                                            ("starting" 'warning)
-                                            ("failed" 'error)
-                                            ("stopped" 'default)
-                                            ("disabled" 'shadow))))
-      (insert "\n")
-      (insert (if (seq-empty-p tools)
-                  (propertize "No tools available." 'font-lock-face font-lock-doc-face)
-                "..."))
-      (insert "\n")
-      (insert (propertize "Command: " 'font-lock-face font-lock-doc-face))
-      (insert (concat command " " (string-join args " ")))
-      (when (string= "failed" status)
-        (insert "\n")
-        (insert (propertize (format "Failed to start, check %s for details"
-                                    (buttonize
-                                     "eca stderr buffer"
-                                     (lambda(_) (eca-process-show-stderr))))
-                            'font-lock-face 'error))))
-    (insert "\n\n")))
+  (eca-mcp--refresh-server-details))
+
+(defun eca-mcp--handle-mcp-server-updated (_server)
+  "Handle mcp SERVER updated."
+  (eca-mcp--refresh-server-details))
+
+(defun eca-mcp-details-exit ()
+  "Exit the ECA mcp details."
+  (when (buffer-live-p (get-buffer eca-mcp-details-buffer-name))
+    (with-current-buffer (eca-mcp--get-details-buffer)
+      (goto-char (point-max))
+      (setq-local mode-line-format '("*Closed session*"))
+      (rename-buffer (concat (buffer-name) ":closed") t)
+      (when-let* ((window (get-buffer-window (eca-mcp--get-details-buffer))))
+        (quit-window nil window)))))
 
 ;;;###autoload
 (defun eca-mcp-details ()
@@ -82,10 +113,9 @@
       (eca-mcp-details-mode))
     (if (window-live-p (get-buffer-window (buffer-name)))
         (select-window (get-buffer-window (buffer-name)))
-      (let ((buffer (current-buffer)))
-        (display-buffer buffer eca-mcp-details-position-params)
-        (select-window (get-buffer-window buffer))
-        (set-window-buffer (get-buffer-window buffer) buffer)))))
+      (display-buffer (current-buffer) eca-mcp-details-position-params)
+      (select-window (get-buffer-window (current-buffer)))
+      (set-window-buffer (get-buffer-window (current-buffer)) (current-buffer)))))
 
 (provide 'eca-mcp)
 ;;; eca-mcp.el ends here

eca-process.el

@@ -249,5 +249,18 @@ Call HANDLE-MSG for new msgs processed."
         (select-window (get-buffer-window (buffer-name)))
       (display-buffer (current-buffer)))))
 
+;;;###autoload
+(defun eca-install-server ()
+  "Download the eca server if not downloaded."
+  (interactive)
+  (eca-process--download-server (lambda ())))
+
+;;;###autoload
+(defun eca-uninstall-server ()
+  "Remove downloaded eca server if present."
+  (interactive)
+  (eca-process--uninstall-server)
+  (eca-info "Server uninstalled!"))
+
 (provide 'eca-process)
 ;;; eca-process.el ends here

eca.el

@@ -25,6 +25,7 @@
 (require 'eca-process)
 (require 'eca-api)
 (require 'eca-chat)
+(require 'eca-mcp)
 
 (defgroup eca nil
   "ECA group."
@@ -69,7 +70,8 @@
         (eca-assoc (eca--session-mcp-servers eca--session)
                    (plist-get server :name)
                    server))
-  (eca-chat--handle-mcp-server-updated server))
+  (eca-chat--handle-mcp-server-updated server)
+  (eca-mcp--handle-mcp-server-updated server))
 
 (defun eca--handle-server-notification (notification)
   "Handle NOTIFICATION sent by server."
@@ -156,21 +158,9 @@
     (eca-api-notify :method "exit")
     (eca-process-stop))
   (eca-chat-exit)
+  (eca-mcp-details-exit)
   (setq eca--session nil))
 
-;;;###autoload
-(defun eca-install-server ()
-  "Download the eca server if not downloaded."
-  (interactive)
-  (eca--download-server (lambda ())))
-
-;;;###autoload
-(defun eca-uninstall-server ()
-  "Remove downloaded eca server if present."
-  (interactive)
-  (eca--uninstall-server)
-  (eca-info "Server uninstalled!"))
-
 ;;;###autoload
 (defun eca-workspaces ()
   "Return workspaces used by current session."