01/07: gnu: Add texlive-pdftexcmds.

[guix-commits]

ngz pushed a commit to branch core-updates
in repository guix.

commit 69f284a35fa129fd70b064feeecece4f255a894f
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun Feb 13 23:40:44 2022 +0100

    gnu: Add texlive-pdftexcmds.
    
    * gnu/packages/tex.scm (texlive-pdftexcmds): New variable.
    (texlive-latex-pdftexcmds): Deprecate variable.
    (texlive-hyperref):
    (texlive-latex-rerunfilecheck):
    (texlive-generic-bigintcalc): Use new variable.
    * gnu/packages/plotutils.scm (asymptote): Use new variable.
---
 gnu/packages/plotutils.scm |  4 +--
 gnu/packages/tex.scm       | 66 +++++++++++++++++++++++++++++++---------------
 2 files changed, 47 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/plotutils.scm b/gnu/packages/plotutils.scm
index c0cbd24c9d..75ac1efd06 100644
--- a/gnu/packages/plotutils.scm
+++ b/gnu/packages/plotutils.scm
@@ -304,10 +304,10 @@ colors, styles, options and details.")
                   texlive-latex-graphics
                   texlive-latex-kvoptions
                   texlive-latex-media9
-                  texlive-latex-ocgx2
-                  texlive-latex-pdftexcmds
                   texlive-oberdiek      ;for ifluatex
+                  texlive-latex-ocgx2
                   texlive-latex-parskip
+                  texlive-pdftexcmds
                   texlive-tex-texinfo))))
     (inputs
      (list fftw
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 89f60f89d5..f9c369e086 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -3402,7 +3402,7 @@ XML, using UTF-8 or a suitable 8-bit encoding.")
              texlive-latex-hycolor
              texlive-latex-kvoptions
              texlive-latex-letltxmacro
-             texlive-latex-pdftexcmds
+             texlive-pdftexcmds
              texlive-latex-refcount
              texlive-latex-rerunfilecheck
              texlive-url))
@@ -3468,7 +3468,7 @@ arrows; record information about document class(es) used; 
and many more.")
     (propagated-inputs
      (list texlive-generic-infwarerr texlive-generic-uniquecounter
            texlive-latex-atveryend texlive-latex-kvoptions
-           texlive-latex-pdftexcmds))
+           texlive-pdftexcmds))
     (home-page "https://www.ctan.org/pkg/rerunfilecheck";)
     (synopsis "Checksum based rerun checks on auxiliary files")
     (description
@@ -4810,24 +4810,48 @@ Unicode characters.  The document should be processed 
by (pdf)LaTeX with the
 Unicode option of @code{inputenc} or @code{inputenx}, or by XeLaTeX/LuaLaTeX.")
     (license license:lppl1.3c+)))
 
-(define-public texlive-latex-pdftexcmds
-  (package
-    (inherit (simple-texlive-package
-              "texlive-latex-pdftexcmds"
-              '("/doc/generic/pdftexcmds/"
-                "/tex/generic/pdftexcmds/")
-              (base32
-               "1hph0djbfc8hlwfc41rzlf8l3ccyyvc0n7a0qdrr9881jwd6iv1b")
-              #:trivial? #t))
-    (propagated-inputs
-     (list texlive-generic-iftex texlive-generic-infwarerr
-           texlive-generic-ltxcmds))
-    (home-page "https://www.ctan.org/pkg/pdftexcmds";)
-    (synopsis "LuaTeX support for pdfTeX utility functions")
-    (description
-     "This package makes a number of utility functions from pdfTeX
-available for luaTeX by reimplementing them using Lua.")
-    (license license:lppl1.3c+)))
+(define-public texlive-pdftexcmds
+  (let ((template (simple-texlive-package
+                   "texlive-pdftexcmds"
+                   (list "doc/generic/pdftexcmds/"
+                         "source/generic/pdftexcmds/"
+                         "tex/generic/pdftexcmds/")
+                   (base32
+                    "0gad1vi0r5xw7gyj1cb2cp58j4dqrw4awcfxmfrna9xbz91g4sn9"))))
+    (package
+      (inherit template)
+      (outputs '("out" "doc"))
+      (arguments
+       (substitute-keyword-arguments (package-arguments template)
+         ((#:tex-directory _ '())
+          "generic/pdftexcmds")
+         ((#:build-targets _ '())
+          #~(list "pdftexcmds.dtx"))
+         ((#:phases phases)
+          #~(modify-phases #$phases
+              (add-after 'unpack 'chdir
+                (lambda _
+                  (chdir "source/generic/pdftexcmds")))
+              (replace 'copy-files
+                (lambda* (#:key inputs #:allow-other-keys)
+                  (let ((origin (assoc-ref inputs "source"))
+                        (source (string-append #$output
+                                               "/share/texmf-dist/source"))
+                        (doc (string-append #$output:doc
+                                            "/share/texmf-dist/doc")))
+                    (copy-recursively (string-append origin "/source") source)
+                    (copy-recursively (string-append origin "/doc") doc))))))))
+      (propagated-inputs
+       (list texlive-generic-iftex texlive-generic-infwarerr
+             texlive-generic-ltxcmds))
+      (home-page "https://www.ctan.org/pkg/pdftexcmds";)
+      (synopsis "LuaTeX support for pdfTeX utility functions")
+      (description
+       "This package makes a number of utility functions from pdfTeX
+available for LuaTeX by reimplementing them using Lua.")
+      (license license:lppl1.3c+))))
+
+(define-deprecated-package texlive-latex-pdftexcmds texlive-pdftexcmds)
 
 (define-public texlive-latex-psfrag
   (package
@@ -7948,7 +7972,7 @@ be used either with LaTeX or with plain TeX.")
                "19grk4p1dh566hgpzhnjyjnrw57hpjijcpr7ci401n9jszcc1xkz")
               #:trivial? #t))
     (propagated-inputs
-     (list texlive-latex-pdftexcmds))
+     (list texlive-pdftexcmds))
     (home-page "https://www.ctan.org/pkg/bigintcalc";)
     (synopsis "Integer calculations on very large numbers")
     (description