s3-mvn-upload's Introduction

s3-mvn-upload

Uploads a jar file to a S3 Maven repo

Usage

Execute

{:s3-deploy {:extra-deps {s3-mvn-upload/s3-mvn-upload {:mvn/version "RELEASE"}}
             :exec-fn    s3-mvn-upload.core/deploy
             :exec-args  {:artifact   "dev-local-0.9.172.jar"
                          :repository "s3://my-bucket/releases"}}}

Main

clojure -Sdeps '{:deps {s3-mvn-upload {:mvn/version "1.0.13"}}}' -M -m s3-mvn-upload.core dev-local-0.9.172.jar s3://my-bucket/releases

Development

Jar: clojure -T:build jar
Deploy: clojure -T:build deploy

s3-mvn-upload's People

Contributors

Stargazers

Watchers

s3-mvn-upload's Issues

Command line could be simpler

We can go from

clojure -Sdeps '{:deps {s3-mvn-upload {:mvn/version "0.1.1"}}}' -m s3-mvn-upload.core com.datomic/dev-local 0.9.172 dev-local-0.9.172.jar s3://my-bucket/releases

clojure -Sdeps '{:deps {s3-mvn-upload {:mvn/version "0.1.1"}}}' -m s3-mvn-upload.core dev-local-0.9.172.jar s3://my-bucket/releases

As :groupId :artifactId :version are presents inside dev-local-0.9.172.jar

We can do this without beak the current signature.

(defn pom-xml-stream
  "Find path of pom file in jar file, or nil if it doesn't exist"
  [^JarFile jar-file]
  (try
    (loop [[^JarEntry entry & entries] (enumeration-seq (.entries jar-file))]
      (when entry
        (let [name (.getName entry)]
          (if (and (str/starts-with? name "META-INF/")
                   (str/ends-with? name "pom.xml"))
            (.getInputStream jar-file entry)
            (recur entries)))))
    (catch IOException _t nil)))(defn coordinates [jar-file]
  (->> (JarFile. (jio/file jar-file))
       (pom-xml-stream)
       (xml/parse)
       :content
       (keep
         (fn [elem]
           (when (some-> elem :tag #{:groupId :artifactId :version})
             [(-> elem :tag)
              (-> elem :content first)])))
       (into {})))