X-Git-Url: https://njoseph.me/gitweb/babashka-scripts.git/blobdiff_plain/9da8be80d72b89328d70b47b71050251e32c470a..HEAD:/lib.clj diff --git a/lib.clj b/lib.clj deleted file mode 100644 index 5f216d1..0000000 --- a/lib.clj +++ /dev/null @@ -1,26 +0,0 @@ -; Common utility functions used by scripts - -(import '[java.nio.file Files FileSystems CopyOption StandardCopyOption]) - -(require '[org.httpkit.client :as http]) - -(defn extract-file-from-zip - [zip-file-name source destination] - (let [zip-file (io/file zip-file-name) - src (io/file source) - dest (io/file destination) - fs (FileSystems/newFileSystem (.toPath zip-file) nil) - file-in-zip (.getPath fs source (into-array String []))] - (Files/copy file-in-zip - (.toPath dest) - (into-array CopyOption [StandardCopyOption/REPLACE_EXISTING])))) - -(defn expand-home - [s] - (if (.startsWith s "~") - (clojure.string/replace-first s "~" (System/getProperty "user.home")) - s)) - -(defn download-binary - [url destination] - (io/copy (:body @(http/get url)) (io/file destination)))