mirror of
https://codeberg.org/guix/guix.git
synced 2026-01-25 03:55:08 -06:00
gnu: texlive build system: Install info files and man pages.
Fixes: bug#54422 * guix/build/texlive-build-system.scm (install): Install info files and man pages at their expected location. Change-Id: Id4b6bc4d0f7b20b8cb0c98b24d8e66835aac5fb0
This commit is contained in:
parent
8cf44901b6
commit
5dc0d3be31
1 changed files with 10 additions and 3 deletions
|
|
@ -279,9 +279,16 @@ generation also needs to be wrapped within a `faketime' call in the
|
|||
(unless doc
|
||||
(format (current-error-port)
|
||||
"warning: missing 'doc' output for package documentation~%"))
|
||||
(let ((doc-dir (string-append (or doc out) "/share/texmf-dist/doc")))
|
||||
(mkdir-p doc-dir)
|
||||
(copy-recursively "doc" doc-dir)))
|
||||
(let* ((share (string-append (or doc out) "/share"))
|
||||
(texmf-doc (string-append share "/texmf-dist/doc")))
|
||||
(mkdir-p texmf-doc)
|
||||
(copy-recursively "doc" texmf-doc)
|
||||
;; Move Info files and man pages into their expected locations.
|
||||
(for-each (lambda (dir)
|
||||
(let ((target (string-append texmf-doc "/" dir)))
|
||||
(when (directory-exists? target)
|
||||
(rename-file target (string-append share "/" dir)))))
|
||||
'("info" "man"))))
|
||||
;; Install runfiles. The package may not contain any, though. Create
|
||||
;; #$output anyway to handle this situation gracefully.
|
||||
(mkdir-p out)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue