guix_mirror_bot pushed a commit to branch tex-team
in repository guix.
commit f08099057a959fabc3d11c3e5fc315f0c11dd4fd
Author: Nicolas Goaziou <[email protected]>
AuthorDate: Fri Jan 2 15:39:05 2026 +0100
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
---
guix/build/texlive-build-system.scm | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/guix/build/texlive-build-system.scm
b/guix/build/texlive-build-system.scm
index 5695d18f9b..92601e9b09 100644
--- a/guix/build/texlive-build-system.scm
+++ b/guix/build/texlive-build-system.scm
@@ -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)
