diff options
| -rw-r--r-- | tissue/git.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tissue/git.scm b/tissue/git.scm index 5cc8a52..84dd1ec 100644 --- a/tissue/git.scm +++ b/tissue/git.scm @@ -38,6 +38,7 @@ #:use-module ((bytestructures guile) #:prefix bs:) #:use-module (tissue utils) #:export (git-top-level + current-git-repository git-tracked-files)) ;; We bind additional functions from libgit2 that are not already @@ -170,6 +171,10 @@ repository." (else (loop (dirname curdir)))))) +(define (current-git-repository) + "Return the current git repository." + (repository-open (git-top-level))) + (define (git-tracked-files) "Return a list of all files tracked in the current git repository. The returned filenames are relative to the top-level directory of the |