Add workspaces to /doctor

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Add workspaces to `/doctor`
+
 ## 0.78.1
 
 - Fix regression: completion broken after rewrite feature API changes.

src/eca/features/commands.clj

@@ -145,6 +145,8 @@
                ""
                (str "Server cmd: " (.orElse (.commandLine (.info (ProcessHandle/current))) nil))
                ""
+               (str "Workspaces: " (shared/workspaces-as-str db))
+               ""
                (str "Default model: " model)
                ""
                (str "Login providers: " (reduce

src/eca/features/prompt.clj

@@ -132,7 +132,7 @@
 (defn init-prompt [db]
   (replace-vars
    (init-prompt-template)
-   {:workspaceFolders (string/join ", " (map (comp shared/uri->filename :uri) (:workspace-folders db)))}))
+   {:workspaceFolders (shared/workspaces-as-str db)}))
 
 (defn title-prompt []
   (title-prompt-template))

src/eca/metrics.clj

@@ -1,6 +1,5 @@
 (ns eca.metrics
   (:require
-   [clojure.string :as string]
    [eca.config :as config]
    [eca.logger :as logger]
    [eca.shared :as shared]))
@@ -14,8 +13,7 @@
                   (fn [_]
                     {:client-name (:name (:client-info @db*))
                      :client-version (:version (:client-info @db*))
-                     :workspace-roots (string/join ", " (map (comp shared/uri->filename :uri)
-                                                             (:workspace-folders @db*)))})))
+                     :workspace-roots (shared/workspaces-as-str @db*)})))
 
 (defprotocol IMetrics
   (start! [this])

src/eca/shared.clj

@@ -45,6 +45,9 @@
                                      string/lower-case))
              (string/replace ":" "%3A")))))
 
+(defn workspaces-as-str [db]
+  (string/join ", " (map (comp uri->filename :uri) (:workspace-folders db))))
+
 (defn update-last [coll f]
   (if (seq coll)
     (update coll (dec (count coll)) f)