diff --git a/Makefile.rkt b/Makefile.rkt index 3286c9a..501ec16 100644 --- a/Makefile.rkt +++ b/Makefile.rkt @@ -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)) diff --git a/main.rkt b/main.rkt index ab5fdf6..b0f1ffb 100644 --- a/main.rkt +++ b/main.rkt @@ -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) )