X-Git-Url: https://njoseph.me/gitweb/babashka-scripts.git/blobdiff_plain/67d5a15a20df70f416cf78efb2137344f239da2f..HEAD:/lib.clj diff --git a/lib.clj b/lib.clj deleted file mode 100644 index 1f88070..0000000 --- a/lib.clj +++ /dev/null @@ -1,35 +0,0 @@ -; Common utility functions used by scripts - -(ns lib - (:require [babashka.process :as p] - [org.httpkit.client :as http] - [clojure.java.io :as io] - [clojure.string :refer [replace-first]]) - (:import [java.nio.file Files FileSystems CopyOption StandardCopyOption])) - -(defn run-cmd - [command] - (->> command - p/process - :out - slurp)) - -(defn extract-file-from-zip - [zip-file-name source destination] - (let [zip-file (io/file zip-file-name) - 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 "~") - (replace-first s "~" (System/getProperty "user.home")) - s)) - -(defn download-binary - [url destination] - (io/copy (:body @(http/get url)) (io/file destination)))