123/141: gnu: texlive-csplain: Create missing symlinks.

[guix-commits]

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

commit a55c1efc6ca923fff5b86d5f86a28a1e3c1f2cb6
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun Jun 23 11:05:52 2024 +0200

    gnu: texlive-csplain: Create missing symlinks.
    
    * gnu/packages/tex.scm (texlive-csplain)[arguments]<#:phases>: Create 
missing
    symlinks.
    
    Change-Id: Ibf7a4ad521da7a69a00d59e1b8d4797873526fea
---
 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 1a9b1e2a88..b9a2ce891f 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -61289,7 +61289,19 @@ available.")
     (properties '((updater-extra-native-inputs "texlive-xetex")))
     (build-system texlive-build-system)
     (arguments
-     (list #:create-formats #~(list "csplain" "luacsplain" "pdfcsplain")))
+     (list #:create-formats #~(list "csplain" "luacsplain" "pdfcsplain")
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'symlink-binaries
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let ((pdftex (search-input-file inputs "bin/pdftex"))
+                         (luatex (search-input-file inputs "bin/luatex"))
+                         (bin (string-append #$output "/bin")))
+                     (mkdir-p bin)
+                     (with-directory-excursion bin
+                       (symlink pdftex "csplain")
+                       (symlink pdftex "pdfcsplain")
+                       (symlink luatex "luacsplain"))))))))
     (native-inputs (list texlive-xetex))
     (propagated-inputs
      (list texlive-cm