mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-10 13:40:20 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: texlive-tools: Add missing files.

Browse source 
* gnu/packages/tex.scm (texlive-tools)[outputs]: Add "doc" output.
[arguments]: Use G-expressions.  Add phase to install all non-generated ".sty" files.
This commit is contained in:
Nicolas Goaziou 2022-03-09 00:58:10 +01:00
parent fa5a062572
commit 3a29ec6d32
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 31 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
gnu/packages/tex.scm
View file

@ -9342,22 +9342,46 @@ LuaTeX (respectively) is not the engine in use.")
(define-public texlive-tools (define-public texlive-tools
(let ((template (simple-texlive-package (let ((template (simple-texlive-package
"texlive-tools" "texlive-tools"
(list "/doc/latex/tools/" (list "doc/latex/tools/"
"/source/latex/tools/") "source/latex/tools/"
"tex/latex/tools/")
(base32 (base32
"1xas0b69r3d5x4zhcqysgybyqaikd9avv6r1bdckb947id3iaz58")))) "0c0ixkcvrlzx6sdj25ak3bx0j65qghf51w66yg5wlnpg08d3awrs"))))
(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 _ '())
"latex/tools") "latex/tools")
((#:build-targets _ '()) ((#:build-targets _ '())
''("tools.ins")) #~(list "tools.ins"))
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases #~(modify-phases #$phases
(add-after 'unpack 'chdir (add-after 'unpack 'chdir
(lambda _ (chdir "source/latex/tools") #t)))))) (lambda _
(chdir "source/latex/tools")))
(replace 'copy-files
(lambda _
(let ((origin #$(package-source this-package))
(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)
;; These files are not generated.
(let ((directory "/tex/latex/tools"))
(with-directory-excursion (string-append origin directory)
(for-each
(lambda (f)
(install-file f (string-append #$output
"/share/texmf-dist"
directory)))
'("array-2016-10-06.sty"
"array-2020-02-10.sty"
"multicol-2017-04-11.sty"
"varioref-2016-02-16.sty")))))))))))
(home-page "https://www.ctan.org/tex-archive/macros/latex/required/tools/") (home-page "https://www.ctan.org/tex-archive/macros/latex/required/tools/")
(synopsis "LaTeX standard tools bundle") (synopsis "LaTeX standard tools bundle")
(description "This package provides a collection of simple tools that (description "This package provides a collection of simple tools that