amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: po4a: Remove patch-docbook-xml phase.

Browse source 
* gnu/packages/gettext.scm (po4a) [arguments]: Remove patch-docbook-xml phase.
Remove trailing #t.  Use gexps.
[native-inputs]: Remove labels.
This commit is contained in:
Maxim Cournoyer 2023-04-20 15:41:47 -04:00
parent f07cf9807f
commit 3b1f0a7b05
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 43 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

93
gnu/packages/gettext.scm
View file

@ -12,6 +12,7 @@
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 EuAndreh <eu@euandre.org> ;;; Copyright © 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2022 gemmaro <gemmaro.dev@gmail.com> ;;; Copyright © 2022 gemmaro <gemmaro.dev@gmail.com>
;;; Copyright © 2023 Maxim Cournoyer maxim.cournoyer@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -250,57 +251,49 @@ from Markdown files.")
"045i8izp2dqmkdzvnxyy5sy27ffrwl85dk8n6cmg1804ikk28qdg")))) "045i8izp2dqmkdzvnxyy5sy27ffrwl85dk8n6cmg1804ikk28qdg"))))
(build-system perl-build-system) (build-system perl-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'install 'wrap-programs #~(modify-phases %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'install 'wrap-programs
;; Make sure all executables in "bin" find the Perl modules (lambda* (#:key inputs outputs #:allow-other-keys)
;; required by this package at runtime. ;; Make sure all executables in "bin" find the Perl modules
(let* ((out (assoc-ref outputs "out")) ;; required by this package at runtime.
(bin (string-append out "/bin/")) (let* ((out #$output)
(path (string-append out "/lib/perl5/site_perl:" (bin (string-append out "/bin/"))
(string-join (path (string-append
(map (lambda (name) out "/lib/perl5/site_perl:"
(string-append (assoc-ref inputs name) (string-join
"/lib/perl5/site_perl")) (map (lambda (name)
(list "perl-gettext" (string-append (assoc-ref inputs name)
"perl-pod-parser" "/lib/perl5/site_perl"))
"perl-sgmls" (list "perl-gettext"
"perl-syntax-keyword-try" "perl-pod-parser"
"perl-xs-parse-keyword" "perl-sgmls"
"perl-term-readkey" "perl-syntax-keyword-try"
"perl-text-wrapi18n" "perl-xs-parse-keyword"
"perl-unicode-linebreak" "perl-term-readkey"
"perl-yaml-tiny")) "perl-text-wrapi18n"
":")))) "perl-unicode-linebreak"
(for-each (lambda (file) "perl-yaml-tiny"))
(wrap-program file ":"))))
`("PERL5LIB" ":" prefix (,path)))) (for-each (lambda (file)
(find-files bin "\\.*$")) (wrap-program file
#t))) `("PERL5LIB" ":" prefix (,path))))
(add-after 'unpack 'patch-docbook-xml (find-files bin "\\.*$")))))
(lambda* (#:key inputs #:allow-other-keys) (add-before 'check 'disable-failing-tests
(substitute* (find-files "." ".*\\.xml(-good)?") (lambda _
(("http://www.oasis-open.org/docbook/xml/4.1.2/") ;; FIXME: fails despite of importing SGMLS
(string-append (assoc-ref inputs "docbook-xml") (delete-file "t/fmt-sgml.t"))))))
"/xml/dtd/docbook/")))
#t))
(add-before 'check 'disable-failing-tests
(lambda _
;; FIXME: fails despite of importing SGMLS
(delete-file "t/fmt-sgml.t")
#t)))))
(native-inputs (native-inputs
`(("gettext" ,gettext-minimal) (list gettext-minimal
("perl-module-build" ,perl-module-build) perl-module-build
("docbook-xsl" ,docbook-xsl) docbook-xsl
("libxml2" ,libxml2) libxml2
("xsltproc" ,libxslt) libxslt
;; For tests.
;; For tests. docbook-xml-4.1.2
("docbook-xml" ,docbook-xml-4.1.2) perl-test-pod
("perl-test-pod" ,perl-test-pod) texlive-tiny))
("texlive" ,texlive-tiny)))
(inputs (inputs
(list bash-minimal (list bash-minimal
perl-gettext perl-gettext