From 49b767c5f462dc12da4e80db70e99884f054052f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 4 Jul 2022 00:36:23 +0530
Subject: git: Add clone-options utility.

* tissue/git.scm: Import (bytestructures guile).
(clone-options): New function.
---
 tissue/git.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'tissue')

diff --git a/tissue/git.scm b/tissue/git.scm
index 69e8cb6..c7bf351 100644
--- a/tissue/git.scm
+++ b/tissue/git.scm
@@ -28,13 +28,15 @@
   #:use-module (git)
   #:use-module (git types)
   #:use-module ((system foreign) #:select (%null-pointer))
+  #:use-module (bytestructures guile)
   #:use-module (tissue utils)
   #:export (git-top-level
             current-git-repository
             commit-date
             git-tracked-files
             call-with-file-in-git
-            file-modification-table))
+            file-modification-table
+            clone-options))
 
 ;; We bind additional functions from libgit2 that are not already
 ;; bound in guile-git. TODO: Contribute them to guile-git.
@@ -138,3 +140,11 @@ that modified them."
      #f
      repository)
     result))
+
+(define* (clone-options #:key bare?)
+  (let ((clone-options (make-clone-options)))
+    (bytestructure-set!
+     (clone-options-bytestructure clone-options)
+     'bare
+     (if bare? 1 0))
+    clone-options))
-- 
cgit v1.2.3