From 93177e35e3eac86937a88bc23f1600c5595bc426 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Tue, 18 Nov 2025 23:29:55 +0900 Subject: [PATCH] build/gnu-build-system: Zstd compress Texinfo files. * guix/build/gnu-build-system.scm (compress-documentation) : Default to zstd if available. Change-Id: I837c6e2eda6db8dd963dee39af251b2619e8bce8 --- guix/build/gnu-build-system.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 1b15fe59b2a..2f0b74811e5 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -736,23 +736,23 @@ and 'man/'. This phase moves directories to the right place if needed." (define* (compress-documentation #:key outputs (compress-documentation? #t) - (info-compressor "gzip") + (info-compressor (if (which "zstd") + "zstd" + "gzip")) (info-compressor-flags - '("--best" "--no-name")) - (info-compressor-file-extension ".gz") - (man-compressor (if (which "zstd") - "zstd" - info-compressor)) - (man-compressor-flags (if (which "zstd") (list "-19" "--rm" "--threads" (number->string (parallel-job-count))) - info-compressor-flags)) - (man-compressor-file-extension + '("--best" "--no-name"))) + (info-compressor-file-extension (if (which "zstd") ".zst" - info-compressor-file-extension)) + ".gz")) + (man-compressor info-compressor) + (man-compressor-flags info-compressor-flags) + (man-compressor-file-extension + info-compressor-file-extension) #:allow-other-keys) "When COMPRESS-INFO-MANUALS? is true, compress Info files found in OUTPUTS using INFO-COMPRESSOR, called with INFO-COMPRESSOR-FLAGS. Similarly, when