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