24/72: gnu: Add texlive-hitex-bin.

[guix-commits]

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

commit 5445e75606580e44838e577f4f027e01c790dc38
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Mon May 27 18:54:32 2024 +0200

    gnu: Add texlive-hitex-bin.
    
    * gnu/packages/tex.scm (texlive-hitex-bin): New variable.
    (texlive-hitex)[propagated-inputs]: Add TEXLIVE-HITEX-BIN.
    
    Change-Id: I1d116623970d60261b366c5c48e05b2dcf53fbde
---
 gnu/packages/tex.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 0bec02e1b9..88c9656c19 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -16758,6 +16758,7 @@ Indian Type Foundry, with support for LaTeX and 
pdfLaTeX.")
            texlive-etex
            texlive-everyshi
            texlive-firstaid
+           texlive-hitex-bin
            texlive-hyphen-base
            texlive-knuth-lib
            texlive-l3backend
@@ -16784,6 +16785,35 @@ TeX to format a document for nearly-arbitrary values 
of @code{\\hsize} and
 @code{\\vsize}.")
     (license license:x11)))
 
+(define-public texlive-hitex-bin
+  (package
+    (inherit texlive-bin)
+    (name "texlive-hitex-bin")
+    (arguments
+     (substitute-keyword-arguments (package-arguments texlive-bin)
+       ((#:configure-flags flags)
+        #~(cons* "--disable-web2c"
+                 "--enable-hitex"
+                 (delete "--disable-hitex"
+                         (delete "--enable-web2c" #$flags))))
+       ((#:phases phases)
+        #~(modify-phases #$phases
+            (replace 'install
+              (lambda _
+                (with-directory-excursion "texk/web2c"
+                  (let ((bin (string-append #$output "/bin"))
+                        (files '("hishrink" "histretch" "hitex")))
+                    (for-each (lambda (f) (invoke "make" f)) files)
+                    (for-each (lambda (f) (install-file f bin)) files)
+                    (with-directory-excursion bin
+                      (symlink "hitex" "hilatex"))))))))))
+    (native-inputs (list pkg-config))
+    (home-page (package-home-page texlive-hitex))
+    (synopsis "Binaries for @code{texlive-hitex}")
+    (description
+     "This package provides the binaries for @code{texlive-hitex}.")
+    (license (package-license texlive-hitex))))
+
 (define-public texlive-hitszbeamer
   (package
     (name "texlive-hitszbeamer")