pods env var

This commit is contained in:
Michiel Borkent 2022-05-06 14:53:31 +02:00
parent e075b13bfe
commit c2d6ba847c

View file

@ -128,27 +128,35 @@
^java.io.File ^java.io.File
[{pod-name :pod/name [{pod-name :pod/name
pod-version :pod/version}] pod-version :pod/version}]
(let [base-file
(if-let [pods-dir (System/getenv "BABASHKA_PODS_DIR")]
(io/file pods-dir)
(io/file (or (io/file (or
(System/getenv "XDG_CACHE_HOME") (System/getenv "XDG_CACHE_HOME")
(System/getProperty "user.home")) (System/getProperty "user.home"))
".babashka" ".babashka"
"pods" "pods"))]
(io/file base-file
"repository" "repository"
(str pod-name) (str pod-name)
pod-version)) pod-version)))
(defn data-dir (defn data-dir
^java.io.File ^java.io.File
[{pod-name :pod/name [{pod-name :pod/name
pod-version :pod/version}] pod-version :pod/version}]
(let [base-file
(if-let [pods-dir (System/getenv "BABASHKA_PODS_DIR")]
(io/file pods-dir)
(io/file (or (io/file (or
(System/getenv "XDG_DATA_HOME") (System/getenv "XDG_DATA_HOME")
(System/getProperty "user.home")) (System/getProperty "user.home"))
".babashka" ".babashka"
"pods" "pods"))]
(io/file base-file
"repository" "repository"
(str pod-name) (str pod-name)
pod-version)) pod-version)))
(defn sha256 [file] (defn sha256 [file]
(let [buf (byte-array 8192) (let [buf (byte-array 8192)