Fix /resume broken for OpenAI chats

Three root causes fixed:

- Nil reasoning text during replay: message-content->chat-content
  unconditionally emitted reasonText with nil text when OpenAI reasoning
  had no :thinking events (e.g. redacted). Now conditionally includes
  reasonText only when text is non-nil.

- Prompt-id lost after chat replacement: the resume command replaced the
  entire chat map, losing the current prompt-id. finish-chat-prompt!'s
  supersession guard then rejected the transition to idle, leaving the
  UI stuck in "thinking" state. Now restores prompt-id after replacement.

- UI not cleared before replay: resumed messages were appended on top of
  existing ones. Now sends chat-cleared before replaying, matching the
  rollback-chat pattern, and re-sends statusChanged :running so the
  client properly tracks the loading→finished lifecycle.

Closes #400

🤖 Generated with [eca](https://eca.dev)

Co-Authored-By: eca <git@eca.dev>

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Fix `/resume` broken for OpenAI chats: handle nil reasoning text during replay, preserve prompt-id after chat replacement, and clear UI before replaying messages. #400
+
 ## 0.124.2
 
 - Fix OpenAI Responses API tool calls not executing when streaming response returns empty output, and fix spurious retries caused by stale tool-call state with Copilot encrypted IDs. #398

src/eca/features/chat.clj

@@ -186,17 +186,19 @@
                                        :name "web_search"
                                        :arguments {}
                                        :error false}}])
-    "reason" [{:role :assistant
-               :content {:type :reasonStarted
-                         :id (:id message-content)}}
-              {:role :assistant
-               :content {:type :reasonText
-                         :id (:id message-content)
-                         :text (:text message-content)}}
-              {:role :assistant
-               :content {:type :reasonFinished
-                         :id (:id message-content)
-                         :total-time-ms (:total-time-ms message-content)}}]
+    "reason" (cond-> [{:role :assistant
+                       :content {:type :reasonStarted
+                                 :id (:id message-content)}}]
+               (:text message-content)
+               (conj {:role :assistant
+                      :content {:type :reasonText
+                                :id (:id message-content)
+                                :text (:text message-content)}})
+               true
+               (conj {:role :assistant
+                      :content {:type :reasonFinished
+                                :id (:id message-content)
+                                :total-time-ms (:total-time-ms message-content)}}))
     "compact_marker" [{:role :system
                        :content {:type :text
                                  :text (if (:auto? message-content)
@@ -852,6 +854,9 @@
     (let [{:keys [type on-finished-side-effect] :as result} (f.commands/handle-command! command args chat-ctx)]
       (case type
         :chat-messages (do
+                         (when (:clear-before? result)
+                           (messenger/chat-cleared (:messenger chat-ctx) {:chat-id (:chat-id chat-ctx) :messages true})
+                           (messenger/chat-status-changed (:messenger chat-ctx) {:chat-id (:chat-id chat-ctx) :status :running}))
                          (doseq [[chat-id {:keys [messages title]}] (:chats result)]
                            (let [new-chat-ctx (assoc chat-ctx :chat-id chat-id)]
                              (send-chat-contents! messages new-chat-ctx)

src/eca/features/commands.clj

@@ -413,9 +413,11 @@
                    (let [chat (get chats selected-chat-id)]
                      (swap! db* assoc-in [:chats chat-id] chat)
                      (swap! db* update-in [:chats chat-id] dissoc :prompt-finished? :auto-compacting? :compacting?)
+                     (swap! db* assoc-in [:chats chat-id :prompt-id] (:prompt-id chat-ctx))
                      (swap! db* update-in [:chats] #(dissoc % selected-chat-id))
                      (db/update-workspaces-cache! @db* metrics)
                      {:type :chat-messages
+                      :clear-before? true
                       :chats {chat-id {:title (:title chat)
                                        :messages (concat [{:role "system" :content [{:type :text :text (str "Resuming chat: " selected-chat-id)}]}]
                                                          (:messages chat))}}})))