04/111: build-system/texlive: Add texlive-origin.

[guix-commits]

rekado pushed a commit to branch wip-texlive
in repository guix.

commit 3c36a1a75dc8f8fbdd895b47d7c69ea8a8f173eb
Author: Ricardo Wurmus <address@hidden>
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."