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:
parent
c108c46fb4
commit
08fdee3911
|
@ -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))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue