(defn make-manifest [project]
(Manifest.
(ByteArrayInputStream.
(to-byte-array
(str (join "\n"
["Manifest-Version: 1.0" ; DO NOT REMOVE!
"Created-By: Leiningen"
(str "Built-By: " (System/getProperty "user.name"))
(str "Build-Jdk: " (System/getProperty "java.version"))
(when-let [main (:main project)]
(str "Main-Class: " (.replaceAll (str main) "-" "_")))])
"\n")))))
Comments top
No comments for make-manifest. Log in to add a comment.