01/01: gnu: surfraw: Fix broken symlinks in manpages.

[Kei Kebreau]

kkebreau pushed a commit to branch master
in repository guix.

commit e81fd90e2f8a38248b4b0c6b883305528acc9a9e
Author: ng0 <address@hidden>
Date:   Sat May 20 09:07:27 2017 +0000

    gnu: surfraw: Fix broken symlinks in manpages.
    
    * gnu/packages/web.scm (surfraw)[arguments]: Add new 'compress-elvi.1sr' 
phase.
    
    Signed-off-by: Kei Kebreau <address@hidden>
---
 gnu/packages/web.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 3a6e20d..3625a10 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -13,7 +13,7 @@
 ;;; Copyright © 2016 Rene Saavedra <address@hidden>
 ;;; Copyright © 2016 Ben Woodcroft <address@hidden>
 ;;; Copyright © 2016 Clément Lassieur <address@hidden>
-;;; Copyright © 2016, 2017 ng0 <address@hidden>
+;;; Copyright © 2016, 2017 ng0 <address@hidden>
 ;;; Copyright © 2016, 2017 Arun Isaac <address@hidden>
 ;;; Copyright © 2016 Tobias Geerinckx-Rice <address@hidden>
 ;;; Copyright © 2016 Bake Timmons <address@hidden>
@@ -4259,6 +4259,17 @@ handling many of the web standards in use today.")
                (base32
                 "1fy4ph5h9kp0jzj1m6pfylxnnmgdk0mmdppw76z9jhna4jndk5xa"))))
     (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'compress-elvi.1sr
+           (lambda* (#:key outputs #:allow-other-keys)
+             ;; The manpages of the elvis are symlinks to elvi.1sr.gz
+             ;; but elvi.1sr does not get compressed by our manpage phase.
+             (let* ((out (assoc-ref %outputs "out"))
+                    (man (string-append out "/share/man/man1")))
+               (with-directory-excursion man
+                 (zero? (system* "gzip" "elvi.1sr")))))))))
     (inputs
      `(("perl" ,perl)
        ("perl-www-opensearch" ,perl-www-opensearch)