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