Avoid generating huge chat titles.

ericdallo · ericdallo · commit 833dd97fb53a · 2025-10-01T19:57:58.000-03:00
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -3,6 +3,7 @@
 ## Unreleased
 
 - Support "accept and remember" tool call per session and name.
+- Avoid generating huge chat titles.
 
 ## 0.62.1
 
diff --git a/src/eca/features/chat.clj b/src/eca/features/chat.clj
@@ -467,10 +467,13 @@
                             :config config
                             :tools []
                             :provider-auth provider-auth})]
-          (swap! db* assoc-in [:chats chat-id :title] title)
-          (send-content! chat-ctx :system (assoc-some
-                                           {:type :metadata}
-                                           :title title)))))
+          (let [title (-> title
+                          (subs 0 32)
+                          string/capitalize)]
+            (swap! db* assoc-in [:chats chat-id :title] title)
+            (send-content! chat-ctx :system (assoc-some
+                                              {:type :metadata}
+                                              :title title))))))
     (send-content! chat-ctx :system {:type :progress
                                      :state :running
                                      :text "Waiting model"})
