feat(chat): add eca-chat-delete command

CHANGELOG.md

@@ -2,6 +2,7 @@
 
 ## Unreleased
 
+- Add `eca-chat-delete` command to delete the active chat from the server without prompting. Works from any buffer in the project (acts on the session's last visited chat), switches the chat window to another chat first when one exists, and is bound to `C-c C-S-k` plus a `Delete` entry in the transient menu.
 - Bugfix: switching chat tabs via `tab-line-switch-to-next-tab`/`tab-line-switch-to-prev-tab` or clicking a tab now switches the chat in place instead of opening it in a new window.
 - Bugfix: trigger `@`/`#` chat completion even when a char like `(` immediately precedes it.
 - Bugfix: don't crash with `(wrong-type-argument stringp nil)` when `chat/askQuestion` sends options as plain strings or option objects without a `:label`. Options are normalized via `eca-chat--normalize-question-option` (string or plist) and the label always falls back to a non-nil string.

README.md

@@ -75,6 +75,7 @@ Chat
 - `eca-chat-rename`: Rename current chat
 - `eca-chat-clear`: Clear chat messages both on server and local.
 - `eca-chat-reset`: Deletes current chat and start a new one
+- `eca-chat-delete`: Delete the active chat from the server without prompting (works from any buffer in the project)
 - `eca-chat-select-model`: Change chat model
 - `eca-chat-select-agent`: Change chat agent
 - `eca-chat-cycle-agent`: Change chat agent to next available

eca-chat.el

@@ -681,6 +681,7 @@ and resume link are not left behind under the replayed messages.")
     (define-key map (kbd "<tab>") #'eca-chat--key-pressed-tab)
     (define-key map (kbd "TAB") #'eca-chat--key-pressed-tab)
     (define-key map (kbd "C-c C-k") #'eca-chat-reset)
+    (define-key map (kbd "C-c C-S-k") #'eca-chat-delete)
     (define-key map (kbd "C-c C-l") #'eca-chat-clear)
     (define-key map (kbd "C-c C-t") #'eca-chat-toggle-trust)
     (define-key map (kbd "C-c C-S-t") #'eca-chat-talk)
@@ -4209,6 +4210,42 @@ the empty buffer that was used to trigger the resume."
                             :method "chat/update"
                             :params (list :chatId eca-chat--id :title new-name)))))
 
+;;;###autoload
+(defun eca-chat-delete ()
+  "Delete the active chat of the current session from the server.
+Operates on the session's last visited chat buffer, so it can be
+called from any buffer in the project, not only from the chat
+buffer itself.  Unlike killing the chat buffer, this never
+prompts; the chat is always removed server-side.  When the session
+has other chats, any window showing the deleted chat switches to
+another chat first."
+  (interactive)
+  (let ((session (eca-session)))
+    (eca-assert-session-running session)
+    (let* ((buffer (eca-chat--get-last-buffer session))
+           (chat-id (and (buffer-live-p buffer)
+                         (buffer-local-value 'eca-chat--id buffer))))
+      (unless (and (buffer-live-p buffer) chat-id)
+        (user-error "No active chat to delete"))
+      (when-let ((other (-first (lambda (buf)
+                                  (and (buffer-live-p buf) (not (eq buf buffer))))
+                                (eca-vals (eca--session-chats session)))))
+        (setf (eca--session-last-chat-buffer session) other)
+        (dolist (win (get-buffer-window-list buffer nil t))
+          (let ((dedicated (window-dedicated-p win)))
+            (set-window-dedicated-p win nil)
+            (set-window-buffer win other)
+            (set-window-dedicated-p win dedicated))))
+      ;; Mark closed so the kill-buffer hook neither prompts nor sends a
+      ;; second chat/delete when BUFFER is killed below.
+      (with-current-buffer buffer
+        (setq-local eca-chat--closed t))
+      (eca-api-request-sync session
+                            :method "chat/delete"
+                            :params (list :chatId chat-id))
+      (when (buffer-live-p buffer)
+        (kill-buffer buffer)))))
+
 ;;;###autoload
 (defun eca-chat-new ()
   "Start a new ECA chat for same session."

eca-util.el

@@ -432,6 +432,7 @@ Inheirits BASE-MAP."
       ("f" "Select" eca-chat-select)
       ("c" "Clear" eca-chat-clear)
       ("r" "Reset" eca-chat-reset)
+      ("k" "Delete" eca-chat-delete)
       ("R" "Rename" eca-chat-rename)
       ("t" "Talk" eca-chat-talk)
       ("p" "Repeat prompt" eca-chat-repeat-prompt)