394/409: gnu: texlive-mflogo-font: Fix build.

[guix-commits]

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

commit 3a35ce48cea54732367fa7af6d6a02c7fe739a00
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
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 73257ee82a..cb416e8b2e 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -1556,39 +1556,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