Support compactPromptFile config

Author: ericdallo

docs/configuration.md

@@ -419,6 +419,7 @@ ECA allows to totally customize the prompt sent to LLM via the `behavior` config
         }};
         defaultBehavior?: string;
         welcomeMessage?: string;
+        compactPromptFile?: string;
         index?: {
             ignoreFiles: [{
                 type: string;
@@ -480,8 +481,9 @@ ECA allows to totally customize the prompt sent to LLM via the `behavior` config
                                                                                   ".*-c\\s+[\"'].*open.*[\"']w[\"'].*",
                                                                                   ".*bash.*-c.*>.*"]}}}}}}
       }
-      "defaultBehavior": "agent"
-      "welcomeMessage" : "Welcome to ECA!\n\nType '/' for commands\n\n"
+      "defaultBehavior": "agent",
+      "welcomeMessage" : "Welcome to ECA!\n\nType '/' for commands\n\n",
+      "compactPromptFile": "prompts/compact.md",
       "index" : {
         "ignoreFiles" : [ {
           "type" : "gitignore"

src/eca/config.clj

@@ -90,6 +90,7 @@
    :lspTimeoutSeconds 30
    :mcpServers {}
    :welcomeMessage "Welcome to ECA!\n\nType '/' for commands\n\n"
+   :compactPromptFile "prompts/compact.md"
    :index {:ignoreFiles [{:type :gitignore}]
            :repoMap {:maxTotalEntries 800
                      :maxEntriesPerDir 50}}})

src/eca/features/commands.clj

@@ -190,7 +190,7 @@
                                                   :role :system
                                                   :content (merge {:type :usage}
                                                                   usage)})))
-                   :prompt (f.prompt/compact-prompt (string/join " " args))})
+                   :prompt (f.prompt/compact-prompt (string/join " " args) config)})
       "login" (do (f.login/handle-step {:message (or (first args) "")
                                         :chat-id chat-id}
                                        db*

src/eca/features/prompt.clj

@@ -1,5 +1,6 @@
 (ns eca.features.prompt
   (:require
+   [babashka.fs :as fs]
    [clojure.java.io :as io]
    [clojure.string :as string]
    [eca.features.tools.mcp :as f.mcp]
@@ -21,7 +22,11 @@
 (defn ^:private init-prompt-template* [] (slurp (io/resource "prompts/init.md")))
 (def ^:private init-prompt-template (memoize init-prompt-template*))
 
-(defn ^:private compact-prompt-template* [] (slurp (io/resource "prompts/compact.md")))
+(defn ^:private compact-prompt-template* [file-path]
+  (if (fs/relative? file-path)
+    (slurp (io/resource file-path))
+    (slurp (io/file file-path))))
+
 (def ^:private compact-prompt-template (memoize compact-prompt-template*))
 
 (defn ^:private replace-vars [s vars]
@@ -87,9 +92,9 @@
    (init-prompt-template)
    {:workspaceFolders (string/join ", " (map (comp shared/uri->filename :uri) (:workspace-folders db)))}))
 
-(defn compact-prompt [additional-input]
+(defn compact-prompt [additional-input config]
   (replace-vars
-   (compact-prompt-template)
+   (compact-prompt-template (:compactPromptFile config))
    {:addionalUserInput (if additional-input
                          (format "You MUST respect this user input in the summarization: %s." additional-input)
                          "")}))