Issue #559: Provide leiningen-version function

2012-05-04 20:56:22 +02:00 · 2012-05-04 20:56:22 +02:00 · c3a6ee0a9f
commit c3a6ee0a9f
parent c7f78676e0
1 changed files with 7 additions and 1 deletions
--- a/leiningen-core/src/leiningen/core/main.clj
+++ b/leiningen-core/src/leiningen/core/main.clj
@ -147,4 +147,10 @@ or by executing \"lein upgrade\". ")
             (when-not (re-find #"Suppressed exit:" (or (.getMessage e) ""))
               (.printStackTrace e))
             (exit 1)))))
-  (exit 0))
+  (exit 0))
+
+(defn
+  leiningen-version 
+  "Returns leiningen version as a string."
+  []
+  (System/getenv "LEIN_VERSION"))