rash-git-cli updates
This commit is contained in:
@@ -5,6 +5,7 @@
|
|||||||
# DrRacket autosave files
|
# DrRacket autosave files
|
||||||
*.rkt~
|
*.rkt~
|
||||||
*.rkt.bak
|
*.rkt.bak
|
||||||
|
*.bak
|
||||||
\#*.rkt#
|
\#*.rkt#
|
||||||
\#*.rkt#*#
|
\#*.rkt#*#
|
||||||
|
|
||||||
@@ -15,3 +16,4 @@ compiled/
|
|||||||
# Dependency tracking files
|
# Dependency tracking files
|
||||||
*.dep
|
*.dep
|
||||||
|
|
||||||
|
doc
|
||||||
+44
@@ -0,0 +1,44 @@
|
|||||||
|
#lang rash
|
||||||
|
|
||||||
|
(require rash-coreutils
|
||||||
|
rash-makefile
|
||||||
|
package-zipper
|
||||||
|
"main.rkt")
|
||||||
|
|
||||||
|
(makefile rash-git-cli
|
||||||
|
(target all
|
||||||
|
(displayln "make clean, make zip, make status, make sync"))
|
||||||
|
|
||||||
|
(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))
|
||||||
|
(when (directory-exists? "scribblings")
|
||||||
|
(for-each (λ (f) (displayln f) (rm-f f))
|
||||||
|
(list-files "scribblings" #px"[.](css|js|html)$")))
|
||||||
|
)
|
||||||
|
|
||||||
|
(target zip
|
||||||
|
(deps clean)
|
||||||
|
(zip-package #:exclude '(".git" ".gitignore")))
|
||||||
|
|
||||||
|
(target status
|
||||||
|
{
|
||||||
|
git status
|
||||||
|
})
|
||||||
|
|
||||||
|
(target sync
|
||||||
|
{
|
||||||
|
git status
|
||||||
|
git add -A
|
||||||
|
git commit
|
||||||
|
git push
|
||||||
|
})
|
||||||
|
|
||||||
|
(target pull
|
||||||
|
{
|
||||||
|
git pull
|
||||||
|
})
|
||||||
|
|
||||||
|
)
|
||||||
Reference in New Issue
Block a user