44 lines
1.0 KiB
Racket
44 lines
1.0 KiB
Racket
#lang racket
|
|
|
|
|
|
(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))
|
|
|