adjustments for git-cli

2026-08-14 11:27:26 +02:00
parent bc394756e8
commit 69d3b86666
2 changed files with 13 additions and 13 deletions
@@ -1,11 +1,6 @@
 #lang racket

-(require "main.rkt"
-         racket/string
-         git
-         package-zipper
-         net/sendurl
-         )
+(require "main.rkt")

 (target all
        (displayln "use (make clean) or (make package) or (make commit/push")
@@ -13,22 +8,23 @@

 (target commit
        (let ((st (git 'status)))
-          (dgit 'status)
+          (git 'status)
          (when (> (length st) 0)
-            (dgit 'add '-A)
-            (dgit 'commit (git-prompt))
-            (dgit 'push))))
+            ((git 'add '-A)
+            (git 'commit)
+            (git 'push))))
+        )

 (target push
-        (dgit 'push))
+        (git 'push))

 (target status
        (displayln "git status:")
-        (void (dgit 'status))
+        (void (git 'status))
        )

 (target pull
-        (dgit 'pull))
+        (git 'pull))

 (target clean
        (for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
@@ -7,6 +7,8 @@
         "private/engine.rkt"
         git-cli
         package-zipper
+         net/sendurl
+         racket/string
         )

 (provide (all-from-out racket)
@@ -30,6 +32,8 @@
         $<
         (all-from-out git-cli)
         (all-from-out package-zipper)
+         (all-from-out net/sendurl)
+         (all-from-out racket/string)
         )