12/72: gnu: Add texlive-mfware-bin.

[guix-commits]

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

commit 75a1686ae440683808fac711ae6ff5b4ad5748d3
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Mon May 27 15:27:49 2024 +0200

    gnu: Add texlive-mfware-bin.
    
    * gnu/packages/tex.scm (texlive-mfware-bin): New variable.
    (texlive-mfware)[propagated-inputs]: Add TEXLIVE-MFWARE-BIN.
    (texlive-cm)[arguments]<#:phases>: Call `gftopk' binary from
    TEXLIVE-MFWARE-BIN.
    [native-inputs]: Add TEXLIVE-MFWARE-BIN.
    
    Change-Id: Ic1aaa377fd7137794ff7705a42a4cb69e48f74f5
---
 gnu/packages/tex.scm | 36 +++++++++++++++++++++++++++++++++---
 1 file changed, 33 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 56c23c619f..f47669b083 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -39749,17 +39749,21 @@ part of the cite bundle of the author's 
citation-related packages.")
               (let* ((cwd (getcwd))
                      (pkdir
                       (string-append cwd "/fonts/pk/ljfour/public/cm/dpi600"))
-                     (build-dir (string-append cwd "/build")))
+                     (build-dir (string-append cwd "/build"))
+                     (gftopk
+                      (string-append
+                       #$(this-package-native-input "texlive-mfware-bin")
+                       "/bin/gftopk")))
                 (with-directory-excursion "fonts/source/public/cm/"
                   (mkdir-p pkdir)
                   (for-each
                    (lambda (font)
                      (let ((font-name (basename font ".mf")))
-                       (invoke "gftopk"
+                       (invoke gftopk
                                (string-append build-dir "/" font-name ".600gf")
                                (string-append pkdir "/" font-name ".pk"))))
                    (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$")))))))))
-    (native-inputs (list texlive-metafont))
+    (native-inputs (list texlive-metafont texlive-mfware-bin))
     (home-page "https://ctan.org/pkg/cm";)
     (synopsis "Computer Modern fonts for TeX")
     (description
@@ -40805,6 +40809,7 @@ Taco Hoekwater.")
               "0l0xy2zl7yzb14wbzsg4sz5bdj22ggqlsw54d0yrm430wlr1s6sd")))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
+    (propagated-inputs (list texlive-mfware-bin))
     (home-page "https://ctan.org/pkg/mfware";)
     (synopsis "Supporting tools for use with Metafont")
     (description
@@ -40812,6 +40817,31 @@ Taco Hoekwater.")
 processing the output of Metafont.")
     (license license:public-domain)))
 
+(define-public texlive-mfware-bin
+  (package
+    (inherit texlive-bin)
+    (name "texlive-mfware-bin")
+    (arguments
+     (substitute-keyword-arguments (package-arguments texlive-bin)
+       ((#:configure-flags flags)
+        #~(delete "--enable-web2c" #$flags))
+       ((#:phases phases)
+        #~(modify-phases #$phases
+            (replace 'install
+              (lambda _
+                (with-directory-excursion "texk/web2c"
+                  (let ((bin (string-append #$output "/bin"))
+                        (files '("gftodvi" "gftopk" "gftype" "mft" "pktogf"
+                                 "pktype")))
+                    (for-each (lambda (f) (invoke "make" f)) files)
+                    (for-each (lambda (f) (install-file f bin)) files)))))))))
+    (native-inputs (list pkg-config))
+    (home-page (package-home-page texlive-mfware))
+    (synopsis "Binaries for @code{texlive-mfware}")
+    (description
+     "This package provides the binaries for @code{texlive-mfware}.")
+    (license (package-license texlive-mfware))))
+
 (define-public texlive-milsymb
   (package
     (name "texlive-milsymb")