Compare commits
6 Commits
3ac4969537
..
main
| Author | SHA1 | Date | |
|---|---|---|---|
| 09a4a53af4 | |||
| 24051225ac | |||
| 55419558a7 | |||
| df36cc72e7 | |||
| b534917ae3 | |||
| 8311652d6c |
+29
-7
@@ -4,21 +4,43 @@
|
||||
package-zipper)
|
||||
|
||||
(target all
|
||||
(displayln "use (make clean) or (make package)"))
|
||||
(displayln "main branch: 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))
|
||||
(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
|
||||
(deps clean)
|
||||
(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
|
||||
(displayln "does nothing yet"))
|
||||
;(git 'add '-A)
|
||||
;(git 'commit
|
||||
;(git 'switch "
|
||||
|
||||
(deps housekeeping)
|
||||
(displayln "Switching to 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))
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user