luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update ls_jar.clj [skip ci]

Browse source
This commit is contained in:
Michiel Borkent 2020-07-01 13:53:03 +02:00
parent e667bb5d2f
commit 018e011ee6
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
examples/ls_jar.clj
View file

@ -4,14 +4,16 @@
(require '[clojure.java.io :as io] (require '[clojure.java.io :as io]
'[clojure.string :as str]) '[clojure.string :as str])
(let [file (if (= 1 (count *command-line-args*))
(let [lib (first *command-line-args*) (io/file (first *command-line-args*))
[_org lib-name] (str/split lib #"/") (let [lib (first *command-line-args*)
version (second *command-line-args*)] [_org lib-name] (str/split lib #"/")
version (second *command-line-args*)]
(io/file (System/getProperty "user.home")
(format ".m2/repository/%s/%s/%s-%s.jar"
(str/replace lib "." (System/getProperty "file.separator"))
version
lib-name version))))]
(doseq [e (enumeration-seq (doseq [e (enumeration-seq
(.entries (java.util.jar.JarFile. (.entries (java.util.jar.JarFile. file)))]
(io/file (System/getProperty "user.home")
(format ".m2/repository/%s/%s/%s-%s.jar"
lib version
lib-name version)))))]
(println (.getName e)))) (println (.getName e))))