bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 12:05:19 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
This commit is contained in:
Maxim Cournoyer 2025-11-18 23:29:55 +09:00
parent 6c270f46bb
commit 93177e35e3
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
guix/build/gnu-build-system.scm
View file

@ -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