4 Commits

Author SHA1 Message Date
hans 09a4a53af4 Added 'linux' entry 2026-08-11 22:54:42 +02:00
hans 24051225ac Added check for scrbl directory existence 2026-08-11 20:44:32 +02:00
hans 55419558a7 linux branch added 2026-08-11 20:29:48 +02:00
hans df36cc72e7 Small change 2026-08-11 20:25:50 +02:00
+13 -4
View File
@@ -4,12 +4,13 @@
package-zipper) package-zipper)
(target all (target all
(displayln "use (make clean) or (make package)")) (displayln "main branch: use (make clean) or (make package)"))
(target clean (target clean
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t)) (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 (λ (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)$")) (when (directory-exists? "scrbl")
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$")))
) )
(target package (target package
@@ -29,9 +30,17 @@
(dgit 'push))) (dgit 'push)))
) )
(target windows (target windows
(deps housekeeping) (deps housekeeping)
(displayln "Switching...to x86_64-win32") (displayln "Switching to x86_64-win32")
(dgit 'switch "x86_64-win32")) (dgit 'switch "x86_64-win32"))
(target linux-x86_64
(deps housekeeping)
(displayln "Switching to x86_64-linux")
(dgit 'switch "x86_64-linux"))
(target linux
(deps linux-x86_64))