#lang racket (require racket-makefile 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)) (when (directory-exists? "scribblings") (for-each (λ (f) (displayln f) (rm-f f)) (list-files "scribblings" #px"[.](css|js|html)$"))) ) (target package (deps clean) (zip-package))