summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-01-08 18:07:16 +0100
committerLudovic Courtès <ludo@gnu.org>2019-01-08 18:38:15 +0100
commit08fdee39110a51cd76afac7a9adf10c794a4c272 (patch)
tree0084cd95feb41e76963b7f6203fa62907b35c560 /guix
parentc108c46fb40ae85be609133f6706cfb79266ded3 (diff)
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.
Diffstat (limited to 'guix')
-rw-r--r--guix/self.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/guix/self.scm b/guix/self.scm
index 1e9d5b70e5..e9a768bc90 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -384,7 +384,14 @@ DOMAIN, a gettext domain."
(basename texi ".texi")
".info")))
(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))