Fix plugin installed list

Author: ericdallo

src/eca/features/commands.clj

@@ -430,8 +430,9 @@
                                             (str s "**" source-name "** (`" (:source-url (first source-plugins)) "`)\n"
                                                  (reduce
                                                   (fn [s2 {:keys [name description installed?]}]
-                                                    (str s2 "- " name
-                                                         (when installed? " ✅")
+                                                    (str s2 "- "
+                                                         (when installed? "✅ ")
+                                                         name
                                                          (when description (str " — " description))
                                                          "\n"))
                                                   ""

src/eca/features/plugins.clj

@@ -23,7 +23,7 @@
 
 (defn ^:private sanitize-source-url
   "Converts a git URL into a human-readable directory name.
-   e.g. 'https://github.com/nubank/ai-agents-plugins.git' -> 'github.com-nubank-ai-agents-plugins'"
+   e.g. 'https://github.com/my-org/my-plugins.git' -> 'github.com-my-org-my-plugins'"
   ^String [^String url]
   (-> url
       (string/replace #"^https?://" "")
@@ -327,7 +327,7 @@
    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 []))
+    (let [installed-set (set (get plugins-config "install" []))
           sources (parse-sources plugins-config)]
       (doall
        (for [[source-name source-url] sources
@@ -375,7 +375,7 @@
   [plugins-config ^String input]
   (let [{:keys [plugin-name marketplace]} (parse-plugin-arg input)
         sources (parse-sources plugins-config)
-        current-install (set (get plugins-config :install []))]
+        current-install (set (get plugins-config "install" []))]
     (cond
       (empty? sources)
       {:status :error
@@ -400,7 +400,7 @@
   "Uninstalls a plugin by removing it from the global config install list.
    Returns {:status :ok/:error, :message ...}."
   [plugins-config ^String plugin-name]
-  (let [current-install (set (get plugins-config :install []))]
+  (let [current-install (set (get plugins-config "install" []))]
     (if (contains? current-install plugin-name)
       (let [new-install (vec (sort (disj current-install plugin-name)))]
         (config/update-global-config! {:plugins {:install new-install}})

test/eca/features/agents_test.clj

@@ -61,7 +61,7 @@
     (let [md (str "---\n"
                   "description: You sleep one second when asked\n"
                   "mode: subagent\n"
-                  "model: nubank-anthropic/sonnet-4.5\n"
+                  "model: my-org-anthropic/sonnet-4.5\n"
                   "steps: 5\n"
                   "tools:\n"
                   "  byDefault: ask\n"
@@ -76,7 +76,7 @@
           config (#'agents/md->agent-config parsed)]
       (is (match? {:description "You sleep one second when asked"
                    :mode "subagent"
-                   :defaultModel "nubank-anthropic/sonnet-4.5"
+                   :defaultModel "my-org-anthropic/sonnet-4.5"
                    :maxSteps 5
                    :systemPrompt "You should run sleep 1 and return \"I sleeped 1 second\""
                    :toolCall {:approval {:byDefault "ask"

test/eca/features/plugins_test.clj

@@ -9,11 +9,11 @@
 
 (deftest sanitize-source-url-test
   (testing "HTTPS URL"
-    (is (= "github.com-nubank-ai-agents-plugins"
-           (#'plugins/sanitize-source-url "https://github.com/nubank/ai-agents-plugins.git"))))
+    (is (= "github.com-my-org-my-plugins"
+           (#'plugins/sanitize-source-url "https://github.com/my-org/my-plugins.git"))))
   (testing "SSH URL"
-    (is (= "github.com-nubank-ai-agents-plugins"
-           (#'plugins/sanitize-source-url "git@github.com:nubank/ai-agents-plugins.git"))))
+    (is (= "github.com-my-org-my-plugins"
+           (#'plugins/sanitize-source-url "git@github.com:my-org/my-plugins.git"))))
   (testing "GitLab URL"
     (is (= "gitlab.com-org-repo"
            (#'plugins/sanitize-source-url "https://gitlab.com/org/repo.git")))))
@@ -135,15 +135,15 @@
 
 (deftest parse-sources-test
   (testing "extracts source entries, filtering install"
-    (let [config {:nubank {:source "https://github.com/nubank/ai-agents-plugins.git"}
-                  :local {:source "/home/user/plugins"}
-                  :install ["plugin-a" "plugin-b"]}]
-      (is (match? (m/in-any-order [["nubank" "https://github.com/nubank/ai-agents-plugins.git"]
+    (let [config {"my-org" {:source "https://github.com/my-org/my-plugins.git"}
+                  "local" {:source "/home/user/plugins"}
+                  "install" ["plugin-a" "plugin-b"]}]
+      (is (match? (m/in-any-order [["my-org" "https://github.com/my-org/my-plugins.git"]
                                    ["local" "/home/user/plugins"]])
                   (#'plugins/parse-sources config)))))
 
   (testing "returns empty for no sources"
-    (is (empty? (#'plugins/parse-sources {:install ["plugin-a"]})))))
+    (is (empty? (#'plugins/parse-sources {"install" ["plugin-a"]})))))
 
 (deftest resolve-all!-test
   (let [tmp-dir (fs/create-temp-dir)]
@@ -235,20 +235,20 @@
     (let [updated (atom nil)]
       (with-redefs [eca.config/update-global-config! (fn [c] (reset! updated c))]
         (let [result (plugins/uninstall-plugin!
-                      {:install ["alpha" "beta" "gamma"]}
+                      {"install" ["alpha" "beta" "gamma"]}
                       "beta")]
           (is (= :ok (:status result)))
           (is (= ["alpha" "gamma"] (get-in @updated [:plugins :install])))))))
 
   (testing "returns error when plugin is not installed"
     (let [result (plugins/uninstall-plugin!
-                  {:install ["alpha"]}
+                  {"install" ["alpha"]}
                   "beta")]
       (is (= :error (:status result)))
       (is (re-find #"not installed" (:message result)))))
 
   (testing "returns error when install list is empty"
     (let [result (plugins/uninstall-plugin!
-                  {:install []}
+                  {"install" []}
                   "beta")]
       (is (= :error (:status result))))))