Browse Source

git: Add <git-checkout> record type.

* guix/git.scm (<git-checkout>): New record type.
(latest-repository-commit*): New procedure.
(git-checkout-compiler): New gexp compiler.
gn-latest-20200428
Ludovic Courtès 3 years ago
committed by Ludovic Courtès
parent
commit
49ae3f6d89
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 34
      guix/git.scm

34
guix/git.scm

@ -25,6 +25,8 @@
#:use-module ((guix build utils) #:select (mkdir-p))
#:use-module (guix store)
#:use-module (guix utils)
#:use-module (guix records)
#:use-module (guix gexp)
#:use-module (rnrs bytevectors)
#:use-module (ice-9 match)
#:use-module (srfi srfi-1)
@ -33,7 +35,12 @@
#:use-module (srfi srfi-35)
#:export (%repository-cache-directory
update-cached-checkout
latest-repository-commit))
latest-repository-commit
git-checkout
git-checkout?
git-checkout-url
git-checkout-branch))
(define %repository-cache-directory
(make-parameter (string-append (cache-directory #:ensure? #f)
@ -185,3 +192,28 @@ Log progress and checkout info to LOG-PORT."
(values (add-to-store store name #t "sha256" checkout
#:select? (negate dot-git?))
commit)))
;;;
;;; Checkouts.
;;;
;; Representation of the "latest" checkout of a branch.
(define-record-type* <git-checkout>
git-checkout make-git-checkout
git-checkout?
(url git-checkout-url)
(branch git-checkout-branch (default "master")))
(define latest-repository-commit*
(store-lift latest-repository-commit))
(define-gexp-compiler (git-checkout-compiler (checkout <git-checkout>)
system target)
;; "Compile" CHECKOUT by updating the local checkout and adding it to the
;; store.
(match checkout
(($ <git-checkout> url branch)
(latest-repository-commit* url
#:ref `(branch . ,branch)
#:log-port (current-error-port)))))
Loading…
Cancel
Save