branch core-updates updated: gnu: texlive-grfext: Add missing files.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

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

The following commit(s) were added to refs/heads/core-updates by this push:
     new 4f407029bf gnu: texlive-grfext: Add missing files.
4f407029bf is described below

commit 4f407029bf0bae29e1f2dbaf96528e8169836270
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun Mar 6 14:49:50 2022 +0100

    gnu: texlive-grfext: Add missing files.
    
    * gnu/packages/tex.scm (texlive-grfext)[outputs]: Add "doc" output.
    [arguments]: Use G-expressions.  Modify COPY-FILES phase to include all 
source
    files.  Add REMOVE-GENERATED-FILE phase.
---
 gnu/packages/tex.scm | 35 ++++++++++++++++++++++++++---------
 1 file changed, 26 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 182d42f8d2..9c7688a8f8 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -10313,22 +10313,39 @@ The macros were designed for use within other 
macros.")
 (define-public texlive-grfext
   (let ((template (simple-texlive-package
                    "texlive-grfext"
-                   (list "/doc/latex/grfext/README.md"
-                         "/source/latex/grfext/grfext.dtx")
+                   (list "doc/latex/grfext/"
+                         "source/latex/grfext/"
+                         "tex/latex/grfext/")
                    (base32
-                    "1cdvjp9gcnixxlbl8ibwz1yr799gwax5hm686hwmwsigdgafhzgq"))))
+                    "1x35r10mkjg8dzx7aj99y4dwyf69jgs41qwapdx523lbglywmgxp"))))
     (package
       (inherit template)
+      (outputs '("out" "doc"))
       (arguments
        (substitute-keyword-arguments (package-arguments template)
-         ((#:tex-directory _ '())
+         ((#:tex-directory _ #t)
           "latex/grfext")
-         ((#:build-targets _ '())
-          ''("grfext.dtx"))
+         ((#:build-targets _ #t)
+          #~(list "grfext.dtx"))
          ((#:phases phases)
-          `(modify-phases ,phases
-             (add-after 'unpack 'chdir
-               (lambda _ (chdir "source/latex/grfext")))))))
+          #~(modify-phases #$phases
+              (add-after 'unpack 'chdir
+                (lambda _
+                  (chdir "source/latex/grfext")))
+              (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))))
+              (add-after 'copy-files 'remove-generated-file
+                (lambda* (#:key outputs #:allow-other-keys)
+                  (with-directory-excursion #$output
+                    (for-each delete-file
+                              (find-files "." "\\.(drv|ins)$")))))))))
       (home-page "https://github.com/ho-tex/grfext";)
       (synopsis "Manipulate the graphics package's list of extensions")
       (description "This package provides macros for adding to, and reordering