#lang racket

;; A comment again.

(require "main.rkt"
         racket/string
         git
         package-zipper
         )

(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))
          (apply git-add (map git-status-entry-path (git 'status)))
          (git 'commit line)
          (git 'push)
          )
        )

(target push
        (run '(git push)))

(target status
        (void (dgit 'status))
        )

(target pull
        (run '(git pull)))

(target clean
        (for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
        (for-each (λ (d) (displayln d) (rm-rf d)) (list-dirs "." #px"(compiled|doc)$" #:recursive #t))
        (for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$"))
        )

(target package
        (deps clean)
        (zip-package))