Made Makefile #rash complient

Makefile

@@ -1,51 +1,58 @@
-#lang racket
+#lang rash
 
-(require racket-makefile
+(require racket-makefile/rash
          package-zipper
          net/sendurl
          )
 
+(define doc-target "docs/git.html")
+(define doc-src "scribblings/git.scrbl")
 
-(target all
+(makefile git-cli
+          
+          (target all
                   (displayln "use (make clean) or (make package)")
                   )
 
-(target clean
+          (target clean
                   (for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
                   (for-each (λ (d) (displayln d) (rm-rf d)) (list-dirs "." #px"(compiled|doc|docs)$" #:recursive #t))
                   (when (directory-exists? "scribblings")
                         (for-each (λ (f) (displayln f) (rm-f f)) (list-files "scribblings" #px"[.](css|js|html)$")))
                   )
 
-(target package
+          (target version
+                  (displayln 
+                   (git 'next-version)))
+
+          (target package
                   (deps clean)
                   (zip-package))
 
-(target zip
+          (target zip
                   (deps package))
 
-(define doc-target "docs/git.html")
-(define doc-src "scribblings/git.scrbl")
-
-(target doc-target
+          (target doc-target
                   (deps doc-src)
                   (unless (directory-exists? "docs")
                           (make-directory "docs"))
                   (raco '(scribble --html +m --dest "docs" $<)))
 
-(target doc
+          (target doc
                   (deps doc-target)
                   (displayln "Documentation built")
                   )
 
-(target showdoc
+          (target showdoc
                   (deps doc)
                   (send-url/file doc-target))
 
-(target refresh
+          (target refresh
                   (displayln "Refreshing makefile")
                   (refresh-makefile)
                   (displayln "done.")
                   )
-(target setup
+          (target setup
                   (raco '(setup git)))
+          
+          )

cli.rkt

@@ -0,0 +1,14 @@
+#lang racket/base
+
+(require
+  "main.rkt"
+  "private/utils.rkt"
+  racket/string)
+
+(define (git-cli)
+  (let ((re #px"\s+"))
+  (let loop ()
+    (let ((cmd (string-trim (input-prompt "git>"))))
+      
+      
+      

info.rkt

@@ -2,7 +2,7 @@
 
 (define collection "git-cli")
 (define pkg-desc "Command-line-like Git operations for Racket, interface to the git cli command")
-(define version "0.4.2")
+(define version "0.4.4")
 (define pkg-authors '("Hans Dijkema"))
 (define license 'MIT)