X-Git-Url: https://njoseph.me/gitweb/babashka-scripts.git/blobdiff_plain/9da8be80d72b89328d70b47b71050251e32c470a..f2db2d8fea6278491e508ae4409c02658f03bec6:/update-babashka.clj diff --git a/update-babashka.clj b/update-babashka.clj index b14d0b9..c122fb4 100755 --- a/update-babashka.clj +++ b/update-babashka.clj @@ -1,9 +1,10 @@ #! /usr/bin/env bb -(require '[clojure.java.shell :refer [sh]] - '[cheshire.core :as json] +(require '[cheshire.core :as json] '[org.httpkit.client :as http] - '[babashka.fs :as fs]) + '[babashka.fs :as fs] + '[clojure.java.io :as io] + '[lib :refer [download-binary expand-home run-cmd]]) (defn babashka-latest-version [] @@ -22,7 +23,7 @@ version "-" architecture - ".zip")) + ".tar.gz")) (defn check-latest [version] @@ -35,17 +36,19 @@ (let [url (get-download-url version architecture)] (download-binary url output))) -(when (= *file* (System/getProperty "babashka.file")) - (let [architecture "linux-amd64" ;; TODO support multiple - ;; architectures - zip-file "babashka.zip" - destination (expand-home "~/bin/bb") +(defn update-babashka + [] + (let [architecture "linux-amd64" ;; TODO support other architectures + tarball "babashka.tar.gz" + destination (expand-home "~/bin") version (babashka-latest-version)] (println (str "Latest version is " version)) (check-latest version) (println "Updating...") - (download-latest version architecture zip-file) - (extract-file-from-zip zip-file "bb" destination) - (fs/set-posix-file-permissions destination "rwxr-xr-x") - (io/delete-file zip-file) + (download-latest version architecture tarball) + (run-cmd ["tar" "-xzf" tarball "--directory" destination]) + (fs/set-posix-file-permissions (str destination "/bb") "rwxr-xr-x") + (io/delete-file tarball) (println "Done!"))) + +(when (= *file* (System/getProperty "babashka.file")) (update-babashka))