31 lines
602 B
Racket
31 lines
602 B
Racket
#lang racket
|
|
|
|
(require "main.rkt"
|
|
racket/string)
|
|
|
|
(target all
|
|
(displayln "use (make clean) or (make package) or (make commit/push")
|
|
)
|
|
|
|
(target commit
|
|
(display "commit message:")
|
|
(flush-output)
|
|
(let ((line (read-line)))
|
|
(set! line (string-trim line))
|
|
(run '(git add -A))
|
|
(run (append '(git "commit" -m ) (list line)))
|
|
(run '(git push))
|
|
)
|
|
)
|
|
|
|
(target push
|
|
(run '(git push)))
|
|
|
|
(target status
|
|
(run '(git status)))
|
|
|
|
(target pull
|
|
(run '(git pull)))
|
|
|
|
|
|
|