gnu: json-glib: Find docbook inputs when cross-compiling.

* gnu/packages/gnome.scm (json-glib)[arguments]<#:phases>{patch-docbook}:
  Look up "docbook-xml" in 'native-inputs', not 'inputs', when
  cross-compiling.
This commit is contained in:
Maxime Devos 2021-08-25 10:50:38 +02:00 committed by Mathieu Othacehe
parent bb4293469b
commit d0cf033661
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -4599,15 +4599,24 @@ (define-public json-glib
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-docbook
(lambda* (#:key inputs #:allow-other-keys)
;; TODO(core-updates): Use (or native-inputs inputs)
;; unconditionally.
(lambda* (#:key ,@(if (%current-target-system)
'(native-inputs)
'()) inputs #:allow-other-keys)
(with-directory-excursion "doc"
(substitute* (find-files "." "\\.xml$")
(("http://www.oasis-open.org/docbook/xml/4\\.3/")
(string-append (assoc-ref inputs "docbook-xml")
(string-append (assoc-ref ,(if (%current-target-system)
'(or native-inputs inputs)
'inputs)
"docbook-xml")
"/xml/dtd/docbook/")))
(substitute* "meson.build"
(("http://docbook.sourceforge.net/release/xsl/current/")
(string-append (assoc-ref inputs "docbook-xsl")
(string-append (assoc-ref ,(if (%current-target-system)
'(or native-inputs inputs)
'inputs) "docbook-xsl")
"/xml/xsl/docbook-xsl-1.79.2/"))))
#t))
(add-after 'install 'move-docs