me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-grfext: Add missing files.

Browse source 
* 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.
This commit is contained in:
Nicolas Goaziou 2022-03-06 14:49:50 +01:00
parent cddaf93e22
commit 4f407029bf
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 26 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
gnu/packages/tex.scm
View file

@ -10313,22 +10313,39 @@ The macros were designed for use within other macros.")
(define-public texlive-grfext (define-public texlive-grfext
(let ((template (simple-texlive-package (let ((template (simple-texlive-package
"texlive-grfext" "texlive-grfext"
(list "/doc/latex/grfext/README.md" (list "doc/latex/grfext/"
"/source/latex/grfext/grfext.dtx") "source/latex/grfext/"
"tex/latex/grfext/")
(base32 (base32
"1cdvjp9gcnixxlbl8ibwz1yr799gwax5hm686hwmwsigdgafhzgq")))) "1x35r10mkjg8dzx7aj99y4dwyf69jgs41qwapdx523lbglywmgxp"))))
(package (package
(inherit template) (inherit template)
(outputs '("out" "doc"))
(arguments (arguments
(substitute-keyword-arguments (package-arguments template) (substitute-keyword-arguments (package-arguments template)
((#:tex-directory _ '()) ((#:tex-directory _ #t)
"latex/grfext") "latex/grfext")
((#:build-targets _ '()) ((#:build-targets _ #t)
''("grfext.dtx")) #~(list "grfext.dtx"))
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases #~(modify-phases #$phases
(add-after 'unpack 'chdir (add-after 'unpack 'chdir
(lambda _ (chdir "source/latex/grfext"))))))) (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") (home-page "https://github.com/ho-tex/grfext")
(synopsis "Manipulate the graphics package's list of extensions") (synopsis "Manipulate the graphics package's list of extensions")
(description "This package provides macros for adding to, and reordering (description "This package provides macros for adding to, and reordering