me/guix
Archived
1
0
Fork 0
Code Activity

gnu: help2man: Add optional dependencies.

Browse source 
* gnu/packages/man.scm (help2man)[inputs]: Add perl-gettext and
gettext-minimal to the inputs.
This commit is contained in:
Miguel Ángel Arruga Vivas 2020-12-11 23:46:58 +01:00
parent 4343ca8ba5
commit 378df42fc5
No known key found for this signature in database
GPG key ID: 634C6E8979FABEC2
1 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
gnu/packages/man.scm
View file

@ -34,6 +34,7 @@
#:use-module (gnu packages dbm) #:use-module (gnu packages dbm)
#:use-module (gnu packages flex) #:use-module (gnu packages flex)
#:use-module (gnu packages gawk) #:use-module (gnu packages gawk)
#:use-module (gnu packages gettext)
#:use-module (gnu packages groff) #:use-module (gnu packages groff)
#:use-module (gnu packages less) #:use-module (gnu packages less)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
@ -257,6 +258,8 @@ Linux kernel and C library interfaces employed by user-space programs.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public help2man (define-public help2man
;; TODO: Manual pages for languages not available from the implicit
;; input "locales" contain the original (English) text.
(package (package
(name "help2man") (name "help2man")
(version "1.47.13") (version "1.47.13")
@ -270,15 +273,23 @@ Linux kernel and C library interfaces employed by user-space programs.")
"08q5arxz4j4pyx5q4712c2rn7p7dw7as9xg38yvmsh1c3ynvpy5p")))) "08q5arxz4j4pyx5q4712c2rn7p7dw7as9xg38yvmsh1c3ynvpy5p"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments `(;; There's no `check' target. (arguments `(;; There's no `check' target.
#:tests? #f)) #: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)))))
(inputs (inputs
`(("perl" ,perl) `(("perl" ,perl)
;; TODO: Add these optional dependencies. ("perl-gettext" ,perl-gettext)))
;; ("perl-LocaleGettext" ,perl-LocaleGettext)
;; ("gettext" ,gettext-minimal)
))
(native-inputs (native-inputs
`(("perl" ,perl))) `(("perl" ,perl)
("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