guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 1a612a9edf0dc2dd427ba6a1fb2d44d8be7b494e
Author: Cayetano Santos <[email protected]>
AuthorDate: Fri Jan 2 12:20:31 2026 +0100

    gnu: parallel: Build info files.
    
    * gnu/packages/parallel.scm (parallel)[native-inputs]: Add texinfo.
    [arguments]: Add ’replace-texi-files #:phase.
    
    Closes guix/guix!5311
    
    Change-Id: If2c750a67d5eb3e422ba541383861e9120b4007e
---
 gnu/packages/parallel.scm | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/parallel.scm b/gnu/packages/parallel.scm
index 198a161da7..b5250dc11e 100644
--- a/gnu/packages/parallel.scm
+++ b/gnu/packages/parallel.scm
@@ -73,6 +73,7 @@
   #:use-module (gnu packages python-xyz)
   #:use-module (gnu packages readline)
   #:use-module (gnu packages serialization)
+  #:use-module (gnu packages texinfo)
   #:use-module (gnu packages tcl)
   #:use-module (gnu packages tls)
   #:use-module (gnu packages web))
@@ -133,9 +134,25 @@
               (when tests?
                 (invoke (string-append #$output "/bin/parallel")
                         "echo"
-                        ":::" "1" "2" "3")))))))
+                        ":::" "1" "2" "3"))))
+          (add-after 'post-install-test 'replace-texi-files
+            (lambda _
+              ;; Build info files.
+              (for-each
+               (lambda (file)
+                 (let ((info-file
+                        (string-append (car (string-split file #\.)) ".info")))
+                   (invoke "makeinfo" "--no-split" "-o" info-file file)
+                   (install-file info-file
+                                 (string-append #$output:doc "/share/info"))))
+               (find-files "src" "\\.texi$"))
+              ;; Remove texi files.
+              (for-each
+               delete-file
+               (find-files (string-append #$output:doc "/share/doc/parallel")
+                           "\\.texi$")))))))
     (native-inputs
-     (list perl pod2pdf))
+     (list perl pod2pdf texinfo))
     (inputs
      (list bash-minimal perl procps))
     (home-page "https://www.gnu.org/software/parallel/";)

Reply via email to