allow non workspace chat

Author: ericdallo

CHANGELOG.md

@@ -4,6 +4,7 @@
 
 - Add support for global rules.
 - Fix origin field of tool calls.
+- Allow chat communication with no workspace opened.
 
 ## 0.3.1
 

docs/protocol.md

@@ -133,7 +133,7 @@ interface ClientCapabilities {
     }
 }
 
-type ChatBehavior = 'agent' | 'ask';
+type ChatBehavior = 'agent' | 'chat';
 ```
 
 _Response:_
@@ -149,7 +149,7 @@ interface InitializeResult {
     /*
      * Default model used by server.
      */
-    defaultModel: ChatModel;
+    chatDefaultModel: ChatModel;
 
     /*
      * The chat behaviors available.

src/eca/features/tools/mcp.clj

@@ -3,6 +3,7 @@
    [cheshire.core :as json]
    [clojure.java.io :as io]
    [clojure.string :as string]
+   [eca.config :as config]
    [eca.logger :as logger]
    [eca.shared :as shared])
   (:import
@@ -45,11 +46,16 @@
         b (if env
             (.env b (update-keys env name))
             b)
-        pb-init-args []]
+        pb-init-args []
+        ;; TODO we are hard coding the first workspace
+        work-dir (or (some-> workspaces
+                             first
+                             :uri
+                             shared/uri->filename)
+                     (config/get-property "user.home"))]
     (proxy [StdioClientTransport] [(.build b)]
       (getProcessBuilder [] (-> (ProcessBuilder. ^List pb-init-args)
-                                ;; TODO we are hard coding the first workspace
-                                (.directory (io/file (shared/uri->filename (:uri (first workspaces))))))))))
+                                (.directory (io/file work-dir)))))))
 
 (defn ^:private ->client ^McpSyncClient [transport config]
   (-> (McpClient/sync transport)

src/eca/features/tools/shell.clj

@@ -3,6 +3,7 @@
    [babashka.fs :as fs]
    [clojure.java.shell :as shell]
    [clojure.string :as string]
+   [eca.config :as config]
    [eca.features.tools.util :as tools.util]
    [eca.logger :as logger]
    [eca.shared :as shared]))
@@ -21,7 +22,11 @@
                                                  ["commmand" (constantly (not (contains? exclude-cmds (first command-args)))) (format "Cannot run command '%s' because it is excluded by eca config."
                                                                                                                                       (first command-args))]])
         (let [work-dir (or (some-> user-work-dir fs/canonicalize str)
-                           (shared/uri->filename (:uri (first (:workspace-folders db)))))
+                           (some-> (:workspace-folders db)
+                                   first
+                                   :uri
+                                   shared/uri->filename)
+                           (config/get-property "user.home"))
               command-and-opts (concat [] command-args [:dir work-dir])
               _ (logger/debug logger-tag "Running command:" command-and-opts)
               result (try