Release flow only cleans on prep

In my experimentation with bb tasks I had moved clean to task only code
and accidentally applied to every release step.

Author: lread

bb.edn

@@ -46,11 +46,7 @@
                :task lint/-main}
 
          clean {:doc "delete generated/cached build work"
-                :task (when (no-args-check)
-                        (doseq [dir ["target" ".cpcache"]]
-                          (println "Deleting" dir)
-                          (when (fs/exists? dir)
-                            (fs/delete-tree dir))))}
+                :task clean/-main }
 
          test-unit {:doc "test-doc-block units tests under Clojure 1.10"
                     :task (when-let [clojure-version (requested-clojure-version)]
@@ -120,7 +116,4 @@
 
          ci-release {:doc "release task, use --help for args"
                      :requires [ci-release]
-                     :task (do
-                             (binding [*command-line-args* []]
-                               (run 'clean))
-                             (apply ci-release/-main *command-line-args*))}}}
+                     :task ci-release/-main}}}

script/ci_release.clj

@@ -5,7 +5,8 @@
 ;;
 
 (ns ci-release
-  (:require [clojure.edn :as edn]
+  (:require [clean]
+            [clojure.edn :as edn]
             [clojure.java.io :as io]
             [clojure.string :as string]
             [helper.main :as main]
@@ -184,16 +185,17 @@ Options
     (let [target-version-filename "target/target-version.txt"]
       (cond
         (get opts "prep")
-        (let [changelog-status (validate-changelog)
-              target-version (calculate-version)
-              last-version (last-release-tag)]
-          (status/line :detail "Last version released: %s" (or last-version "<none>"))
-          (status/line :detail "Target version:        %s" target-version)
-          (io/make-parents target-version-filename)
-          (spit target-version-filename target-version)
-          (update-user-guide! target-version)
-          (update-changelog! target-version last-version changelog-status)
-          (create-jar! target-version))
+        (do (clean/clean!)
+            (let [changelog-status (validate-changelog)
+                  target-version (calculate-version)
+                  last-version (last-release-tag)]
+              (status/line :detail "Last version released: %s" (or last-version "<none>"))
+              (status/line :detail "Target version:        %s" target-version)
+              (io/make-parents target-version-filename)
+              (spit target-version-filename target-version)
+              (update-user-guide! target-version)
+              (update-changelog! target-version last-version changelog-status)
+              (create-jar! target-version)))
 
         (get opts "deploy-remote")
         (deploy-jar!)

script/clean.clj

@@ -0,0 +1,19 @@
+#!/usr/bin/env bb
+
+(ns clean
+  (:require [babashka.fs :as fs]
+            [helper.main :as main]))
+
+(defn clean! []
+  (doseq [dir ["target" ".cpcache"]]
+    (println "Deleting" dir)
+    (when (fs/exists? dir)
+      (fs/delete-tree dir))))
+
+(defn -main [& args]
+  (when (main/doc-arg-opt args)
+    (clean!))
+  nil)
+
+(main/when-invoked-as-script
+ (apply -main *command-line-args*))