Bettern cmap handling. Lots of changes.
This commit is contained in:
+45
@@ -0,0 +1,45 @@
|
||||
#lang rash
|
||||
|
||||
(require rash-coreutils
|
||||
rash-makefile
|
||||
rash-git-cli
|
||||
racket-sprintf)
|
||||
|
||||
|
||||
(makefile racket-wiki
|
||||
|
||||
(target all
|
||||
(displayln "Use (make clean), (make ver), (make zip), etc."))
|
||||
|
||||
(target ver
|
||||
(displayln (git* next-version)))
|
||||
|
||||
(target status
|
||||
(map (λ (e)
|
||||
(displayln
|
||||
(sprintf "%-40.40s: %-15.15s %-15.15s"
|
||||
(caddr e) (cadr e) (car e))))
|
||||
(git 'status)))
|
||||
|
||||
(target sync
|
||||
{
|
||||
git add -A
|
||||
git commit
|
||||
git push
|
||||
})
|
||||
|
||||
(target zip
|
||||
(deps clean)
|
||||
(zip-package #:exclude '("wiki-data")))
|
||||
|
||||
(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|docs)$" #:recursive #t))
|
||||
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$"))
|
||||
)
|
||||
|
||||
(target refresh
|
||||
(refresh-makefile))
|
||||
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user