fix the script

Author: escherize

script/update_or_create_pr.clj

@@ -8,45 +8,61 @@
   (println "Usage: script/update_or_create_pr.clj branchname")
   (System/exit 1))
 
-(def source-branch (first *command-line-args*))
-(def target-branch (str "update-" source-branch))
+(def artifact-dirs ["_docs" "_site/docs"]) ;; Directories to copy
 
-(when-not source-branch (usage))
+(defn existing-pr? [target-branch]
+  (let [pr-json
+        (slurp
+          (-> (str "https://api.github.com/repos/metabase/docs.metabase.github.io/pulls?head=metabase:" target-branch)
+              (shell {:out :string :continue true})))]
+    (some #(when (= target-branch (% "title")) (% "number"))
+          (json/parse-string pr-json))))
 
-(def artifact-dirs ["_docs" "_site/docs"]) ;; Directories to copy
+(defn -main [& args]
+  (let [source-branch (or (first args) (usage))
+        target-branch (str "update-" source-branch)
+        _ (println "Swithcing to target branch.")
+        _ (shell "git" "checkout" "-B" target-branch)
+        _ (doseq [ad artifact-dirs]
+            (println "Adding" ad "...")
+            (shell "git" "add" ad))
+        {:keys [exit]} (shell {:continue true} "git" "diff" "--cached" "--quiet")]
+
+    (if (zero? exit)
+      (println "→ No changes to commit.")
+      (do
+        (println "→ Changes detected, committing...")
+        (shell "git" "commit" "-m" (str "[auto] adding content to " target-branch))
+        (shell "git" "push" "--force" "origin" target-branch)
+        (println "→ Branch updated successfully.")))
+
+    (println "→ Checking for existing PR...")
+
+    (if (existing-pr?)
+      (println "✓ PR already exists: #" existing-pr?)
+      (do
+        (println "→ Creating new PR...")
+        (shell "gh" "pr" "create"
+               "--repo" "metabase/docs.metabase.github.io"
+               "--title" target-branch
+               "--body" (str "updated: " (pr-str artifact-dirs))
+               "--head" target-branch)))))
+
+(when (= *file* (System/getProperty "babashka.file"))
+  (apply -main *command-line-args*))
+
+(defmacro the-env []
+  (into {} (for [k (keys &env)]
+             [(name k) k])))
 
-(doseq [ad artifact-dirs]
-  (println "Adding" ad "...")
-  (shell "git" "add" ad))
-
-(let [{:keys [exit]} (shell
-                       {:continue true}
-                       "git" "diff" "--cached" "--quiet")]
-  (if (zero? exit)
-    (println "→ No changes to commit.")
-    (do
-      (println "→ Changes detected, committing...")
-      (shell "git" "commit" "-m" target-branch)
-      (shell "git" "push" "--force" "origin" target-branch)
-      (println "→ Branch updated successfully."))))
-
-(println "→ Checking for existing PR...")
-
-(def pr-json
-  (slurp
-    (-> (str "https://api.github.com/repos/metabase/docs.metabase.github.io/pulls?head=metabase:" target-branch)
-        (shell {:out :string :continue true}))))
-
-(def existing-pr?
-  (some #(when (= target-branch (% "title")) (% "number"))
-        (json/parse-string pr-json)))
-
-(if existing-pr?
-  (println "✓ PR already exists: #" existing-pr)
-  (do
-    (println "→ Creating new PR...")
-    (shell "gh" "pr" "create"
-           "--repo" "metabase/docs.metabase.github.io"
-           "--title" target-branch
-           "--body" (str "updated: " (pr-str artifact-dirs))
-           "--head" target-branch)))
+(defmacro nocommit-repl []
+  `(clojure.main/repl
+     :init   (fn []
+               (remove-ns '~'temp)
+               (create-ns '~'temp)
+               (doseq [[binding# value#] (the-env)]
+                 (intern '~'temp (symbol binding#) value#)))
+     :prompt (fn [] (printf "paused.%s=> " (peek (clojure.string/split (str *ns*) #"\."))))
+     :eval (fn [f#] (binding [clojure.test/*test-out* *out*] (eval f#)))
+     :read clojure.core.server/repl-read
+     :print clojure.pprint/pprint))