42 lines
1.1 KiB
Racket
42 lines
1.1 KiB
Racket
#lang racket-makefile
|
|
|
|
(require git
|
|
package-zipper)
|
|
|
|
(target all
|
|
(displayln "use (make clean) or (make package)"))
|
|
|
|
(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))
|
|
|
|
(target housekeeping
|
|
(displayln "Committing changes for:")
|
|
(let ((changes (git 'status)))
|
|
(when (> (length changes) 0)
|
|
(dgit 'status)
|
|
(displayln "Adding...")
|
|
(dgit 'add '-A)
|
|
(displayln "Committing...")
|
|
(dgit 'commit (git-prompt))
|
|
(displayln "Pushing...")
|
|
(dgit 'push)))
|
|
)
|
|
|
|
|
|
(target main
|
|
(deps housekeeping)
|
|
(displayln "Switching back to main branch")
|
|
(dgit 'switch "main")
|
|
(dgit 'branch-current)
|
|
)
|
|
|
|
|
|
|