self: Compress Info files.

Fixes <https://bugs.gnu.org/33993>.
Reported by Adonay Felipe Nogueira <adfeno@hyperbola.info>.

* guix/self.scm (info-manual): Compress Info files.
This commit is contained in:
Ludovic Courtès 2019-01-08 18:07:16 +01:00
parent c108c46fb4
commit 08fdee3911
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 1 deletions

View File

@ -384,7 +384,14 @@ DOMAIN, a gettext domain."
(basename texi ".texi") (basename texi ".texi")
".info"))) ".info")))
(cons "guix.texi" (cons "guix.texi"
(find-files "." "^guix\\.[a-z]{2}\\.texi$")))))) (find-files "." "^guix\\.[a-z]{2}\\.texi$")))
;; Compress Info files.
(setenv "PATH"
#+(file-append (specification->package "gzip") "/bin"))
(for-each (lambda (file)
(invoke "gzip" "-9n" file))
(find-files #$output "\\.info(-[0-9]+)?$")))))
(computed-file "guix-manual" build)) (computed-file "guix-manual" build))