ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: at-spi2-core: Find docbook when cross-compiling.

Browse source 
* gnu/packages/gtk.scm
  (at-spi2-core)[arguments]<#:phases>{patch-docbook-sgml}: Look up
  "docbook-sxml" in 'native-inputs' instead of 'inputs' when cross-compiling.
This commit is contained in:
Maxime Devos 2021-08-25 14:01:38 +02:00 committed by Mathieu Othacehe
parent b79bf535e4
commit b9ae6181df
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/gtk.scm
View file

@ -744,10 +744,17 @@ (define-public at-spi2-core
(lambda* (#:key outputs #:allow-other-keys)
(mkdir-p (string-append (assoc-ref outputs "doc") "/share"))
#t))
;; TODO(core-updates): Unconditionally use (or native-inputs inputs)
(add-after 'unpack 'patch-docbook-sgml
(lambda* (#:key inputs #:allow-other-keys)
(let* ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook")))
(lambda* (#:key ,@(if (%current-target-system)
'(native-inputs)
'()) inputs #:allow-other-keys)
(let* ((xmldoc
(string-append (assoc-ref ,(if (%current-target-system)
'(or native-inputs inputs)
'inputs)
"docbook-xml")
"/xml/dtd/docbook")))
(substitute* "doc/libatspi/libatspi-docs.sgml"
(("http://.*/docbookx\\.dtd")
(string-append xmldoc "/docbookx.dtd")))