Version functionality added.

main.rkt

@@ -4,6 +4,7 @@
          "private/git-commands.rkt"
          "private/config.rkt"
          "private/diff.rkt"
+         "private/info.rkt"
          simple-log
          racket/string
          net/sendurl
@@ -17,6 +18,7 @@
          git-push
          git-log
          git-grep
+         git-new-version
          )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -25,6 +27,7 @@
 
 (define git-commands (make-hash))
 
+
 (define-syntax git
   (syntax-rules ()
     ((_ command b1 ...)
@@ -48,6 +51,7 @@
         (g args)
         (g (cons '--porcelain args)))))
 
+
 (define-syntax def-cmd
   (syntax-rules ()
     ((_ cmd cmd* cmd-sym)
@@ -117,6 +121,26 @@
 (def-cmd git-log cmd-git-log 'log)
 (def-cmd git-rev-list cmd-git-rev-list 'rev-list)
 
+(define (git-version . args)
+  (cmd-git-version args))
+
+(define (cmd-git-version args)
+  (info-version "."))
+
+(hash-set! git-commands 'version cmd-git-version)
+
+(define (git-new-version . args)
+  (cmd-git-new-version args))
+
+(define (cmd-git-new-version args)
+  (when(null? args)
+      (error "git-new-version expects 'maj, 'major, 'min, 'minor or 'patch"))
+  (let ((kind (car args)))
+    (git-next-version kind ".")
+    (git-version)))
+
+(hash-set! git-commands 'new-version cmd-git-new-version)
+
 (def-cmd git-diff cmd-git-diff 'diff
   (λ (args info) args)
   (λ (cmd exit-code result output out info)