rekado pushed a commit to branch wip-texlive
in repository guix.
commit 2541379ee452e98f38c7a004f70c28024a05589c
Author: Ricardo Wurmus <[email protected]>
Date: Sat Jul 6 00:40:28 2019 +0200
build-system/texlive: Add texlive-origin.
* guix/build-system/texlive.scm (texlive-origin): New procedure.
---
guix/build-system/texlive.scm | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/guix/build-system/texlive.scm b/guix/build-system/texlive.scm
index b6a86a1..ad99d1e 100644
--- a/guix/build-system/texlive.scm
+++ b/guix/build-system/texlive.scm
@@ -30,6 +30,7 @@
texlive-build
texlive-build-system
texlive-ref
+ texlive-origin
%texlive-tag
%texlive-revision))
@@ -44,6 +45,20 @@
(define %texlive-tag "texlive-2018.2")
(define %texlive-revision 49435)
+(define (texlive-origin name version locations hash)
+ "Return an <origin> object for a TeX Live package consisting of multiple
+LOCATIONS with a provided HASH. Use NAME and VERSION to compute a prettier
+name for the checkout directory."
+ (origin
+ (method svn-multi-fetch)
+ (uri (svn-multi-reference
+ (url (string-append "svn://www.tug.org/texlive/tags/"
+ %texlive-tag "/Master/texmf-dist/"))
+ (locations locations)
+ (revision %texlive-revision)))
+ (file-name (string-append name "-" version "-checkout"))
+ (sha256 hash)))
+
(define (texlive-ref component id)
"Return a <svn-reference> object for the package ID, which is part of the
given Texlive COMPONENT."
