From 01a33939c54cf5bc3bb22e2207925f510b288291 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Sun, 23 Jun 2024 11:07:12 +0200
Subject: [PATCH] gnu: texlive-eplain: Create missing symlink.

* gnu/packages/tex.scm (texlive-eplain)[arguments]<#:phases>: Create missing
symlink.

Change-Id: I4183b1bd6a7d699fc5a802b6da0330664f2f524b
---
 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 91ff741c251..999d832fc6e 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -15652,7 +15652,17 @@ Cosmetica font, which is a similar design to Optima and includes Greek.")
                 "00nmqhfckrf8ygw6i93d5xnf85i8a88ryadb5ml73w4rllwjxr72"))))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
-    (arguments (list #:create-formats #~(list "eplain")))
+    (arguments
+     (list #:create-formats #~(list "eplain")
+           #: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 "eplain"))))))))
     (propagated-inputs
      (list texlive-atbegshi
            texlive-atveryend