Add new /prompt-show command

Author: ericdallo

CHANGELOG.md

@@ -3,6 +3,7 @@
 ## Unreleased
 
 - Add support for auto read `AGENT.md` from workspace root and global eca dir, considering as context for chat prompts.
+- Add `/prompt-show` command to show ECA prompt sent to LLM.
 
 ## 0.26.3
 

src/eca/features/chat.clj

@@ -100,18 +100,14 @@
 
 (defn ^:private prompt-messages!
   [user-messages
-   {:keys [db* config chat-id contexts behavior model] :as chat-ctx}]
+   {:keys [db* config chat-id contexts behavior model instructions] :as chat-ctx}]
   (when (seq contexts)
     (send-content! chat-ctx :system {:type :progress
                                      :state :running
                                      :text "Parsing given context"}))
   (let [db @db*
         all-models (models/all)
         provider (get-in all-models [model :provider])
-        rules (f.rules/all config (:workspace-folders db))
-        refined-contexts (f.context/raw-contexts->refined contexts db config)
-        repo-map* (delay (f.index/repo-map db {:as-string? true}))
-        instructions (f.prompt/build-instructions refined-contexts rules repo-map* (or behavior (:chat-default-behavior db)) config)
         past-messages (get-in db [:chats chat-id :messages] [])
         all-tools (f.tools/all-tools behavior @db* config)
         received-msgs* (atom "")
@@ -321,8 +317,8 @@
               :external-id (:external-id message-content)
               :text (:text message-content)}))
 
-(defn ^:private handle-command! [{:keys [command args]} {:keys [chat-id db* config model] :as chat-ctx}]
-  (let [{:keys [type] :as result} (f.commands/handle-command! command args chat-id model config db*)]
+(defn ^:private handle-command! [{:keys [command args]} {:keys [chat-id db* config model instructions] :as chat-ctx}]
+  (let [{:keys [type] :as result} (f.commands/handle-command! command args chat-id model instructions config db*)]
     (case type
       :chat-messages (do
                        (doseq [[chat-id messages] (:chats result)]
@@ -344,11 +340,17 @@
                     (let [new-id (str (random-uuid))]
                       (swap! db* assoc-in [:chats new-id] {:id new-id})
                       new-id))
-        chosen-model (or model (default-model @db* config))
+        db @db*
+        chosen-model (or model (default-model db config))
+        rules (f.rules/all config (:workspace-folders db))
+        refined-contexts (f.context/raw-contexts->refined contexts db config)
+        repo-map* (delay (f.index/repo-map db {:as-string? true}))
+        instructions (f.prompt/build-instructions refined-contexts rules repo-map* (or behavior (:chat-default-behavior db)) config)
         chat-ctx {:chat-id chat-id
                   :request-id request-id
                   :contexts contexts
                   :behavior behavior
+                  :instructions instructions
                   :model chosen-model
                   :db* db*
                   :config config

src/eca/features/commands.clj

@@ -71,11 +71,15 @@
                                     (dissoc :server))))
         eca-commands [{:name "costs"
                        :type :native
-                       :description "Show the total costs of the current chat session."
+                       :description "Total costs of the current chat session."
                        :arguments []}
                       {:name "repo-map-show"
                        :type :native
-                       :description "Show the actual repoMap of current session."
+                       :description "Actual repoMap of current session."
+                       :arguments []}
+                      {:name "prompt-show"
+                       :type :native
+                       :description "Prompt sent to LLM as system instructions."
                        :arguments []}
                       {:name "resume"
                        :type :native
@@ -100,7 +104,7 @@
               raw-content
               (map-indexed vector args)))))
 
-(defn handle-command! [command args chat-id model config db*]
+(defn handle-command! [command args chat-id model instructions config db*]
   (let [db @db*
         custom-commands (custom-commands config (:workspace-folders db))]
     (case command
@@ -119,6 +123,8 @@
                  :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})}]}]}}
+      "prompt-show" {:type :chat-messages
+                     :chats {chat-id [{:role "system" :content [{:type :text :text instructions}]}]}}
 
       "resume" (let [chats (:chats db)]
                  ;; Override current chat with first chat