--- Begin Message ---
Subject: |
[PATCH] * gnu: surfraw: Fix broken symlinks in manpages. |
Date: |
Sat, 20 May 2017 09:07:27 +0000 |
From: ng0 <address@hidden>
* gnu/packages/web.scm (surfraw)[arguments]: Add new 'compress-elvi.1sr' phase.
---
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 bcc20bfdd..2fb3144cd 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>
@@ -4229,6 +4229,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 compress 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)
--
2.13.0
--- End Message ---
--- Begin Message ---
Subject: |
Re: bug#27004: [PATCH] * gnu: surfraw: Fix broken symlinks in manpages. |
Date: |
Thu, 22 Jun 2017 10:47:05 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux) |
address@hidden writes:
> * gnu/packages/web.scm (surfraw)[arguments]: Add new 'compress-elvi.1sr'
> phase.
Nice catch.
> (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 compress by our manpage phase.
Changed "compress" to "compressed".
> + (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)
LGTM otherwise.
Pushed to master as e81fd90e2f8a38248b4b0c6b883305528acc9a9e.
signature.asc
Description: PGP signature
--- End Message ---