From 08fdee39110a51cd76afac7a9adf10c794a4c272 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 8 Jan 2019 18:07:16 +0100 Subject: self: Compress Info files. Fixes . Reported by Adonay Felipe Nogueira . * 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 1e9d5b70e5..e9a768bc90 100644 --- a/guix/self.scm +++ b/guix/self.scm @@ -384,7 +384,14 @@ (define build (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)) -- cgit v1.2.3