Allow piping arguments into scripts

[babashka-scripts.git] / install-deb.clj

diff --git a/install-deb.clj b/install-deb.clj
index c8990a84785333cc242cd5cbe898b1f46bc9e5fb..11fd2ed6661b1269919ea0379286364abf7def2e 100755 (executable)
--- a/install-deb.clj
+++ b/install-deb.clj
@@ -2,14 +2,17 @@
 
 ; Install a deb package from URL
 
-(require '[clojure.java.io :as io] '[lib :refer [download-binary run-cmd]])
+(require '[clojure.java.io :as io]
+         '[lib :refer [download-binary run-cmd unixify]])
 
-(when (= *file* (System/getProperty "babashka.file"))
-  (let [url (first *command-line-args*)]
-    (println "Downloading deb package...")
+(defn- install-deb
+  [url]
+  (println "Downloading deb package..."
     (download-binary url "package.deb")
     (println "Installing...")
     (run-cmd ["sudo" "gdebi" "--non-interactive" "package.deb"])
     (println "Cleaning up..")
     (io/delete-file "package.deb")
     (println "Done.")))
+
+(unixify install-deb)