diff options
author | Bruno Victal <mirai@makinata.eu> | 2023-10-09 21:06:04 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-06-26 16:58:39 +0100 |
commit | 7ca24cf6740598cce2c3b798fbb8acb1c9c2e6f1 (patch) | |
tree | e21662614081dc35b2021f863384ab4eac76e488 /gnu/packages/docbook.scm | |
parent | a4934311a95b6ea9294bb387180771067f823641 (diff) |
gnu: docbook2x: Use search-path-as-list for wrapping.
* gnu/packages/docbook.scm (docbook2x)[arguments]<#:phases>: Refactor
'wrap-programs phase to use search-path-as-list.
<#:modules>: Add (srfi srfi-26).
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Diffstat (limited to 'gnu/packages/docbook.scm')
-rw-r--r-- | gnu/packages/docbook.scm | 31 |
1 files changed, 17 insertions, 14 deletions
diff --git a/gnu/packages/docbook.scm b/gnu/packages/docbook.scm index ab75088437..13854fe331 100644 --- a/gnu/packages/docbook.scm +++ b/gnu/packages/docbook.scm @@ -888,6 +888,9 @@ Detect the differences in markup between two SGML files. (build-system gnu-build-system) (arguments (list + #:modules '((guix build gnu-build-system) + (guix build utils) + (srfi srfi-26)) #:phases #~(modify-phases %standard-phases (add-after 'install 'move-doc @@ -898,20 +901,20 @@ Detect the differences in markup between two SGML files. (rename-file old new)))) (add-after 'install 'wrap-programs (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((programs - (map (lambda (p) - (search-input-file outputs - (string-append "bin/" p))) - '("db2x_manxml" "db2x_texixml" "db2x_xsltproc" - "docbook2man" "docbook2texi"))) - (perl5lib - '#$(map (lambda (i) - (file-append (this-package-input i) - "/lib/perl5/site_perl")) - '("perl-xml-namespacesupport" - "perl-xml-parser" - "perl-xml-sax" - "perl-xml-sax-base")))) + (let ((programs + (map (lambda (p) + (search-input-file outputs + (string-append "bin/" p))) + '("db2x_manxml" "db2x_texixml" "db2x_xsltproc" + "docbook2man" "docbook2texi"))) + (perl5lib + (search-path-as-list + '("/lib/perl5/site_perl") + (map (cut assoc-ref inputs <>) + '("perl-xml-namespacesupport" + "perl-xml-parser" + "perl-xml-sax" + "perl-xml-sax-base"))))) (map (lambda (program) (wrap-program program `("PERL5LIB" ":" prefix ,perl5lib))) |