adjustments for git-cli
This commit is contained in:
+9
-13
@@ -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))
|
||||||
|
|||||||
@@ -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)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user