me/guix
Archived
1
0
Fork 0
Code Activity

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 @@ scaled, composited, modified, saved, or rendered.")
(build-system meson-build-system) (build-system meson-build-system)
(outputs '("out" "doc")) (outputs '("out" "doc"))
(arguments (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 #: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 #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-documentation-path (add-after 'unpack 'set-documentation-path
@ -748,16 +752,18 @@ scaled, composited, modified, saved, or rendered.")
(("http://.*/docbookx\\.dtd") (("http://.*/docbookx\\.dtd")
(string-append xmldoc "/docbookx.dtd"))) (string-append xmldoc "/docbookx.dtd")))
#t))) #t)))
(add-after 'install 'move-documentation ,@(if (%current-target-system)
(lambda* (#:key outputs #:allow-other-keys) '()
(let ((out (assoc-ref outputs "out")) '((add-after 'install 'move-documentation
(doc (assoc-ref outputs "doc"))) (lambda* (#:key outputs #:allow-other-keys)
(copy-recursively (let ((out (assoc-ref outputs "out"))
(string-append out "/share/gtk-doc") (doc (assoc-ref outputs "doc")))
(string-append doc "/share/gtk-doc")) (copy-recursively
(delete-file-recursively (string-append out "/share/gtk-doc")
(string-append out "/share/gtk-doc"))) (string-append doc "/share/gtk-doc"))
#t)) (delete-file-recursively
(string-append out "/share/gtk-doc")))
#t))))
(add-after 'install 'check (add-after 'install 'check
(lambda _ (lambda _
(setenv "HOME" (getenv "TMPDIR")) ; xfconfd requires a writable HOME (setenv "HOME" (getenv "TMPDIR")) ; xfconfd requires a writable HOME