Made Makefile #rash complient
This commit is contained in:
@@ -1,10 +1,14 @@
|
||||
#lang racket
|
||||
#lang rash
|
||||
|
||||
(require racket-makefile
|
||||
(require racket-makefile/rash
|
||||
package-zipper
|
||||
net/sendurl
|
||||
)
|
||||
|
||||
(define doc-target "docs/git.html")
|
||||
(define doc-src "scribblings/git.scrbl")
|
||||
|
||||
(makefile git-cli
|
||||
|
||||
(target all
|
||||
(displayln "use (make clean) or (make package)")
|
||||
@@ -17,6 +21,10 @@
|
||||
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "scribblings" #px"[.](css|js|html)$")))
|
||||
)
|
||||
|
||||
(target version
|
||||
(displayln
|
||||
(git 'next-version)))
|
||||
|
||||
(target package
|
||||
(deps clean)
|
||||
(zip-package))
|
||||
@@ -24,9 +32,6 @@
|
||||
(target zip
|
||||
(deps package))
|
||||
|
||||
(define doc-target "docs/git.html")
|
||||
(define doc-src "scribblings/git.scrbl")
|
||||
|
||||
(target doc-target
|
||||
(deps doc-src)
|
||||
(unless (directory-exists? "docs")
|
||||
@@ -49,3 +54,5 @@
|
||||
)
|
||||
(target setup
|
||||
(raco '(setup git)))
|
||||
|
||||
)
|
||||
@@ -0,0 +1,14 @@
|
||||
#lang racket/base
|
||||
|
||||
(require
|
||||
"main.rkt"
|
||||
"private/utils.rkt"
|
||||
racket/string)
|
||||
|
||||
(define (git-cli)
|
||||
(let ((re #px"\s+"))
|
||||
(let loop ()
|
||||
(let ((cmd (string-trim (input-prompt "git>"))))
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user