14 lines
210 B
Racket
14 lines
210 B
Racket
#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>"))))
|
|
|
|
|
|
|