adjustments for git-cli

This commit is contained in:
2026-08-14 11:27:26 +02:00
parent bc394756e8
commit 69d3b86666
2 changed files with 13 additions and 13 deletions
+9 -13
View File
@@ -1,11 +1,6 @@
#lang racket #lang racket
(require "main.rkt" (require "main.rkt")
racket/string
git
package-zipper
net/sendurl
)
(target all (target all
(displayln "use (make clean) or (make package) or (make commit/push") (displayln "use (make clean) or (make package) or (make commit/push")
@@ -13,22 +8,23 @@
(target commit (target commit
(let ((st (git 'status))) (let ((st (git 'status)))
(dgit 'status) (git 'status)
(when (> (length st) 0) (when (> (length st) 0)
(dgit 'add '-A) ((git 'add '-A)
(dgit 'commit (git-prompt)) (git 'commit)
(dgit 'push)))) (git 'push))))
)
(target push (target push
(dgit 'push)) (git 'push))
(target status (target status
(displayln "git status:") (displayln "git status:")
(void (dgit 'status)) (void (git 'status))
) )
(target pull (target pull
(dgit 'pull)) (git 'pull))
(target clean (target clean
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t)) (for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
+4
View File
@@ -7,6 +7,8 @@
"private/engine.rkt" "private/engine.rkt"
git-cli git-cli
package-zipper package-zipper
net/sendurl
racket/string
) )
(provide (all-from-out racket) (provide (all-from-out racket)
@@ -30,6 +32,8 @@
$< $<
(all-from-out git-cli) (all-from-out git-cli)
(all-from-out package-zipper) (all-from-out package-zipper)
(all-from-out net/sendurl)
(all-from-out racket/string)
) )