17/81: gnu: Add texlive-fontware-bin.

[guix-commits]

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

commit 784204012d4c81bf181f7102bdb54fad3e57ce50
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Mon May 27 16:11:20 2024 +0200

    gnu: Add texlive-fontware-bin.
    
    * gnu/packages/tex.scm (texlive-fontware-bin): New variable.
    (texlive-fontware)[propagated-inputs]: Add TEXLIVE-FONTWARE-BIN.
    
    Change-Id: I5c59658aeab1a3cb289e87f77fae9436acae8a7f
---
 gnu/packages/tex.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index cb2a708888..0d652797f5 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -34825,6 +34825,7 @@ sources, and with LaTeX @file{.fd} files.")
               "0ng27m6cz92aa52z99gnw5i8s8fbkxq4354mygwnchchgxndcba0")))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
+    (propagated-inputs (list texlive-fontware-bin))
     (home-page "https://ctan.org/pkg/vfware";)
     (synopsis "Tools for virtual font metrics")
     (description
@@ -34836,6 +34837,30 @@ generates a VF file and a TFM file; @command{vftovp} 
takes a VF file and a TFM
 file and generates a VPL file.")
     (license license:knuth)))
 
+(define-public texlive-fontware-bin
+  (package
+    (inherit texlive-bin)
+    (name "texlive-fontware-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 '("pltotf" "tftopl" "vftovp" "vptovf")))
+                    (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-fontware))
+    (synopsis "Binaries for @code{texlive-fontware}")
+    (description
+     "This package provides the binaries for @code{texlive-fontware}.")
+    (license (package-license texlive-fontware))))
+
 (define-public texlive-forest-quickstart
   (package
     (name "texlive-forest-quickstart")