#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)))