diff options
| -rw-r--r-- | tissue/git.scm | 12 |
1 files changed, 11 insertions, 1 deletions
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)) |