19/78: gnu: Add texlive-patgen-bin.

[guix-commits]

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

commit 0cdece316852812f2262d5c0382b7a18364c0420
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Mon May 27 16:13:52 2024 +0200

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

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 6063588b49..e9569dfb4e 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -38981,7 +38981,7 @@ considered as word, header etc.")
               "03y05mv0n04hyj0lcq54grx7w5wv95h61j6xlx2jc9v0ib9akq4y")))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
-    (propagated-inputs (list texlive-kpathsea))
+    (propagated-inputs (list texlive-kpathsea texlive-patgen-bin))
     (home-page "https://ctan.org/pkg/patgen";)
     (synopsis "Generate hyphenation patterns")
     (description
@@ -38989,6 +38989,29 @@ considered as word, header etc.")
 that can be used by the TeX 82 hyphenation algorithm.")
     (license license:public-domain)))
 
+(define-public texlive-patgen-bin
+  (package
+    (inherit texlive-bin)
+    (name "texlive-patgen-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"
+                  (invoke "make" "patgen")
+                  (install-file "patgen"
+                                (string-append #$output "/bin")))))))))
+    (native-inputs (list pkg-config))
+    (home-page (package-home-page texlive-patgen))
+    (synopsis "Binary for @code{texlive-patgen}")
+    (description
+     "This package provides the binary for @code{texlive-patgen}.")
+    (license (package-license texlive-patgen))))
+
 (define-public texlive-pdfbook2
   (package
     (name "texlive-pdfbook2")