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}]
(io/file (or (let [base-file
(System/getenv "XDG_CACHE_HOME") (if-let [pods-dir (System/getenv "BABASHKA_PODS_DIR")]
(System/getProperty "user.home")) (io/file pods-dir)
".babashka" (io/file (or
"pods" (System/getenv "XDG_CACHE_HOME")
"repository" (System/getProperty "user.home"))
(str pod-name) ".babashka"
pod-version)) "pods"))]
(io/file base-file
"repository"
(str pod-name)
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}]
(io/file (or (let [base-file
(System/getenv "XDG_DATA_HOME") (if-let [pods-dir (System/getenv "BABASHKA_PODS_DIR")]
(System/getProperty "user.home")) (io/file pods-dir)
".babashka" (io/file (or
"pods" (System/getenv "XDG_DATA_HOME")
"repository" (System/getProperty "user.home"))
(str pod-name) ".babashka"
pod-version)) "pods"))]
(io/file base-file
"repository"
(str pod-name)
pod-version)))
(defn sha256 [file] (defn sha256 [file]
(let [buf (byte-array 8192) (let [buf (byte-array 8192)