130/141: gnu: texlive-uplatex: Create missing symlink.

[guix-commits]

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

commit b9421b23ec4ec72b4b42386a5735ae695712aa71
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun Jun 23 11:24:47 2024 +0200

    gnu: texlive-uplatex: Create missing symlink.
    
    * gnu/packages/tex.scm (texlive-uplatex)[arguments]<#:phases>: Create 
missing
    symlink.
    
    Change-Id: I2f1d251f1826d7386507dd5717bebb8652614b3d
---
 gnu/packages/tex.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index d7e63cbd1e..1623cf8eea 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -46357,7 +46357,14 @@ barcodes.")
                  (lambda _
                    (substitute* "source/uplatex/base/uplfmt.ins"
                      (("\\\\keepsilent\n" all)
-                      (string-append all "\\askforoverwritefalse\n"))))))))
+                      (string-append all "\\askforoverwritefalse\n")))))
+               (add-after 'install 'symlink-binaries
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let ((euptex (search-input-file inputs "bin/euptex"))
+                         (bin (string-append #$output "/bin")))
+                     (mkdir-p bin)
+                     (with-directory-excursion bin
+                       (symlink euptex "uplatex"))))))))
     (propagated-inputs
      (list texlive-atbegshi
            texlive-atveryend