From c3a6ee0a9f17c53ef41d7eea5bdaea3167ba55d5 Mon Sep 17 00:00:00 2001 From: Jacek Laskowski Date: Fri, 4 May 2012 20:56:22 +0200 Subject: [PATCH] Issue #559: Provide leiningen-version function --- leiningen-core/src/leiningen/core/main.clj | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/leiningen-core/src/leiningen/core/main.clj b/leiningen-core/src/leiningen/core/main.clj index 7857021c..10119c68 100644 --- 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)) \ No newline at end of file + (exit 0)) + +(defn + leiningen-version + "Returns leiningen version as a string." + [] + (System/getenv "LEIN_VERSION"))