force ansi colors on CI for tools-versions

clj-commons · Jun 22, 2024 · 611475d · 611475d
1 parent 025bc0c
commit 611475d
Showing 1 changed file with 21 additions and 19 deletions.
diff --git a/script/tools_versions.clj b/script/tools_versions.clj
@@ -145,25 +145,27 @@
   something exceptional happens."
   [& args]
   (when (main/doc-arg-opt args)
-    (println (ansi/compose "\n"
-                           [:green (System/getProperty "os.name")] "\n"
-                           "  version: " (System/getProperty "os.version") "\n"
-                           "  arch: " (System/getProperty "os.arch")))
-    (let [tools (versions)]
-      (doseq [{:keys [error name short-version path version]} tools]
-        (if error
-          (println (ansi/compose [:red name " - Error"] "\n"
-                                 [:red (-> error string/trim (string/replace #"(?m)^" "  "))]))
-          (println (ansi/compose [:green name " " short-version] " - " path "\n"
-                                 (-> version string/trim (string/replace #"(?m)^" "  "))))))
-      ;; chrome/chromedriver and edge/edgedriver versions should match
-      (let [warnings (filter some?
-                             [(version-mismatch tools "Chrome" "Chrome Webdriver")
-                              (version-mismatch tools "Edge" "Edge Webdriver")])]
-        (when (seq warnings)
-          (println (ansi/compose "\n" [:red "Warnings"]))
-          (doseq [w warnings]
-            (println "-" w)))))))
+    ;; force colors on CI where is seems to be disabled by default
+    (binding [ansi/*color-enabled* (if (System/getenv "CI") true ansi/*color-enabled*)]
+      (println (ansi/compose "\n"
+                             [:green (System/getProperty "os.name")] "\n"
+                             "  version: " (System/getProperty "os.version") "\n"
+                             "  arch: " (System/getProperty "os.arch")))
+      (let [tools (versions)]
+        (doseq [{:keys [error name short-version path version]} tools]
+          (if error
+            (println (ansi/compose [:red name " - Error"] "\n"
+                                   [:red (-> error string/trim (string/replace #"(?m)^" "  "))]))
+            (println (ansi/compose [:green name " " short-version] " - " path "\n"
+                                   (-> version string/trim (string/replace #"(?m)^" "  "))))))
+        ;; chrome/chromedriver and edge/edgedriver versions should match
+        (let [warnings (filter some?
+                               [(version-mismatch tools "Chrome" "Chrome Webdriver")
+                                (version-mismatch tools "Edge" "Edge Webdriver")])]
+          (when (seq warnings)
+            (println (ansi/compose "\n" [:red "Warnings"]))
+            (doseq [w warnings]
+              (println "-" w))))))))
 
 (main/when-invoked-as-script
  (apply -main *command-line-args*))