Improve /compact UI

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,7 @@
 
 ## Unreleased
 
+- Improve `/compact` UI in chat after running, cleaning chat and showing the new summary.
 - Better config values dynamic string parse:
     - Support `${classapath:path/to/eca/classpath/file}` in dynamic string parse.
     - Support `${netrc:api.foo.com}` in dynamic string parse to parse keys. #200

src/eca/features/commands.clj

@@ -220,6 +220,19 @@
                                               (swap! db* assoc-in [:chats chat-id :total-output-tokens] nil)
                                               (swap! db* assoc-in [:chats chat-id :total-input-cache-creation-tokens] nil)
                                               (swap! db* assoc-in [:chats chat-id :total-input-cache-read-tokens] nil)
+                                              (messenger/chat-cleared messenger {:chat-id chat-id :messages true})
+                                              (messenger/chat-content-received
+                                               messenger
+                                               {:chat-id chat-id
+                                                :role :system
+                                                :content {:type :text
+                                                          :text "Compacted chat to:\n\n"}})
+                                              (messenger/chat-content-received
+                                               messenger
+                                               {:chat-id chat-id
+                                                :role :assistant
+                                                :content {:type :text
+                                                          :text (get-in @db* [:chats chat-id :last-summary])}})
                                               (when-let [usage (shared/usage-msg->usage {:input-tokens 0 :output-tokens 0} full-model {:chat-id chat-id :db* db*})]
                                                 (messenger/chat-content-received
                                                  messenger