From d2427c7a2102720e86323f17ba8da1174d40880c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 23 Jun 2022 18:06:28 +0530
Subject: git: Pass repository argument to git-tracked-files.

Accepting a repository argument makes git-tracked-files a better
stand-alone utility.

* tissue/git.scm (git-tracked-files): Accept repository argument.
* tissue/tissue.scm (gemtext-files-in-directory): Pass repository
argument to git-tracked-files.
---
 tissue/git.scm    | 11 +++++------
 tissue/tissue.scm |  2 +-
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/tissue/git.scm b/tissue/git.scm
index 84dd1ec..c31ebd1 100644
--- a/tissue/git.scm
+++ b/tissue/git.scm
@@ -175,10 +175,9 @@ 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
-current git repository and do not have a leading slash."
+(define (git-tracked-files repository)
+  "Return a list of all files tracked in REPOSITORY. The returned
+filenames are relative to the top-level directory of REPOSITORY and do
+not have a leading slash."
   (map index-entry-path
-       (index-entries (repository-index
-                       (repository-open (git-top-level))))))
+       (index-entries (repository-index repository))))
diff --git a/tissue/tissue.scm b/tissue/tissue.scm
index 194587d..decd630 100644
--- a/tissue/tissue.scm
+++ b/tissue/tissue.scm
@@ -53,7 +53,7 @@ which directory they are in."
             (and (or (not directory)
                      (string-prefix? directory filename))
                  (string-suffix? ".gmi" filename)))
-          (git-tracked-files)))
+          (git-tracked-files (current-git-repository))))
 
 (define-syntax tissue-configuration
   (lambda (x)
-- 
cgit v1.2.3