futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: help2man: Remove input labels.

Browse Source 
* gnu/packages/man.scm (help2man)[arguments]: Rewrite as G-expression.
[inputs, native-inputs]: Remove labels.
This commit is contained in:
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 © 2015, 2016, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; 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 © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; 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") (version "1.49.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/help2man/help2man-" (uri (string-append "mirror://gnu/help2man/help2man-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0dnxx96lbcb8ab8yrdkqll14cl5n0bch8qpd9qj3c2ky78hhwbly")))) "0dnxx96lbcb8ab8yrdkqll14cl5n0bch8qpd9qj3c2ky78hhwbly"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments `(;; There's no `check' target. (arguments
#:tests? #f (list
#:phases #:tests? #f ;no `check' target
(modify-phases %standard-phases #:phases
(add-after 'unpack 'patch-help2man-with-perl-gettext #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'patch-help2man-with-perl-gettext
(let ((lib (assoc-ref inputs "perl-gettext")) (lambda* (#:key inputs #:allow-other-keys)
(fmt "use lib '~a/lib/perl5/site_perl';~%~a")) (let ((lib #$(this-package-input "perl-gettext"))
(substitute* "help2man.PL" (fmt "use lib '~a/lib/perl5/site_perl';~%~a"))
(("^use Locale::gettext.*$" load) (substitute* "help2man.PL"
(format #f fmt lib load)))) (("^use Locale::gettext.*$" load)
#t))))) (format #f fmt lib load)))))))))
(inputs (inputs
`(("perl" ,perl) (append
,@(if (%current-target-system) (list perl)
'() (if (%current-target-system)
`(("perl-gettext" ,perl-gettext))))) '()
(list perl-gettext))))
(native-inputs (native-inputs
`(("perl" ,perl) (list perl gettext-minimal))
("gettext" ,gettext-minimal)))
(home-page "https://www.gnu.org/software/help2man/") (home-page "https://www.gnu.org/software/help2man/")
(synopsis "Automatically generate man pages from program --help") (synopsis "Automatically generate man pages from program --help")
(description (description