06/06: gnu: texlive: Update to 20230313.

[guix-commits]

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

commit d1749cc72801c08ec09344e80355ddf7e7b123a8
Author: Andreas Enge <andreas@enge.fr>
AuthorDate: Mon Aug 7 15:20:06 2023 +0200

    gnu: texlive: Update to 20230313.
    
    Use full date for version again, since numerically 2023 is smaller than
    20210325, so the update would be considered a downgrade.
    
    * gnu/packages/texlive.scm (%texlive-date): Update to 20230313.
    (%texlive-version): Rename to...
    (%texlive-year): ...this.
    (texlive-extra-src, texlive-texmf-src, texlivebin): Update source hashes.
    (texlivebin, texlivetexmf, texlive): Use %texlive-date for version.
    (texlivebin): Remove 'skip-mendex-tests phase, which does not apply
    any more.
---
 gnu/packages/texlive.scm | 30 ++++++++++--------------------
 1 file changed, 10 insertions(+), 20 deletions(-)

diff --git a/gnu/packages/texlive.scm b/gnu/packages/texlive.scm
index c11b4b7e08..04fff79986 100644
--- a/gnu/packages/texlive.scm
+++ b/gnu/packages/texlive.scm
@@ -72,39 +72,39 @@
   #:use-module (gnu packages xorg))
 
 (define %texlive-date "20230313")
-(define %texlive-version (string-take %texlive-date 4))
+(define %texlive-year (string-take %texlive-date 4))
 
 (define texlive-extra-src
   (origin
     (method url-fetch)
     (uri (string-append "ftp://tug.org/historic/systems/texlive/";
-                        %texlive-version "/texlive-"
+                        %texlive-year "/texlive-"
                         %texlive-date "-extra.tar.xz"))
     (sha256 (base32
-             "15ljdlxvv051q3fq5rn1ncfk0z9a8cbchqfdpv3qrgj7i4vcz102"))))
+             "1hiqvdg679yadygf23f37b3dz5ick258k1qcam9nhkhprkx7d9l0"))))
 
 (define texlive-texmf-src
   (origin
     (method url-fetch)
     (uri (string-append "ftp://tug.org/historic/systems/texlive/";
-                        %texlive-version "/texlive-"
+                        %texlive-year "/texlive-"
                         %texlive-date "-texmf.tar.xz"))
     (sha256 (base32
-             "05iz38v2j0aih3zc20qdlajk8b72ark7zz3cfq9dvlgpn43jnarp"))))
+             "0lqjm11pr9vasvivaci3k9xcmdyd08ldnh31zf8avjjs09xcfkac"))))
 
 (define-public texlivebin
   (package
     (name "texlivebin")
-    (version %texlive-version)
+    (version %texlive-date)
     (source
      (origin
        (method url-fetch)
        (uri (string-append "ftp://tug.org/historic/systems/texlive/";
-                           %texlive-version "/texlive-"
+                           %texlive-year "/texlive-"
                            %texlive-date "-source.tar.xz"))
        (sha256
         (base32
-         "0mlv2zb4zkabvf97sdakkv5xfywxkg30yicn0i4w9chywn2k9yjz"))
+         "1fbrkv7g9j6ipmwjx27l8l9l974rmply8bhf7c2iqc6h3q7aly1q"))
        (modules '((guix build utils)
                   (ice-9 ftw)))
        (snippet
@@ -231,16 +231,6 @@
              (substitute* "texk/web2c/omegafonts/check.test"
                (("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck 
\\|\\| exit 1")
                 "./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 
77"))))
-         ,@(if (or (target-ppc32?)
-                   (target-riscv64?))
-             ;; Some mendex tests fail on some architectures.
-             `((add-after 'unpack 'skip-mendex-tests
-                 (lambda _
-                   (substitute* '("texk/mendexk/tests/mendex.test"
-                                  "texk/upmendex/tests/upmendex.test")
-                     (("srcdir/tests/pprecA-0.ind pprecA-0.ind1 \\|\\| exit 1")
-                      "srcdir/tests/pprecA-0.ind pprecA-0.ind1 || exit 77")))))
-             '())
          (add-after 'unpack 'unpack-texlive-extra
            (lambda* (#:key inputs #:allow-other-keys)
              (mkdir "texlive-extra")
@@ -325,7 +315,7 @@ This package contains the binaries.")
 (define-public texlivetexmf
   (package
    (name "texlivetexmf")
-   (version %texlive-version)
+   (version %texlive-date)
    (source texlive-texmf-src)
    (build-system gnu-build-system)
    (inputs
@@ -407,7 +397,7 @@ This package contains the complete tree of texmf-dist 
data.")
 (define-public texlive
   (package
    (name "texlive")
-   (version %texlive-version)
+   (version %texlive-date)
    (source #f)
    (build-system trivial-build-system)
    (inputs `(("bash" ,bash-minimal)     ;for wrap-program