94/141: gnu: Remove artefacts from previous TeX Live packaging.

[guix-commits]

ngz pushed a commit to branch tex-team
in repository guix.

commit b0d97398c47d24059aba2cb0de4f3508f4cedcef
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Fri Jun 21 12:03:15 2024 +0200

    gnu: Remove artefacts from previous TeX Live packaging.
    
    * guix/build-system/texlive.scm (%texlive-tag):
    (%texlive-revision):
    (texlive-origin):
    (texlive-ref): Remove variables.
    
    Change-Id: Ic9b2fed76fc1dd1ff02fc567c3d88a941927452b
---
 guix/build-system/texlive.scm | 38 +-------------------------------------
 1 file changed, 1 insertion(+), 37 deletions(-)

diff --git a/guix/build-system/texlive.scm b/guix/build-system/texlive.scm
index c3bed76d6c..f5dd8ac69c 100644
--- a/guix/build-system/texlive.scm
+++ b/guix/build-system/texlive.scm
@@ -30,13 +30,9 @@
   #:use-module (guix svn-download)
   #:export (%texlive-build-system-modules
             %texlive-repository
-            %texlive-revision
-            %texlive-tag
             texlive-build
             texlive-build-system
-            texlive-origin
-            texlive-packages-repository
-            texlive-ref))
+            texlive-packages-repository))
 
 ;; Commentary:
 ;;
@@ -51,38 +47,6 @@
   (string-append
    %texlive-repository "tags/texlive-" version "/Master/texmf-dist"))
 
-;; These variables specify the SVN tag and the matching SVN revision.  They
-;; are taken from https://www.tug.org/svn/texlive/tags/
-(define %texlive-tag "texlive-2023.0")
-(define %texlive-revision 66594)
-
-(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 #:optional id)
-  "Return a <svn-reference> object for the package ID, which is part of the
-given Texlive COMPONENT.  If ID is not provided, COMPONENT is used as the top
-level package ID."
-  (svn-reference
-   (url (string-append "svn://www.tug.org/texlive/tags/"
-                       %texlive-tag "/Master/texmf-dist/"
-                       "source/" component
-                       (if id
-                           (string-append "/" id)
-                           "")))
-   (revision %texlive-revision)))
-
 (define %texlive-build-system-modules
   ;; Build-side modules imported by default.
   `((guix build texlive-build-system)