128/141: gnu: texlive-optex: Create missing symlink.

[guix-commits]

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

commit 2f7289da9586cdb2e88fd485d0ac4a0fe069956d
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun Jun 23 11:21:18 2024 +0200

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

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 5d39e48069..960246194e 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -71829,7 +71829,17 @@ and back-ends.  It also ensures compatibility with the 
@code{media9} and
                 "0bcrj9wrimcd2pxrcfk7x3vkhxzij4422l19a8j4h299lkq3pbx0"))))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
-    (arguments (list #:create-formats #~(list "optex")))
+    (arguments
+     (list #:create-formats #~(list "optex")
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'symlink-binaries
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let ((luatex (search-input-file inputs "bin/luatex"))
+                         (bin (string-append #$output "/bin")))
+                     (mkdir-p bin)
+                     (with-directory-excursion bin
+                       (symlink luatex "optex"))))))))
     (propagated-inputs
      (list texlive-amsfonts
            texlive-cm