27 lines
644 B
Racket
27 lines
644 B
Racket
#lang racket/base
|
|
|
|
(require "private/git-provider.rkt"
|
|
"private/git-commands.rkt"
|
|
"private/config.rkt"
|
|
)
|
|
|
|
(provide git)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Provided commands
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(define (git command . args)
|
|
(cond
|
|
([eq? command 'status] (cmd-git-status args))
|
|
([eq? command 'add] (cmd-git-add args))
|
|
(else (error "Not supported git command '~a" command))
|
|
)
|
|
)
|
|
|
|
(define (git-status . args)
|
|
(cmd-git-status args))
|
|
|
|
(define (git-add . args)
|
|
(cmd-git-add args))
|