48 lines
1.4 KiB
Clojure
48 lines
1.4 KiB
Clojure
|
#!/usr/bin/env bb
|
||
|
|
|
||
|
|
(require
|
||
|
|
'[clojure.tools.cli :refer [parse-opts]]
|
||
|
|
'[clojure.string :as string])
|
||
|
|
|
||
|
|
(def cli-options
|
||
|
|
[["-b" "--bundle BUNDLE" "The bundle id"]])
|
||
|
|
|
||
|
|
;;executes shell command but throws exception on error
|
||
|
|
(defn- safe-sh [& commands]
|
||
|
|
(as-> (apply shell/sh commands) $
|
||
|
|
(if (= (:exit $) 0) $ (throw (Exception. (:err $))))))
|
||
|
|
|
||
|
|
;;gets the working directory, but removes the new line in the end
|
||
|
|
(def wd (as-> (:out (safe-sh "pwd")) $
|
||
|
|
(subs $ 0 (- (count $) 1))))
|
||
|
|
|
||
|
|
(def options (:options (parse-opts *command-line-args* cli-options)))
|
||
|
|
|
||
|
|
(if-let [bundle (:bundle options)]
|
||
|
|
(do
|
||
|
|
(def packages (->>
|
||
|
|
(safe-sh "adb" "shell" "pm" "path" bundle)
|
||
|
|
:out
|
||
|
|
(string/split-lines)
|
||
|
|
(map #(last (re-find #"package:(.*)$" %)))))
|
||
|
|
|
||
|
|
(println (str "found " (count packages) " packages, pulling.."))
|
||
|
|
|
||
|
|
(doseq [package packages]
|
||
|
|
(safe-sh "adb" "pull" package wd))
|
||
|
|
|
||
|
|
(println "successfully pulled packages.")
|
||
|
|
(println "install them to the currently connected device? (y/n): ")
|
||
|
|
|
||
|
|
(def file-names (map #(str wd fs/file-separator (.getName (io/file %))) packages))
|
||
|
|
|
||
|
|
(let [answer (read-line)]
|
||
|
|
(when (= answer "y")
|
||
|
|
(if (< 1 (count file-names))
|
||
|
|
(apply safe-sh "adb" "install-multiple" file-names)
|
||
|
|
(safe-sh "adb" "install" (first file-names))))))
|
||
|
|
|
||
|
|
(println "error: you need to provide a bundle id with -b [BUNDLE]"))
|
||
|
|
|
||
|
|
|