18/141: gnu: Add texlive-texware-bin.

[guix-commits]

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

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

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

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 0d652797f5..6ca72f86bd 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -43459,6 +43459,7 @@ university, is proposed.")
               "122r0aq02vwx6irsnapnfbvhgy5d09x90rc8zc7a0bi7b25bxnd1")))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
+    (propagated-inputs (list texlive-texware-bin))
     (home-page "https://ctan.org/pkg/texware";)
     (synopsis "Utility programs for use with TeX")
     (description
@@ -43470,6 +43471,30 @@ convert TeX Font Metric (TFM) file to human readable 
Property List (PL) files
 and vice versa.")
     (license license:public-domain)))
 
+(define-public texlive-texware-bin
+  (package
+    (inherit texlive-bin)
+    (name "texlive-texware-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 '("dvitype" "pooltype")))
+                    (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-texware))
+    (synopsis "Binaries for @code{texlive-texware}")
+    (description
+     "This package provides the binaries for @code{texlive-texware}.")
+    (license (package-license texlive-texware))))
+
 (define-public texlive-ticollege
   (package
     (name "texlive-ticollege")