build/gnu-build-system: Zstd compress Texinfo files.

* guix/build/gnu-build-system.scm (compress-documentation)
<info-compressor, info-compressor-flags>
<info-compressor-file-extension>: Default to zstd if available.

Change-Id: I837c6e2eda6db8dd963dee39af251b2619e8bce8

1 files 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