gnu: texlive-xmltex: Rely on build system to create formats.

* gnu/packages/tex.scm (texlive-xmltex)[arguments]: Use #:CREATE-FORMATS.
Remove useless phase.
[propagated-inputs]: Remove call to TEXLIVE-UPDMAP.CFG.  Remove
TEXLIVE-AMSFONTS, TEXLIVE-COURIER, TEXLIVE-DEHYPH, TEXLIVE-HELVETIC,
TEXLIVE-HYPERREF, TEXLIVE-HYPHEN-BASE, TEXLIVE-HYPH-UTF8, TEXLIVE-STMARYRD,
TEXLIVE-SYMBOL, TEXLIVE-TIMES, TEXLIVE-TIPA, TEXLIVE-WASY, TEXLIVE-ZAPFDING.
Add TEXLIVE-HYPHEN-COMPLETE, TEXLIVE-LATEX, TEXLIVE-LATEXCONFIG,
TEXLIVE-PDFTEX, TEXLIVE-TEX, TEXLIVE-UNICODE-DATA.
This commit is contained in:
Nicolas Goaziou 2023-06-04 00:58:24 +02:00
parent 3801cb2b3e
commit 0eb2181d4b
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D

View file

@ -3764,60 +3764,34 @@ (define-public texlive-xmltex
(build-system texlive-build-system) (build-system texlive-build-system)
(arguments (arguments
(list (list
#:create-formats #~(list "pdfxmltex" "xmltex")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'install 'generate-formats (add-after 'install 'install-wrappers
(lambda _
(let ((web2c (string-append (getcwd) "/web2c")))
(mkdir "web2c")
(with-directory-excursion "tex/xmltex/base/"
(invoke "fmtutil-sys"
"--byfmt" "xmltex"
(string-append"--fmtdir=" web2c))
(invoke "fmtutil-sys"
"--byfmt" "pdfxmltex"
(string-append "--fmtdir=" web2c))))))
(add-after 'install 'install-formats-and-wrappers
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((pdftex (search-input-file inputs "/bin/pdftex")) (let ((pdftex (search-input-file inputs "/bin/pdftex"))
(web2c (string-append #$output "/share/texmf-dist/web2c"))) (web2c (string-append #$output "/share/texmf-dist/web2c")))
(mkdir-p web2c)
(copy-recursively "web2c" web2c)
(for-each delete-file (find-files web2c "\\.log$"))
;; Create convenience command wrappers.
(mkdir-p (string-append #$output "/bin")) (mkdir-p (string-append #$output "/bin"))
(symlink pdftex (string-append #$output "/bin/xmltex")) (symlink pdftex (string-append #$output "/bin/xmltex"))
(symlink pdftex (string-append #$output "/bin/pdfxmltex")))))))) (symlink pdftex (string-append #$output "/bin/pdfxmltex"))))))))
(native-inputs
(list texlive-tex-ini-files
texlive-xmltexconfig))
(propagated-inputs (propagated-inputs
(list (texlive-updmap.cfg (list texlive-atbegshi
(list texlive-amsfonts
texlive-babel
texlive-courier
texlive-helvetic
texlive-hyperref
texlive-latex-fonts
texlive-stmaryrd
texlive-symbol
texlive-times
texlive-tipa
texlive-wasy
texlive-zapfding))
texlive-atbegshi
texlive-atveryend texlive-atveryend
texlive-babel texlive-babel
texlive-cm texlive-cm
texlive-dehyph
texlive-everyshi texlive-everyshi
texlive-firstaid texlive-firstaid
texlive-hyph-utf8 texlive-hyphen-complete
texlive-hyphen-base
texlive-l3backend texlive-l3backend
texlive-l3kernel texlive-l3kernel
texlive-l3packages texlive-l3packages
texlive-latex
texlive-latex-fonts
texlive-latexconfig
texlive-pdftex
texlive-tex
texlive-tex-ini-files texlive-tex-ini-files
texlive-unicode-data
texlive-xmltexconfig)) texlive-xmltexconfig))
(home-page "https://ctan.org/pkg/xmltex") (home-page "https://ctan.org/pkg/xmltex")
(synopsis "Support for parsing XML documents") (synopsis "Support for parsing XML documents")