mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: texinfo-7: Use external modules.

Browse source 
* gnu/packages/texinfo.scm (texinfo-7): Use external modules
rather than bundled ones.
[inputs]: Add perl-unicode-eastasianwidth, perl-text-unidecode,
and perl-libintl-perl.
[arguments]<#:configure-flags>: Add a phase
to enable the use of external modules.
<#:phases>: Add Perl modules to the PERL5LIB variable of the texi2any program
in the wrap-program phase.

Change-Id: Ife2cdec50affb5287d5ad850b0ef80c6048b4b32
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
gemmaro 2024-12-20 00:10:34 +09:00 committed by Ludovic Courtès
parent 853c091e2c
commit 753963b453
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/texinfo.scm
View file

@ -120,9 +120,17 @@ (define-public texinfo-7
(base32
"10kcdb3pf7yakniccvv0krchs2fh3vh1rvhvnqr98ll3cbj3gbii"))))
(inputs (modify-inputs (package-inputs texinfo)
(append perl-archive-zip))) ;needed for 'tex2any --epub3'
(append perl-archive-zip ;needed for 'tex2any --epub3'
perl-unicode-eastasianwidth perl-text-unidecode
perl-libintl-perl)))
(arguments
(substitute-keyword-arguments (package-arguments texinfo)
((#:configure-flags flags
''())
#~(cons* "--with-external-Unicode-EastAsianWidth"
"--with-external-Text-Unidecode"
"--with-external-libintl-perl"
#$flags))
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-after 'install 'wrap-program
@ -136,9 +144,15 @@ (define-public texinfo-7
(and (eq? 'directory (stat:type stat))
(string=? (basename file)
"Archive")))
#:directories? #t))))
#:directories? #t)))
(mods (map (lambda (mod)
(string-append (assoc-ref inputs mod)
"/lib/perl5/site_perl"))
'("perl-unicode-eastasianwidth"
"perl-text-unidecode" "perl-libintl-perl"))))
(wrap-program program
`("PERL5LIB" prefix (,(dirname zip)))))))))))))
`("PERL5LIB" prefix
,(cons* (dirname zip) mods))))))))))))
(define-public texinfo-5
(package (inherit texinfo)