kkebreau pushed a commit to branch master
in repository guix.
commit e81fd90e2f8a38248b4b0c6b883305528acc9a9e
Author: ng0 <[email protected]>
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 <[email protected]>
---
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 <[email protected]>
;;; Copyright © 2016 Ben Woodcroft <[email protected]>
;;; Copyright © 2016 Clément Lassieur <[email protected]>
-;;; Copyright © 2016, 2017 ng0 <[email protected]>
+;;; Copyright © 2016, 2017 ng0 <[email protected]>
;;; Copyright © 2016, 2017 Arun Isaac <[email protected]>
;;; Copyright © 2016 Tobias Geerinckx-Rice <[email protected]>
;;; Copyright © 2016 Bake Timmons <[email protected]>
@@ -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)
