ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 13:09:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: at-spi2-core: Don't cross-compile documentation.

Browse source 
* gnu/packages/gtk.scm
  (at-spi2-core)[arguments]<#:configure-flags>: Set docs=false when
  cross-compiling.
  (at-spi2-core)[arguments]<#:phases>{move-documentation}: Remove when
  cross-compiling.
This commit is contained in:
Maxime Devos 2021-08-25 13:59:19 +02:00 committed by Mathieu Othacehe
parent 0636f02b0e
commit b79bf535e4
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 18 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/gtk.scm
View file

@ -724,9 +724,13 @@ (define-public at-spi2-core
(build-system meson-build-system)
(outputs '("out" "doc"))
(arguments
'(#:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
`(#:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
#:configure-flags
(list "-Ddocs=true")
;; Generating documentation requires running binaries for the host
;; on the build machine.
(list ,(if (%current-target-system)
"-Ddocs=false"
"-Ddocs=true"))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'set-documentation-path
@ -748,16 +752,18 @@ (define-public at-spi2-core
(("http://.*/docbookx\\.dtd")
(string-append xmldoc "/docbookx.dtd")))
#t)))
(add-after 'install 'move-documentation
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(doc (assoc-ref outputs "doc")))
(copy-recursively
(string-append out "/share/gtk-doc")
(string-append doc "/share/gtk-doc"))
(delete-file-recursively
(string-append out "/share/gtk-doc")))
#t))
,@(if (%current-target-system)
'()
'((add-after 'install 'move-documentation
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(doc (assoc-ref outputs "doc")))
(copy-recursively
(string-append out "/share/gtk-doc")
(string-append doc "/share/gtk-doc"))
(delete-file-recursively
(string-append out "/share/gtk-doc")))
#t))))
(add-after 'install 'check
(lambda _
(setenv "HOME" (getenv "TMPDIR")) ; xfconfd requires a writable HOME