web: Do not temporarily checkout repository when serving it.

Now that snippet source texts are interred into the xapian index, the
web server does not need a repository checkout.

* bin/tissue (tissue-web): Do not temporarily checkout repositories
being served.
* tissue/web/server.scm (handler): Do not change into repository
directory.
* tissue/git.scm (call-with-temporary-checkouts): Delete function.
* .dir-locals.el (scheme-mode): Unregister it.

1 files changed, 1 insertions, 13 deletions

diff --git a/tissue/git.scm b/tissue/git.scm
index b67d65c..4289d65 100644
--- a/tissue/git.scm
+++ b/tissue/git.scm
@@ -48,8 +48,7 @@
             call-with-file-in-git
             file-modification-table
             clone-options
-            call-with-temporary-checkout
-            call-with-temporary-checkouts))
+            call-with-temporary-checkout))
 
 ;; We bind additional functions from libgit2 that are not already
 ;; bound in guile-git. TODO: Contribute them to guile-git.
@@ -223,14 +222,3 @@ checkout when PROC returns or exits non-locally."
      (proc temporary-checkout))
    ;; The system-dependent temporary directory
    (dirname (tmpnam))))
-
-(define (call-with-temporary-checkouts repositories proc)
-  "Call PROC with temporary checkouts of REPOSITORIES, and delete the
-checkouts when PROC returns or exits non-locally."
-  (match repositories
-    ((repository other-repositories ...)
-     (call-with-temporary-checkout repository
-       (lambda (checkout)
-         (call-with-temporary-checkouts other-repositories
-           (cut proc checkout <...>)))))
-    (() (proc))))