From 6834b3d2aca99fe31f077929b15f8b3718e139d5 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Mon, 17 Aug 2026 16:37:48 +0200
Subject: [PATCH] Made Makefile #rash complient

---
 Makefile | 87 ++++++++++++++++++++++++++++++--------------------------
 cli.rkt  | 14 +++++++++
 info.rkt |  2 +-
 3 files changed, 62 insertions(+), 41 deletions(-)
 create mode 100644 cli.rkt

diff --git a/Makefile b/Makefile
index b5058ad..d75d661 100644
--- a/Makefile
+++ b/Makefile
@@ -1,51 +1,58 @@
-#lang racket
+#lang rash
 
-(require racket-makefile
+(require racket-makefile/rash
          package-zipper
          net/sendurl
          )
 
-
-(target all
-        (displayln "use (make clean) or (make package)")
-        )
-
-(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
-        (deps clean)
-        (zip-package))
-
-(target zip
-        (deps package))
-
 (define doc-target "docs/git.html")
 (define doc-src "scribblings/git.scrbl")
 
-(target doc-target
-        (deps doc-src)
-        (unless (directory-exists? "docs")
-          (make-directory "docs"))
-        (raco '(scribble --html +m --dest "docs" $<)))
+(makefile git-cli
+          
+          (target all
+                  (displayln "use (make clean) or (make package)")
+                  )
 
-(target doc
-        (deps doc-target)
-        (displayln "Documentation built")
-        )
+          (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 showdoc
-        (deps doc)
-        (send-url/file doc-target))
+          (target version
+                  (displayln 
+                   (git 'next-version)))
 
-(target refresh
-        (displayln "Refreshing makefile")
-        (refresh-makefile)
-        (displayln "done.")
-        )
-(target setup
-        (raco '(setup git)))
\ No newline at end of file
+          (target package
+                  (deps clean)
+                  (zip-package))
+
+          (target zip
+                  (deps package))
+
+          (target doc-target
+                  (deps doc-src)
+                  (unless (directory-exists? "docs")
+                          (make-directory "docs"))
+                  (raco '(scribble --html +m --dest "docs" $<)))
+
+          (target doc
+                  (deps doc-target)
+                  (displayln "Documentation built")
+                  )
+
+          (target showdoc
+                  (deps doc)
+                  (send-url/file doc-target))
+
+          (target refresh
+                  (displayln "Refreshing makefile")
+                  (refresh-makefile)
+                  (displayln "done.")
+                  )
+          (target setup
+                  (raco '(setup git)))
+          
+          )
\ No newline at end of file
diff --git a/cli.rkt b/cli.rkt
new file mode 100644
index 0000000..932308d
--- /dev/null
+++ b/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>"))))
+      
+      
+      
\ No newline at end of file
diff --git a/info.rkt b/info.rkt
index aad04d3..51a4422 100644
--- a/info.rkt
+++ b/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)