publish: default Etaoin branch is master, not main

[skip ci]
clj-commons · Aug 14, 2024 · f484931 · f484931
1 parent 9ffe172
commit f484931
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/script/ci_publish.clj b/script/ci_publish.clj
@@ -8,7 +8,7 @@
             [clojure.string :as str]
             [lread.status-line :as status]))
 
-(def ^:private changelog-url (format "https://github.com/%s/blob/main/CHANGELOG.adoc" (build-shared/lib-github-coords)))
+(def ^:private changelog-url (format "https://github.com/%s/blob/master/CHANGELOG.adoc" (build-shared/lib-github-coords)))
 
 (defn- assert-on-ci []
   (when (not (System/getenv "CI"))

diff --git a/script/publish.clj b/script/publish.clj
@@ -49,7 +49,7 @@
   (let [current-branch (->> (t/shell {:out :string} "git rev-parse --abbrev-ref HEAD")
                             :out
                             string/trim)]
-    (= "main" current-branch)))
+    (= "master" current-branch)))
 
 (defn- uncommitted-code? []
   (-> (t/shell {:out :string}
@@ -69,7 +69,7 @@
     (and (zero? exit) (-> out string/trim seq))))
 
 (defn- commit-matches-default-head? []
-  (let [repo-head-sha (-> (t/shell {:out :string} (format "git ls-remote https://github.com/%s.git main" (build-shared/lib-github-coords)))
+  (let [repo-head-sha (-> (t/shell {:out :string} (format "git ls-remote https://github.com/%s.git master" (build-shared/lib-github-coords)))
                              :out
                              (string/split #"\s+")
                              first)