Add /plugins-list command

Author: ericdallo

CHANGELOG.md

@@ -3,8 +3,9 @@
 ## Unreleased
 
 - Fix MCP server initialization crash (`String cannot be cast to IPersistentCollection`) when OAuth metadata endpoint returns a non-JSON or error response.
-- Add `plugins` config for loading external configuration from git repos or local paths.
+- Add `plugins` config for loading external configuration from git repos or local paths. #349
   - Plugins can provide skills, MCP servers, agents, commands, hooks, rules, and arbitrary config overrides.
+  - Add commands `/plugins-list` and `/plugins-add`.
 
 ## 0.110.3
 

src/eca/features/commands.clj

@@ -8,6 +8,7 @@
    [eca.db :as db]
    [eca.features.index :as f.index]
    [eca.features.login :as f.login]
+   [eca.features.plugins :as f.plugins]
    [eca.features.prompt :as f.prompt]
    [eca.features.skills :as f.skills]
    [eca.features.tools.mcp :as f.mcp]
@@ -135,6 +136,10 @@
                       {:name "subagents"
                        :type :native
                        :description "List available subagents and their configuration."
+                       :arguments []}
+                      {:name "plugins-list"
+                       :type :native
+                       :description "List available plugins from configured marketplaces."
                        :arguments []}]
         custom-cmds (map (fn [custom]
                            {:name (:name custom)
@@ -408,6 +413,27 @@
       "subagents" (let [msg (subagents-msg config)]
                     {:type :chat-messages
                      :chats {chat-id {:messages [{:role "system" :content [{:type :text :text msg}]}]}}})
+      "plugins-list" (let [plugins-config (:plugins config)
+                           plugins (f.plugins/list-marketplace-plugins plugins-config)
+                           msg (if (seq plugins)
+                                 (let [by-source (group-by :source-name plugins)]
+                                   (reduce-kv
+                                    (fn [s source-name source-plugins]
+                                      (str s "**" source-name "** (`" (:source-url (first source-plugins)) "`)\n"
+                                           (reduce
+                                            (fn [s2 {:keys [name description installed?]}]
+                                              (str s2 "- " name
+                                                   (when installed? " ✅")
+                                                   (when description (str " — " description))
+                                                   "\n"))
+                                            ""
+                                            source-plugins)
+                                           "\n"))
+                                    "Plugins available:\n\n"
+                                    by-source))
+                                 "No plugin marketplaces configured. Add plugin sources to your config under the `plugins` key.")]
+                       {:type :chat-messages
+                        :chats {chat-id {:messages [{:role "system" :content [{:type :text :text msg}]}]}}})
 
       ;; else check if a custom command or skill
       (if-let [custom-command-prompt (get-custom-command command args custom-cmds)]

src/eca/features/plugins.clj

@@ -294,7 +294,7 @@
   [plugins-config]
   (if (or (nil? plugins-config) (empty? plugins-config))
     empty-result
-    (let [auto-install (get plugins-config :install [])
+    (let [auto-install (get plugins-config "install" [])
           sources (parse-sources plugins-config)]
       (if (empty? auto-install)
         (do (logger/debug logger-tag "No plugins in install, skipping")
@@ -320,3 +320,23 @@
                  (do (logger/info logger-tag "Loading plugin:" plugin-name "from" source-name)
                      (discover-components plugin-dir))))]
           (merge-components components))))))
+
+(defn list-marketplace-plugins
+  "Lists all available plugins from configured marketplace sources.
+   Returns a seq of {:name :source-name :source-url :description :installed?} maps."
+  [plugins-config]
+  (when (seq plugins-config)
+    (let [installed-set (set (get plugins-config :install []))
+          sources (parse-sources plugins-config)]
+      (doall
+       (for [[source-name source-url] sources
+             :let [source-dir (resolve-source! source-url)]
+             :when source-dir
+             :let [marketplace (read-marketplace source-dir)]
+             :when marketplace
+             plugin marketplace]
+         {:name (:name plugin)
+          :description (:description plugin)
+          :source-name source-name
+          :source-url source-url
+          :installed? (contains? installed-set (:name plugin))})))))