From d93d72c7378e18d216840f9920448bf111ade733 Mon Sep 17 00:00:00 2001
From: sabadev <saba@sabadev.xyz>
Date: Sun, 11 Jul 2021 20:49:50 -0400
Subject: [PATCH] Added methods to execute 'git ls-files'.

---
 git-skipper.rkt | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/git-skipper.rkt b/git-skipper.rkt
index 7bc35af..2d7d35f 100644
--- a/git-skipper.rkt
+++ b/git-skipper.rkt
@@ -1 +1,12 @@
 #lang racket/base
+
+(require racket/system
+         racket/port
+         racket/string)
+
+(define (git . args) (string-split (with-output-to-string (λ () (system (string-join (cons "git" args))))) "\n"))
+
+(define (ls-files arg) (git "ls-files" "-v" arg))
+(define (modified-files) (ls-files "-m"))
+
+(modified-files)
-- 
2.20.1