ngz pushed a commit to branch tex-team-next
in repository guix.
commit 64750677204c309b9da493e12b7313f2c11cfcdc
Author: Nicolas Goaziou <[email protected]>
AuthorDate: Fri May 19 16:31:54 2023 +0200
gnu: texlive-mflogo-font: Fix build.
* gnu/packages/tex.scm (texlive-mflogo-font)[arguments]: Remove them.
[native-inputs]: Remove TEXLIVE-BIN.
---
gnu/packages/tex.scm | 34 +---------------------------------
1 file changed, 1 insertion(+), 33 deletions(-)
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index d51d41ee55..bcfce460ff 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -1554,39 +1554,7 @@ circle fonts (for use in the picture environment) and
LaTeX symbol fonts.")
"1r53qlrcqfwc0dfr7ji1nxnqrj6n0qrlg1rl7fjlw6ap3q9y434k")))
(outputs '("out" "doc"))
(build-system texlive-build-system)
- (arguments
- (list
- #:phases
- #~(modify-phases %standard-phases
- (add-after 'build 'build-font-metrics
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((root (assoc-ref inputs "source"))
- (mf #$(this-package-native-input "texlive-metafont"))
- (kl #$(this-package-native-input "texlive-knuth-lib")))
- ;; Tell mf where to find mf.base.
- (setenv "MFBASES"
- (string-append mf "/share/texmf-dist/web2c"))
- ;; Tell mf where to look for source files.
- (setenv "MFINPUTS"
- (string-append root ":"
- mf "/share/texmf-dist/metafont/base:"
- kl
"/share/texmf-dist/fonts/source/public/knuth-lib:"
- root "/fonts/source/public/mflogo/"))
- (for-each (lambda (font)
- (format #t "building font ~a\n" font)
- (invoke "mf" "-progname=mf"
- "-output-directory=build"
- (string-append "\\"
- "mode:=ljfour; "
- "mag:=1; "
- "scrollmode; "
- "input " (basename font))))
- (find-files
- (string-append root
- "/fonts/source/public/mflogo/")
- "\\.mf$"))))))))
- (native-inputs
- (list texlive-bin texlive-knuth-lib texlive-metafont))
+ (native-inputs (list texlive-knuth-lib texlive-metafont))
(home-page "https://ctan.org/pkg/mflogo";)
(synopsis "LaTeX support for Metafont logo fonts")
(description
