[patch] ✨ Add --dry-run option

Signed-off-by: Rintaro Okamura <[email protected]>

Author: Rintaro Okamura

src/gitwerk/command/semver_auto.clj

@@ -7,7 +7,7 @@
    [gitwerk.service.semver-auto :as semver-auto]))
 
 (defn semver-auto
-  [repodir]
+  [repodir dry-run?]
   (let [repo (git/repo repodir)
         message (-> repo
                     (git/latest-log)
@@ -17,13 +17,15 @@
                     (semver/latest-tag))
                 (semver/default-version-str))
         new-tag (semver-auto/semver-auto message tag)]
-    (when (not (= tag new-tag))
-      (git/tag repo new-tag)
+    (when-not (= tag new-tag)
+      (when-not dry-run?
+        (git/tag repo new-tag))
       {:old tag
        :new new-tag})))
 
-(defn run [ctx _]
-  (let [res (semver-auto ".")]
+(defn run [{:keys [options] :as ctx} _]
+  (let [{:keys [dry-run?]} options
+        res (semver-auto "." dry-run?)]
     (if res
       {:status 0
        :console-out

src/gitwerk/core.clj

@@ -28,6 +28,7 @@
   [["-f" "--file PATH" "config"
     :id :config-filename
     :default "config.edn"]
+   [nil "--dry-run" :id :dry-run?]
    ["-e" "--edn" :id :edn?]
    ["-d" "--debug" :id :debug?]
    ["-h" "--help" :id :help?]])