6 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
hans b534917ae3 Switch to windows added. 2026-08-11 16:06:28 +02:00
hans 8311652d6c Makefile added windows switch 2026-08-11 16:04:18 +02:00
+29 -7
View File
@@ -4,21 +4,43 @@
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
(deps clean) (deps clean)
(zip-package)) (zip-package))
(target housekeeping
(displayln "Committing changes for:")
(let ((changes (git 'status)))
(when (> (length changes) 0)
(dgit 'status)
(displayln "Adding...")
(dgit 'add '-A)
(displayln "Committing...")
(dgit 'commit (git-prompt))
(displayln "Pushing...")
(dgit 'push)))
)
(target windows (target windows
(displayln "does nothing yet")) (deps housekeeping)
;(git 'add '-A) (displayln "Switching to x86_64-win32")
;(git 'commit (dgit 'switch "x86_64-win32"))
;(git 'switch "
(target linux-x86_64
(deps housekeeping)
(displayln "Switching to x86_64-linux")
(dgit 'switch "x86_64-linux"))
(target linux
(deps linux-x86_64))