From e8ebbc0734bcd2d24ab072323cef1f9a024c8c34 Mon Sep 17 00:00:00 2001
From: Phil Hagelberg <technomancy@gmail.com>
Date: Mon, 9 Jun 2014 15:54:46 -0700
Subject: [PATCH] Support vcs tag prefix.

---
 src/leiningen/vcs.clj | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/leiningen/vcs.clj b/src/leiningen/vcs.clj
index 02265c76..d44243a5 100644
--- a/src/leiningen/vcs.clj
+++ b/src/leiningen/vcs.clj
@@ -50,7 +50,7 @@
 
 ;;; Git
 
-(defmethod push :git [project & [args]]
+(defmethod push :git [project & args]
   (binding [eval/*dir* (:root project)]
     (apply eval/sh "git" "push" args)
     (apply eval/sh "git" "push" "--tags" args)))
@@ -60,9 +60,11 @@
     (eval/sh "git" "add" "-A")
     (eval/sh "git" "commit" "-m" (str "Version " (:version project)))))
 
-(defmethod tag :git [project]
-  (binding [eval/*dir* (:root project)]
-    (let [version (:version project)]
+(defmethod tag :git [{:keys [root version]} & [prefix]]
+  (binding [eval/*dir* root]
+    (let [tag (if prefix
+                (str prefix "-" version)
+                version)]
       (eval/sh "git" "tag" "-s" version "-m" (str "Release " version)))))
 
 (defmethod assert-committed :git [project]