Fix some commands not working.

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Fix some commands not working.
+
 ## 0.24.1
 
 - Fix build

docs/features.md

@@ -50,6 +50,7 @@ The built-in commands are:
 
 `/costs`: shows costs about current session.
 `/repo-map-show`: shows the current repoMap context of the session.
+`/resume`: resume a chat from previous session of this workspace folder.
 
 #### Custom commands
 

src/eca/db.clj

@@ -96,7 +96,15 @@
                  (merge state-db
                         (select-keys global-cache [:chats]))))))
 
-(defn update-workspaces-cache! [db]
+(defn ^:private normalize-db-for-write [db]
   (-> (select-keys db [:chats])
+      (update :chats (fn [chats]
+                       (into {}
+                             (map (fn [[k v]]
+                                    [k (dissoc v :tool-calls)]))
+                             chats)))))
+
+(defn update-workspaces-cache! [db]
+  (-> (normalize-db-for-write db)
       (assoc :version version)
       (upsert-cache! (transit-global-db-file (:workspace-folders db)))))

src/eca/features/chat.clj

@@ -295,6 +295,7 @@
 (defn ^:private message-content->chat-content [role message-content]
   (case role
     ("user"
+     "system"
      "assistant") (reduce
                    (fn [m content]
                      (case (:type content)

src/eca/features/commands.clj

@@ -116,9 +116,9 @@
                                     (str "Total output tokens: " total-output-tokens)
                                     (str "Total cost: $" (shared/tokens->cost total-input-tokens total-input-cache-creation-tokens total-input-cache-read-tokens total-output-tokens model db)))]
                 {:type :chat-messages
-                 :chats {chat-id [{:role :system :content [{:type :text :text text}]}]}})
+                 :chats {chat-id [{:role "system" :content [{:type :text :text text}]}]}})
       "repo-map-show" {:type :chat-messages
-                       :chats {chat-id [{:role :system :content [{:type :text :text (f.index/repo-map db {:as-string? true})}]}]}}
+                       :chats {chat-id [{:role "system" :content [{:type :text :text (f.index/repo-map db {:as-string? true})}]}]}}
 
       "resume" (let [chats (:chats db)]
                  ;; Override current chat with first chat