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.

1 files changed, 2 insertions, 4 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*