put entire project.clj in loader-info

boot-clj · Jan 7, 2014 · 648e03f · 648e03f
1 parent 075ab82
commit 648e03f
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/src/tailrecursion/boot/loader.clj b/src/tailrecursion/boot/loader.clj
@@ -19,11 +19,8 @@
 (defn info
   "Returns a map of version information for tailrecursion.boot.loader"
   []
-  (let [[_ proj vers & kvs] (guard (read-string (slurp (io/resource "project.clj"))))
-        {:keys [description url license]} (->> (partition 2 kvs)
-                                               (map (partial apply vector))
-                                               (into {}))]
-    {:proj proj :vers vers :description description :url url :license license}))
+  (let [[_ & kvs] (guard (read-string (slurp (io/resource "project.clj"))))]
+    (->> kvs (partition 2) (map (partial apply vector)) (into {}))))
 
 (defn index-of [v val]
   (ffirst (filter (comp #{val} second) (map vector (range) v))))