ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

24
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>
@ -317,26 +317,26 @@ (define-public help2man
(base32
"0dnxx96lbcb8ab8yrdkqll14cl5n0bch8qpd9qj3c2ky78hhwbly"))))
(build-system gnu-build-system)
(arguments `(;; There's no `check' target.
#:tests? #f
(arguments
(list
#:tests? #f ;no `check' target
#:phases
(modify-phases %standard-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"))
(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))))
#t)))))
(format #f fmt lib load)))))))))
(inputs
`(("perl" ,perl)
,@(if (%current-target-system)
(append
(list perl)
(if (%current-target-system)
'()
`(("perl-gettext" ,perl-gettext)))))
(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