Added a skipped-files method.

diff --git a/git-skipper.rkt b/git-skipper.rkt
index fe05ed3..e6ce564 100644 (file)
--- a/git-skipper.rkt
+++ b/git-skipper.rkt
@@ -8,11 +8,13 @@
 
 (define (split-prefix str)
   (define components (string-split str))
-  (define prefix (car components))
+  (define head (car components))
   (define tail (string-join (list-tail components 1)))
-  (cons prefix tail))
+  (cons head tail))
 
-(define (ls-files arg) (map split-prefix (git "ls-files" "-v" arg)))
+(define (ls-files . args) (map split-prefix (git "ls-files" "-v" (string-join args))))
 (define (modified-files) (ls-files "-m"))
+(define (skipped-files) (filter (λ (pair) (equal? "S" (car pair))) (ls-files)))
 
+(skipped-files)
 (modified-files)