19 lines
399 B
Racket
19 lines
399 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.")))
|