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

41
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,15 +251,17 @@ from Markdown files.")
"045i8izp2dqmkdzvnxyy5sy27ffrwl85dk8n6cmg1804ikk28qdg")))) "045i8izp2dqmkdzvnxyy5sy27ffrwl85dk8n6cmg1804ikk28qdg"))))
(build-system perl-build-system) (build-system perl-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(add-after 'install 'wrap-programs (add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
;; Make sure all executables in "bin" find the Perl modules ;; Make sure all executables in "bin" find the Perl modules
;; required by this package at runtime. ;; required by this package at runtime.
(let* ((out (assoc-ref outputs "out")) (let* ((out #$output)
(bin (string-append out "/bin/")) (bin (string-append out "/bin/"))
(path (string-append out "/lib/perl5/site_perl:" (path (string-append
out "/lib/perl5/site_perl:"
(string-join (string-join
(map (lambda (name) (map (lambda (name)
(string-append (assoc-ref inputs name) (string-append (assoc-ref inputs name)
@ -276,31 +279,21 @@ from Markdown files.")
(for-each (lambda (file) (for-each (lambda (file)
(wrap-program file (wrap-program file
`("PERL5LIB" ":" prefix (,path)))) `("PERL5LIB" ":" prefix (,path))))
(find-files bin "\\.*$")) (find-files bin "\\.*$")))))
#t)))
(add-after 'unpack 'patch-docbook-xml
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "." ".*\\.xml(-good)?")
(("http://www.oasis-open.org/docbook/xml/4.1.2/")
(string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook/")))
#t))
(add-before 'check 'disable-failing-tests (add-before 'check 'disable-failing-tests
(lambda _ (lambda _
;; FIXME: fails despite of importing SGMLS ;; FIXME: fails despite of importing SGMLS
(delete-file "t/fmt-sgml.t") (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" ,docbook-xml-4.1.2) docbook-xml-4.1.2
("perl-test-pod" ,perl-test-pod) perl-test-pod
("texlive" ,texlive-tiny))) texlive-tiny))
(inputs (inputs
(list bash-minimal (list bash-minimal
perl-gettext perl-gettext