19 lines
393 B
Racket
19 lines
393 B
Racket
#lang racket
|
|
|
|
(require racket-makefile)
|
|
|
|
(makefile cleanup-example
|
|
(default-target all)
|
|
(phony all clean)
|
|
|
|
(target all
|
|
(displayln "use (make 'clean)"))
|
|
|
|
(target clean
|
|
(display "cleaning up...")
|
|
(apply rm-rf
|
|
(list-dirs "." #px"compiled$" #:recursive #t))
|
|
(apply rm-f
|
|
(list-files "." #px"(?i:([.]bak|~)$)" #:recursive #t))
|
|
(displayln "done.")))
|