33/72: gnu: Add texlive-dvips-bin.

[guix-commits]

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

commit 0507749bd312337db62cedecb5e810a05668f497
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Tue May 28 00:02:13 2024 +0200

    gnu: Add texlive-dvips-bin.
    
    * gnu/packages/tex.scm (texlive-dvips-bin): New variable.
    (texlive-dvips)[propagated-inputs]: Add TEXLIVE-DVIPS-BIN.
    
    Change-Id: Ia4691342a105bae0571a94e86ad08155e0524ebb
---
 gnu/packages/tex.scm | 70 +++++++++++++++++++++++++++++-----------------------
 1 file changed, 39 insertions(+), 31 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 68b83a4d63..9f7cf360d3 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -38995,7 +38995,35 @@ does pdfTeX.")
      "This package provides the binaries for @code{texlive-dvipdfmx}.")
     (license (package-license texlive-dvipdfmx))))
 
-(define texlive-dvips-bin
+(define-public texlive-dvips
+  (package
+    (name "texlive-dvips")
+    (version (number->string %texlive-revision))
+    (source (texlive-origin
+             name version
+             (list "doc/dvips/"
+                   "doc/info/dvips.info"
+                   "doc/man/man1/afm2tfm.1"
+                   "doc/man/man1/afm2tfm.man1.pdf"
+                   "doc/man/man1/dvips.1"
+                   "doc/man/man1/dvips.man1.pdf"
+                   "dvips/base/"
+                   "dvips/config/"
+                   "fonts/enc/dvips/base/"
+                   "tex/generic/dvips/")
+             (base32
+              "0x11wx9p16z4nxhlbfqlgi5svnr96j1hnvdl9fpv1sr3n1j8m79g")))
+    (outputs '("out" "doc"))
+    (build-system texlive-build-system)
+    (propagated-inputs (list texlive-dvips-bin))
+    (home-page "https://ctan.org/pkg/dvips";)
+    (synopsis "DVI to PostScript drivers")
+    (description
+     "This package provides files needed for converting DVI files to
+PostScript.")
+    (license license:lppl)))
+
+(define-public texlive-dvips-bin
   (package
     (inherit texlive-bin)
     (name "texlive-dvips-bin")
@@ -39026,9 +39054,9 @@ does pdfTeX.")
     (arguments
      (substitute-keyword-arguments (package-arguments texlive-bin)
        ((#:configure-flags flags)
-        #~(cons* "--enable-dvipsk" (delete "--enable-web2c" #$flags)))
-       ((#:phases _)
-        #~(modify-phases %standard-phases
+        #~(cons "--enable-dvipsk" (delete "--enable-web2c" #$flags)))
+       ((#:phases phases)
+        #~(modify-phases #$phases
             (replace 'check
               (lambda* (#:key tests? #:allow-other-keys)
                 (when tests?
@@ -39038,34 +39066,14 @@ does pdfTeX.")
               (lambda _
                 (with-directory-excursion "texk/dvipsk"
                   (invoke "make" "install"))))))))
-    (inputs '())))
-
-(define-public texlive-dvips
-  (package
-    (name "texlive-dvips")
-    (version (number->string %texlive-revision))
-    (source (texlive-origin
-             name version
-             (list "doc/dvips/"
-                   "doc/info/dvips.info"
-                   "doc/man/man1/afm2tfm.1"
-                   "doc/man/man1/afm2tfm.man1.pdf"
-                   "doc/man/man1/dvips.1"
-                   "doc/man/man1/dvips.man1.pdf"
-                   "dvips/base/"
-                   "dvips/config/"
-                   "fonts/enc/dvips/base/"
-                   "tex/generic/dvips/")
-             (base32
-              "0x11wx9p16z4nxhlbfqlgi5svnr96j1hnvdl9fpv1sr3n1j8m79g")))
-    (outputs '("out" "doc"))
-    (build-system texlive-build-system)
-    (home-page "https://ctan.org/pkg/dvips";)
-    (synopsis "DVI to PostScript drivers")
+    (native-inputs (list perl pkg-config))
+    (inputs (list texlive-libkpathsea))
+    (propagated-inputs '())
+    (home-page (package-home-page texlive-dvips))
+    (synopsis "Binaries for @code{texlive-dvips}")
     (description
-     "This package provides files needed for converting DVI files to
-PostScript.")
-    (license license:lppl)))
+     "This package provides the binaries for @code{texlive-dvips}.")
+    (license (package-license texlive-dvips))))
 
 (define-public texlive-ketcindy
   (package