133/141: gnu: texlive-jadetex: Small refactoring.

[guix-commits]

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

commit f0608f79c66d1af1120133896bb2035702a16cdc
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun Jun 23 11:28:00 2024 +0200

    gnu: texlive-jadetex: Small refactoring.
    
    * gnu/packages/tex.scm (texlive-jadetex)[arguments]<#:phases>: Small 
refactoring.
    
    Change-Id: Idfce791bd7f3b0a1c5ce509ef90ddb9044c78ee3
---
 gnu/packages/tex.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index cf24cdcf83..ed6e4d8559 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -70379,12 +70379,11 @@ of ink traps which typify the Kurier font.")
           (add-after 'install 'install-wrappers
             (lambda* (#:key inputs #:allow-other-keys)
               (let ((pdftex (search-input-file inputs "/bin/pdftex"))
-                    (web2c (string-append #$output "/share/texmf-dist/web2c")))
-                (mkdir-p (string-append #$output "/bin"))
-                (symlink pdftex
-                         (string-append #$output "/bin/jadetex"))
-                (symlink pdftex
-                         (string-append #$output "/bin/pdfjadetex"))))))))
+                    (bin (string-append #$output "/bin")))
+                (mkdir-p bin)
+                (with-directory-excursion bin
+                  (symlink pdftex "jadetex")
+                  (symlink pdftex "pdfjadetex"))))))))
     (propagated-inputs
      (list texlive-amsfonts
            texlive-atbegshi