Use clojure.main for uberjars that don't declare their own :main.

Fixes #1505.
This commit is contained in:
Phil Hagelberg 2014-04-24 09:51:04 -07:00
parent 785301257c
commit 927ad0fd8c

View file

@ -33,8 +33,7 @@
(defn ^:internal make-manifest [project]
(->> (merge default-manifest (:manifest project)
(if-let [main (:main project)]
{"Main-Class" (.replaceAll (str main) "-" "_")}))
{"Main-Class" (munge (str (:main project 'clojure.main)))})
(map (partial manifest-entry project))
(cons "Manifest-Version: 1.0\n") ;; Manifest-Version line must be first
(string/join "")