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 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'bin')

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