126/141: gnu: texlive-mex: Create missing symlinks.

[guix-commits]

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

commit 7523097e043a6cb1bac2315cc1f0f7f20d39f45c
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun Jun 23 11:18:08 2024 +0200

    gnu: texlive-mex: Create missing symlinks.
    
    * gnu/packages/tex.scm (texlive-mex)[arguments]<#:phases>: Create missing
    symlinks.
    
    Change-Id: I434db9503f3c04aeb27b0daf712cf45187d140a6
---
 gnu/packages/tex.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index c2d9348c93..3403f1f210 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -26680,7 +26680,19 @@ with symbols, giving automatic alignment.")
                 "0kc766cvvbcqrj60ncz4a105nrn454y5c2330y7s7jzh45dx8qsi"))))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
-    (arguments (list #:create-formats #~(list "mex" "pdfmex" "utf8mex")))
+    (arguments
+     (list #:create-formats #~(list "mex" "pdfmex" "utf8mex")
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'symlink-binaries
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let ((pdftex (search-input-file inputs "bin/pdftex"))
+                         (bin (string-append #$output "/bin")))
+                     (mkdir-p bin)
+                     (with-directory-excursion bin
+                       (symlink pdftex "mex")
+                       (symlink pdftex "pdfmex")
+                       (symlink pdftex "utf8mex"))))))))
     (propagated-inputs
      (list texlive-enctex
            texlive-hyphen-complete