| | 1 | ; Common utility functions used by scripts |
| | 2 | |
| | 3 | (import '[java.nio.file Files FileSystems CopyOption StandardCopyOption]) |
| | 4 | |
| | 5 | (require '[babashka.process :as p] '[org.httpkit.client :as http]) |
| | 6 | |
| | 7 | (defn run-cmd |
| | 8 | [command] |
| | 9 | (->> command |
| | 10 | p/process |
| | 11 | :out |
| | 12 | slurp)) |
| | 13 | |
| | 14 | (defn extract-file-from-zip |
| | 15 | [zip-file-name source destination] |
| | 16 | (let [zip-file (io/file zip-file-name) |
| | 17 | src (io/file source) |
| | 18 | dest (io/file destination) |
| | 19 | fs (FileSystems/newFileSystem (.toPath zip-file) nil) |
| | 20 | file-in-zip (.getPath fs source (into-array String []))] |
| | 21 | (Files/copy file-in-zip |
| | 22 | (.toPath dest) |
| | 23 | (into-array CopyOption [StandardCopyOption/REPLACE_EXISTING])))) |
| | 24 | |
| | 25 | (defn expand-home |
| | 26 | [s] |
| | 27 | (if (.startsWith s "~") |
| | 28 | (clojure.string/replace-first s "~" (System/getProperty "user.home")) |
| | 29 | s)) |
| | 30 | |
| | 31 | (defn download-binary |
| | 32 | [url destination] |
| | 33 | (io/copy (:body @(http/get url)) (io/file destination))) |
projects / babashka-scripts.git / blame_incremental