Split prefix from filepath for ls-files.

diff --git a/git-skipper.rkt b/git-skipper.rkt
index 2d7d35f..fe05ed3 100644 (file)
--- a/git-skipper.rkt
+++ b/git-skipper.rkt
@@ -6,7 +6,13 @@
 
 (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 (split-prefix str)
+  (define components (string-split str))
+  (define prefix (car components))
+  (define tail (string-join (list-tail components 1)))
+  (cons prefix tail))
+
+(define (ls-files arg) (map split-prefix (git "ls-files" "-v" arg)))
 (define (modified-files) (ls-files "-m"))
 
 (modified-files)