Test unpublish

.gitignore

@@ -1,3 +1,4 @@
 firebase-key.json
 node_modules
-checkout
+checkout/*
+!checkout/.keep

src/community_extensions/build.clj

@@ -20,8 +20,8 @@
 
 (defn -main [& {:as args-map}]
   (doseq [[mode ext-id data] (core/diff args-map)]
-    (cond
-      (= "A" mode) (build ext-id data)
-      (= "M" mode) (build ext-id data)
-      (str/starts-with? "R" mode) :nop))
+    (case mode
+      "A" (build ext-id data)
+      "M" (build ext-id data)
+      nil))
   (shutdown-agents))

src/community_extensions/core.clj

@@ -24,7 +24,7 @@
           :when (str/starts-with? path "extensions/")
           :let [[_ user repo] (re-matches #"extensions/([^/]+)/([^/]+)\.json" path)
                 ext-id        (str user "+" repo)
-                data          (-> (io/file path)
-                                (slurp)
-                                (json/parse-string))]]
+                file          (io/file path)
+                data          (when (.exists file)
+                                (json/parse-string (slurp file)))]]
       [mode ext-id data])))

src/community_extensions/publish.clj

@@ -111,9 +111,9 @@
                       (.build)
                       (.getService))]
     (doseq [[mode ext-id data] (core/diff args-map)]
-      (cond
-        (= "A" mode) (publish db storage ext-id data)
-        (= "M" mode) (publish db storage ext-id data)
-        (str/starts-with? "R" mode) (unpublish db ext-id)))
-
+      (case mode
+        "A" (publish db storage ext-id data)
+        "M" (publish db storage ext-id data)
+        "D" (unpublish db ext-id)
+        nil))  
     (shutdown-agents)))