blob: 10870298e6cdf7ad4fc563b209ecce081ab15dc8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(ns cljcc.util
(:require [clojure.java.shell :refer [sh]]))
(defn get-os []
(let [os-name (.toLowerCase (System/getProperty "os.name"))]
(cond
(.contains os-name "mac") :mac
(.contains os-name "linux") :linux
:else :unsupported)))
(defn mac-aarch64? []
(and (= :mac (get-os)) (= (System/getProperty "os.arch" "aarch64"))))
(defn handle-sh
"Preprends arch -x86_64 if running under Mac M chips."
[command & args]
(if (mac-aarch64?)
(apply sh "arch" "-x86_64" command args)
(apply sh command args)))
|
