25/31: gnu: texlive-uplatex: Fix build.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit a0007cb06b62253fbd5952c45ab8be7083bc18d7
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Tue Aug 15 21:21:36 2023 +0200

    gnu: texlive-uplatex: Fix build.
    
    * gnu/packages/tex.scm (texlive-uplatex)[arguments]<#:phases>: Add a phase 
to
    deal with duplicate "ukinsoku.tex".
---
 gnu/packages/tex.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index fdeb52bfe8..6604cf095a 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -15056,7 +15056,18 @@ barcodes.")
               "0bzkyira30b9xdsdfxjmwzgqffl9pvckz5avm6c3r0bq6asiml9l")))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
-    (arguments (list #:create-formats #~(list "uplatex" "uplatex-dev")))
+    (arguments
+     (list #:create-formats #~(list "uplatex" "uplatex-dev")
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'fix-build
+                 ;; This phase is necessary because the build phase is
+                 ;; reluctant to generate "ukinsoku.tex" since there is
+                 ;; another one among the inputs (texlive-uptex) already.
+                 (lambda _
+                   (substitute* "source/uplatex/base/uplfmt.ins"
+                     (("\\\\keepsilent\n" all)
+                      (string-append all "\\askforoverwritefalse\n"))))))))
     (propagated-inputs
      (list texlive-atbegshi
            texlive-atveryend