Tex packages on core-updates failing

[phodina via <help-guix@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 419 bytes --]

Hi,

I'm attempting to build packages on branch core-updates (3f2b0e12f1ef0cc9e13d5ae00275fee8a0fa752d) and it seems some tex packages are broken.

I've attempted to fix one of them - texlive-amsmath - but there's another failing - texlive-psnfss-fixed.

I've found issue and applied patches about texlive-psnfss but now it does not build. [1]

Could you please help?

[1] https://issues.guix.gnu.org/53454#6

----
Petr

[-- Attachment #2: d9270jmvap4fjl8dlj0fr2k8vlgs16-texlive-psnfss-fixed-59745.drv.gz --]
[-- Type: application/gzip, Size: 5565 bytes --]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: texlive-amsmath.patch --]
[-- Type: text/x-patch; name=texlive-amsmath.patch, Size: 1367 bytes --]

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 7fab21679e..c39a568e2b 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -4168,11 +4168,15 @@ (define-public texlive-amsmath
              (add-before 'copy-files 'unchdir
                (lambda _
                  (chdir "../../..")))
-             (add-after 'copy-files 'delete-extra-files
-               (lambda* (#:key outputs #:allow-other-keys)
-                 (delete-file-recursively
-                  (string-append (assoc-ref outputs "out")
-                                 "/share/texmf-dist/source/latex/amsmath/build"))))))))
+             (replace 'copy-files
+               (lambda* (#:key inputs outputs #:allow-other-keys)
+                 (let ((origin (assoc-ref inputs "source"))
+                       (source (string-append (assoc-ref outputs "out")
+                                              "/share/texmf-dist/source"))
+                       (doc (string-append (assoc-ref outputs "doc")
+                                           "/share/texmf-dist/doc")))
+                   (copy-recursively (string-append origin "/source") source)
+                   (copy-recursively (string-append origin "/doc") doc))))))))
       (home-page "https://www.ctan.org/pkg/amsmath")
       (synopsis "AMS mathematical facilities for LaTeX")
       (description