Diverse aanpassingen

2026-08-09 14:56:42 +02:00
parent ac8e492aff
commit 2e1899292c
8 changed files with 63 additions and 22 deletions
@@ -1,7 +1,10 @@
 #lang racket

 (require "main.rkt"
-         racket/string)
+         racket/string
+         git
+         package-zipper
+         )

 (target all
        (displayln "use (make clean) or (make package) or (make commit/push")
@@ -22,10 +25,19 @@
        (run '(git push)))

 (target status
-        (run '(git 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))