Fix system prompt to mention the user workspace roots.

Author: ericdallo

CHANGELOG.md

@@ -4,6 +4,7 @@
 
 - Fix absolute paths being interpreted as commands. #199
 - Remove non used sync models code during initialize. #100
+- Fix system prompt to mention the user workspace roots.
 
 ## 0.78.4
 

resources/prompts/agent_behavior.md

@@ -1,6 +1,7 @@
 You are ECA (Editor Code Assistant), an AI coding assistant that operates on an editor.
 
 You are pair programming with a USER to solve their coding task. Each time the USER sends a message, we may automatically attach some context information about their current state, such as passed contexts, rules defined by USER, project structure, and more. This information may or may not be relevant to the coding task, it is up for you to decide.
+The user workspace root(s) are: {workspaceRoots}
 
 You are an agent - please keep going until the user's query is completely resolved, before ending your turn and yielding back to the user. Only terminate your turn when you are sure that the problem is solved. Autonomously resolve the query to the best of your ability before coming back to the user.
 

src/eca/features/chat.clj

@@ -973,7 +973,8 @@
                                                        rules
                                                        repo-map*
                                                        selected-behavior
-                                                       config)
+                                                       config
+                                                       db)
         image-contents (->> refined-contexts
                             (filter #(= :image (:type %))))
         expanded-prompt-contexts (when-let [contexts-str (some-> (f.context/contexts-str-from-prompt message db)

src/eca/features/prompt.clj

@@ -39,25 +39,27 @@
    s
    vars))
 
-(defn ^:private eca-chat-prompt [behavior config]
+(defn ^:private eca-chat-prompt [behavior config db]
   (let [behavior-config (get-in config [:behavior behavior])
         ;; Use systemPromptFile from behavior config, or fall back to built-in
         prompt-file (or (:systemPromptFile behavior-config)
                         ;; For built-in behaviors without explicit config
                         (when (#{"agent" "plan"} behavior)
                           (str "prompts/" behavior "_behavior.md")))]
-    (cond
-      ;; Custom behavior with absolute path
-      (and prompt-file (string/starts-with? prompt-file "/"))
-      (slurp prompt-file)
+    (replace-vars
+      (cond
+        ;; Custom behavior with absolute path
+        (and prompt-file (string/starts-with? prompt-file "/"))
+        (slurp prompt-file)
 
-      ;; Built-in or resource path
-      prompt-file
-      (load-builtin-prompt (some-> prompt-file (string/replace-first #"prompts/" "")))
+        ;; Built-in or resource path
+        prompt-file
+        (load-builtin-prompt (some-> prompt-file (string/replace-first #"prompts/" "")))
 
-      ;; Fallback for unknown behavior
-      :else
-      (load-builtin-prompt "agent_behavior.md"))))
+        ;; Fallback for unknown behavior
+        :else
+        (load-builtin-prompt "agent_behavior.md"))
+      {:workspaceRoots (shared/workspaces-as-str db)})))
 
 (defn contexts-str [refined-contexts repo-map*]
   (multi-str
@@ -87,9 +89,9 @@
     refined-contexts)
    "</contexts>"))
 
-(defn build-chat-instructions [refined-contexts rules repo-map* behavior config]
+(defn build-chat-instructions [refined-contexts rules repo-map* behavior config db]
   (multi-str
-   (eca-chat-prompt behavior config)
+   (eca-chat-prompt behavior config db)
    (when (seq rules)
      ["<rules description=\"Rules defined by user\">\n"
       (reduce

test/eca/features/prompt_test.clj

@@ -2,7 +2,8 @@
   (:require
    [clojure.string :as string]
    [clojure.test :refer [deftest is testing]]
-   [eca.features.prompt :as prompt]))
+   [eca.features.prompt :as prompt]
+   [eca.test-helper :as h]))
 
 (deftest build-instructions-test
   (testing "Should create instructions with rules, contexts, and behavior"
@@ -14,7 +15,7 @@
                  {:name "rule2" :content "Second rule"}]
           fake-repo-map (delay "TREE")
           behavior "agent"
-          result (prompt/build-chat-instructions refined-contexts rules fake-repo-map behavior {})]
+          result (prompt/build-chat-instructions refined-contexts rules fake-repo-map behavior {} (h/db))]
       (is (string/includes? result "You are ECA"))
       (is (string/includes? result "<rules description=\"Rules defined by user\">"))
       (is (string/includes? result "<rule name=\"rule1\">First rule</rule>"))
@@ -35,7 +36,7 @@
                  {:name "rule2" :content "Second rule"}]
           fake-repo-map (delay "TREE")
           behavior "plan"
-          result (prompt/build-chat-instructions refined-contexts rules fake-repo-map behavior {})]
+          result (prompt/build-chat-instructions refined-contexts rules fake-repo-map behavior {} (h/db))]
       (is (string/includes? result "You are ECA"))
       (is (string/includes? result "<rules description=\"Rules defined by user\">"))
       (is (string/includes? result "<rule name=\"rule1\">First rule</rule>"))