me
/
guix
Archived
1
0
Fork 0
Code

gnu: help2man: Remove input labels. 

* gnu/packages/man.scm (help2man)[arguments]: Rewrite as G-expression.
[inputs, native-inputs]: Remove labels.
master
Marius Bakke 2022-06-30 13:39:54 +02:00
parent ddff3be27e
commit 79beb85599
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
gnu/packages/man.scm
View File

@ -6,7 +6,7 @@
;;; Copyright © 2015, 2016, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018, 2019, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
@ -310,33 +310,33 @@ Linux kernel and C library interfaces employed by user-space programs.")
(version "1.49.2")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/help2man/help2man-"
version ".tar.xz"))
(sha256
(base32
"0dnxx96lbcb8ab8yrdkqll14cl5n0bch8qpd9qj3c2ky78hhwbly"))))
(method url-fetch)
(uri (string-append "mirror://gnu/help2man/help2man-"
version ".tar.xz"))
(sha256
(base32
"0dnxx96lbcb8ab8yrdkqll14cl5n0bch8qpd9qj3c2ky78hhwbly"))))
(build-system gnu-build-system)
(arguments `(;; There's no `check' target.
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-help2man-with-perl-gettext
(lambda* (#:key inputs #:allow-other-keys)
(let ((lib (assoc-ref inputs "perl-gettext"))
(fmt "use lib '~a/lib/perl5/site_perl';~%~a"))
(substitute* "help2man.PL"
(("^use Locale::gettext.*$" load)
(format #f fmt lib load))))
#t)))))
(arguments
(list
#:tests? #f ;no `check' target
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-help2man-with-perl-gettext
(lambda* (#:key inputs #:allow-other-keys)
(let ((lib #$(this-package-input "perl-gettext"))
(fmt "use lib '~a/lib/perl5/site_perl';~%~a"))
(substitute* "help2man.PL"
(("^use Locale::gettext.*$" load)
(format #f fmt lib load)))))))))
(inputs
`(("perl" ,perl)
,@(if (%current-target-system)
'()
`(("perl-gettext" ,perl-gettext)))))
(append
(list perl)
(if (%current-target-system)
'()
(list perl-gettext))))
(native-inputs
`(("perl" ,perl)
("gettext" ,gettext-minimal)))
(list perl gettext-minimal))
(home-page "https://www.gnu.org/software/help2man/")
(synopsis "Automatically generate man pages from program --help")
(description