guix_mirror_bot pushed a commit to branch add-compress-debug-symbols-phase
in repository guix.

commit eb59f88d3a39465e616f476c78cdb2772ac3a1c7
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Tue Nov 18 23:29:56 2025 +0900

    gnu: info-reader: Add Zstd support.
    
    * gnu/packages/texinfo.scm (info-reader)
    [#:phases] {absolute-binary-path}: Patch file name of unzstd command.
    {keep-only-info-reader}: Delete trailing #t.
    [inputs]: Add zstd.
    
    Change-Id: I9f5ed3260c890d87ea8ced59736311ad72422359
---
 gnu/packages/texinfo.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/texinfo.scm b/gnu/packages/texinfo.scm
index 09e1e428d9..bad74f3637 100644
--- a/gnu/packages/texinfo.scm
+++ b/gnu/packages/texinfo.scm
@@ -10,6 +10,7 @@
 ;;; Copyright © 2020, 2023, 2024 Janneke Nieuwenhuizen <[email protected]>
 ;;; Copyright © 2021 Maxime Devos <[email protected]>
 ;;; Copyright © 2022 ( <[email protected]>
+;;; Copyright © 2025 Maxim Cournoyer <[email protected]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -233,8 +234,9 @@ is on expressing the content semantically, avoiding 
physical markup commands.")
                (add-after 'unpack 'absolute-binary-path
                  (lambda* (#:key inputs #:allow-other-keys)
                    (substitute* "info/filesys.c"
-                     (("gunzip") (search-input-file inputs "/bin/gunzip"))
-                     (("gzip") (search-input-file inputs "/bin/gzip")))))
+                     (("gunzip") (search-input-file inputs "bin/gunzip"))
+                     (("gzip") (search-input-file inputs "bin/gzip"))
+                     (("unzstd") (search-input-file inputs "bin/unzstd")))))
                (add-after 'install 'keep-only-info-reader
                  (lambda* (#:key outputs #:allow-other-keys)
                    ;; Remove everything but 'bin/info' and associated
@@ -252,14 +254,13 @@ is on expressing the content semantically, avoiding 
physical markup commands.")
                      (with-directory-excursion (string-append out "/share")
                        (for-each delete-file-recursively
                                  (fold delete (files)
-                                       '("info" "locale"))))
-                     #t))))))
+                                       '("info" "locale"))))))))))
        #:disallowed-references ,(list (this-package-input "perl"))
        #:modules ((ice-9 ftw) (srfi srfi-1)
                   ,@%default-gnu-modules)))
     (synopsis "Standalone Info documentation reader")
     (inputs (modify-inputs (package-inputs texinfo)
-              (prepend gzip)))))
+              (prepend gzip zstd)))))
 
 (define-public texi2html
   (package

Reply via email to