From 2541379ee452e98f38c7a004f70c28024a05589c Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 6 Jul 2019 00:40:28 +0200 Subject: [PATCH] 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 b6a86a1c62..ad99d1e2d0 100644 --- a/guix/build-system/texlive.scm +++ b/guix/build-system/texlive.scm @@ -30,6 +30,7 @@ (define-module (guix build-system texlive) texlive-build texlive-build-system texlive-ref + texlive-origin %texlive-tag %texlive-revision)) @@ -44,6 +45,20 @@ (define-module (guix build-system texlive) (define %texlive-tag "texlive-2018.2") (define %texlive-revision 49435) +(define (texlive-origin name version locations hash) + "Return an 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 object for the package ID, which is part of the given Texlive COMPONENT."