From ff6197bc60a110c099d61d1f1d11040a13eae17f Mon Sep 17 00:00:00 2001 From: circlespainter Date: Fri, 19 Sep 2014 13:11:18 +0200 Subject: [PATCH] More readable and consistent spacing --- src/leiningen/jar.clj | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/src/leiningen/jar.clj b/src/leiningen/jar.clj index cdecb9a6..a7480702 100644 --- a/src/leiningen/jar.clj +++ b/src/leiningen/jar.clj @@ -32,9 +32,9 @@ (cond (symbol? v) (manifest-entry project [k (resolve v)]) (fn? v) (manifest-entry project [k (v project)]) (coll? v) (->> v ;; Sub-manifest = manifest section - (manifest-entries project) - (cons (str "\nName: " (name k) "\n")) - (string/join)) + (manifest-entries project) + (cons (str "\nName: " (name k) "\n")) + (string/join)) :else (->> (str (name k) ": " v) (partition-all 70) ;; Manifest spec says lines <= 72 chars (map (partial apply str)) @@ -50,17 +50,17 @@ (defn ^:internal make-manifest [project] (let [initial-mf - (concat (conj default-manifest - (if-let [main (:main project 'clojure.main)] - ["Main-Class" (munge (str main))])) - (manifest-map-to-reordered-seq (:manifest project)))] + (concat (conj default-manifest + (if-let [main (:main project 'clojure.main)] + ["Main-Class" (munge (str main))])) + (manifest-map-to-reordered-seq (:manifest project)))] (->> initial-mf - (manifest-entries project) - (cons "Manifest-Version: 1.0\n") ;; Manifest-Version line must be first - (string/join "") - .getBytes - ByteArrayInputStream. - Manifest.))) + (manifest-entries project) + (cons "Manifest-Version: 1.0\n") ;; Manifest-Version line must be first + (string/join "") + .getBytes + ByteArrayInputStream. + Manifest.))) (defn ^:internal manifest-map [manifest] (let [attrs (.getMainAttributes manifest)]