First setup with git cli utility

2026-08-12 14:13:40 +02:00
parent 6f558868a1
commit 5ee7145ac7
7 changed files with 288 additions and 3 deletions
@@ -1 +1,26 @@
-#lang racket/base
+#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))