From 57db90b5089fa94016f606236a85c99a1c93555c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 5 Apr 2022 14:31:39 +0530
Subject: git: Abstract out git-top-level.

* tissue/git.scm (git-top-level): New function.
* bin/tissue: Import (tissue git).
(load-config): Use git-top-level.
---
 bin/tissue     | 6 ++----
 tissue/git.scm | 9 ++++++++-
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/bin/tissue b/bin/tissue
index a1b4d88..2d05ba9 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -30,6 +30,7 @@
         (ice-9 popen)
         (ice-9 regex)
         (tissue conditions)
+        (tissue git)
         (tissue issue)
         (tissue tissue)
         (tissue utils)
@@ -353,10 +354,7 @@ Show the text of issue #ISSUE-NUMBER.
   (memoize-thunk
    (lambda ()
      "Load configuration and return <tissue-configuration> object."
-     (load (string-append (call-with-input-pipe
-                           get-line
-                           "git" "rev-parse" "--show-toplevel")
-                          "/tissue.scm")))))
+     (load (string-append (git-top-level) "/tissue.scm")))))
 
 (define tissue-web
   (match-lambda*
diff --git a/tissue/git.scm b/tissue/git.scm
index bd9798d..50da06b 100644
--- a/tissue/git.scm
+++ b/tissue/git.scm
@@ -21,7 +21,14 @@
   #:use-module (srfi srfi-26)
   #:use-module (srfi srfi-171)
   #:use-module (tissue utils)
-  #:export (git-tracked-files))
+  #:export (git-top-level
+            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"))
 
 (define (git-tracked-files)
   "Return a list of all files tracked in the current git repository."
-- 
cgit v1.2.3