From bddf05502aadd0936a3211a710bb09f564222b3e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 23 Jun 2022 18:05:25 +0530
Subject: git: Add current-git-repository utility function.

* tissue/git.scm (current-git-repository): New public function.
---
 tissue/git.scm | 5 +++++
 1 file changed, 5 insertions(+)

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
-- 
cgit v1.2.3