From 9c8fa8e68a1cbdd7d5212dc1eaa94cb7cad3729e Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim@guixotic.coop>
Date: Tue, 18 Nov 2025 23:29:56 +0900
Subject: [PATCH] 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 09e1e428d97..bad74f36370 100644
--- a/gnu/packages/texinfo.scm
+++ b/gnu/packages/texinfo.scm
@@ -10,6 +10,7 @@
 ;;; Copyright © 2020, 2023, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
 ;;; Copyright © 2022 ( <paren@disroot.org>
+;;; Copyright © 2025 Maxim Cournoyer <maxim@guixotic.coop>
 ;;;
 ;;; 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