From 5dc0d3be31daa5bb439e6c9d97e55e545289b420 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 2 Jan 2026 15:39:05 +0100 Subject: [PATCH] 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 5695d18f9b2..92601e9b095 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)