From 7e30fd530eb2d803bebe57901e252bb3148b634e Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 3 Jul 2023 09:24:51 +0200 Subject: [PATCH] gnu: texlive-mptopdf: Fix package. * gnu/packages/tex.scm (texlive-mptopdf)[source]: Only grab specific "mptopdf.pl" scripts, not all other scripts in the same directory. [arguments]<#:phases>: Add a phase to use provided Perl. [inputs]: Add PERL. --- gnu/packages/tex.scm | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index 54a7966f05..fa7db3c180 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -1532,21 +1532,28 @@ information in the TFM file.") (version (number->string %texlive-revision)) (source (texlive-origin name version - ;; The first location prevents from downloading all ConTeXt - ;; "doc/context/scripts/mkii" directory. (list "doc/context/scripts/mkii/mptopdf.man" "doc/man/man1/mptopdf.1" "doc/man/man1/mptopdf.man1.pdf" - "scripts/context/perl/" + "scripts/context/perl/mptopdf.pl" "tex/context/base/mkii/" "tex/generic/context/mptopdf/") (base32 - "08z0hxq0645lf8jyl0wq3kwn1f7xsvj736sqgfin9ldd89zc2ch3"))) + "19kpqbkmz8al9wxn83fmg89fyv2pl2iqgnh256wi6pz4q3p77f0d"))) (outputs '("out" "doc")) (build-system texlive-build-system) (arguments - (list #:link-scripts #~(list "mptopdf.pl") - #:create-formats #~(list "mptopdf"))) + (list + #:link-scripts #~(list "mptopdf.pl") + #:create-formats #~(list "mptopdf") + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'fix-perl-header + (lambda* (#:key inputs #:allow-other-keys) + (let ((perl (search-input-file inputs "/bin/perl"))) + (substitute* "scripts/context/perl/mptopdf.pl" + (("exec perl") (string-append "exec " perl))))))))) + (inputs (list perl)) (propagated-inputs (list texlive-plain)) (home-page "https://ctan.org/pkg/mptopdf") (synopsis "mpost to PDF, native MetaPost graphics inclusion")