02/03: self: Compress Info files.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 08fdee39110a51cd76afac7a9adf10c794a4c272
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jan 8 18:07:16 2019 +0100

    self: Compress Info files.
    
    Fixes <https://bugs.gnu.org/33993>.
    Reported by Adonay Felipe Nogueira <address@hidden>.
    
    * guix/self.scm (info-manual): Compress Info files.
---
 guix/self.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/guix/self.scm b/guix/self.scm
index 1e9d5b7..e9a768b 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))