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

gnu: perl-lingua-translit: Wrap translit program.

Browse Source 
* gnu/packages/perl.scm (perl-lingua-translit)[arguments]: Add “wrap-translit”
phase.
[inputs]: Add bash-minimal.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Evgeny Pisemsky 2022-10-23 17:23:11 +03:00 committed by Liliana Marie Prikler
parent a7f41aac7a
commit 14ca72226b
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/perl.scm
View File

@ -32,6 +32,7 @@
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2021 Raghav Gururajan <rg@raghavgururajan.name> ;;; Copyright © 2021 Raghav Gururajan <rg@raghavgururajan.name>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 Evgeny Pisemsky <evgeny@pisemsky.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -6269,6 +6270,18 @@ expression and a list of abbreviations (built in and given).")
(base32 (base32
"1qgap0j0ixmif309dvbqca7sy8xha9xgnj9s2lvh8qrczkc92gqi")))) "1qgap0j0ixmif309dvbqca7sy8xha9xgnj9s2lvh8qrczkc92gqi"))))
(build-system perl-build-system) (build-system perl-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'wrap-translit
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")))
(wrap-program (string-append out "/bin/translit")
`("PERL5LIB" ":" prefix
(,(getenv "PERL5LIB")
,(string-append out "/lib/perl5/site_perl"))))))))))
(inputs (list bash-minimal))
(home-page "https://metacpan.org/release/Lingua-Translit") (home-page "https://metacpan.org/release/Lingua-Translit")
(synopsis "Transliterate text between writing systems") (synopsis "Transliterate text between writing systems")
(description "@code{Lingua::Translit} can be used to convert text from one (description "@code{Lingua::Translit} can be used to convert text from one