65/96: gnu: Add texlive-totpages.

[guix-commits]

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

commit 79d5721a038b59b5d0c4e5e2f391d87888898eae
Author: Matthieu Lemerre <racin@free.fr>
AuthorDate: Tue Apr 18 14:28:36 2023 +0200

    gnu: Add texlive-totpages.
    
    * gnu/packages/tex.scm (texlive-totpages): New variable.
    
    Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
---
 gnu/packages/tex.scm | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 1d98662777..4e4a7b4aef 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -13381,6 +13381,48 @@ changed, the recorded value will usually be the 
maximum value.")
 
 (define-deprecated-package texlive-latex-totcount texlive-totcount)
 
+(define-public texlive-totpages
+  (let ((template (simple-texlive-package
+                   "texlive-totpages"
+                   (list "doc/latex/totpages/"
+                         "source/latex/totpages/"
+                         "tex/latex/totpages/")
+                   (base32
+                    "1mmya2fqdskyavw3hvdiygfyp9cll7bl4lpi7pl2jf9s7ds49j5a"))))
+    (package
+      (inherit template)
+      (outputs '("out" "doc"))
+      (build-system texlive-build-system)
+      (arguments
+       (substitute-keyword-arguments (package-arguments template)
+         ((#:tex-directory _ #t) "latex/totpages")
+         ((#:tex-format _ #t) "latex")
+         ((#:build-targets _ '()) '(list "totpages.ins"))
+         ((#:phases phases)
+          #~(modify-phases #$phases
+              (add-after 'unpack 'chdir
+                (lambda _ (chdir "source/latex/totpages/")))
+              (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))))))))
+      (native-inputs
+       (list (texlive-updmap.cfg)))
+      (propagated-inputs
+       (list texlive-everyshi texlive-latex-graphics))
+      (home-page "https://ctan.org/pkg/totpages";)
+      (synopsis "Count pages in a document, and report last page number")
+      (description
+       "The package counts the actual pages in the document (as opposed to
+reporting the number of the last page, as does @code{lastpage}).  The counter
+itself may be shipped out to the DVI file.")
+      (license license:lppl))))
+
 (define-public texlive-xetex
   (package
     (inherit (simple-texlive-package