#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))