git: Add condition-git-error utility.

* tissue/git.scm: Import (rnrs conditions) and (srfi srfi-1).
(condition-git-error): New public function.
* bin/tissue (default-configuration): Use condition-git-error.

1 files changed, 4 insertions, 6 deletions

diff --git a/bin/tissue b/bin/tissue
index 1dab955..946a240 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -222,12 +222,10 @@ Export the repository as a website to OUTPUT-DIRECTORY.
     (state-directory . "/var/lib/tissue")
     ;; Assume current repository as default. If there is no current
     ;; repository, do not configure any hosts.
-    (hosts . ,(guard (c ((and (irritants-condition? c)
-                              (match (condition-irritants c)
-                                ((git-error _ ...)
-                                 (= (git-error-code git-error)
-                                    GIT_ENOTFOUND))
-                                (_ #f)))
+    (hosts . ,(guard (c ((let ((git-error (condition-git-error c)))
+                           (and git-error
+                                (= (git-error-code git-error)
+                                   GIT_ENOTFOUND)))
                          '()))
                 `(("localhost"
                    (upstream-repository . ,(git-top-level))))))))