diff options
| -rw-r--r-- | tissue/git.scm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/tissue/git.scm b/tissue/git.scm index 50da06b..8be3970 100644 --- a/tissue/git.scm +++ b/tissue/git.scm @@ -25,10 +25,16 @@ git-tracked-files)) (define (git-top-level) - "Return the top-level directory of the current git repository." - (call-with-input-pipe - get-line - "git" "rev-parse" "--show-toplevel")) + "Return the top-level directory of the current git +repository." + (let loop ((curdir (getcwd))) + (cond + ((file-exists? (string-append curdir "/.git")) + curdir) + ((string=? curdir "/") + (error "No git top level found")) + (else + (loop (dirname curdir)))))) (define (git-tracked-files) "Return a list of all files tracked in the current git repository." |