TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: at-spi2-core: Fix documentation.

Browse source 
* gnu/packages/gtk.scm (at-spi2-core) [arguments]<#:phases>['patch-docbook-sgml]: New phase.
[native-inputs]: Add docbook-xml.

Signed-off-by: Léo Le Bouter <lle-bout@zaclys.net>
This commit is contained in:
Raghav Gururajan 2021-03-11 13:24:57 -05:00
parent 34d4502729
commit 5e4d1f6c40
No known key found for this signature in database
GPG key ID: 45A8B1E86BCD10A6
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/gtk.scm
View file

@ -713,6 +713,14 @@ (define-public at-spi2-core
(lambda* (#:key outputs #:allow-other-keys)
(mkdir-p (string-append (assoc-ref outputs "doc") "/share"))
#t))
(add-after 'unpack 'patch-docbook-sgml
(lambda* (#:key inputs #:allow-other-keys)
(let* ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook")))
(substitute* "doc/libatspi/libatspi-docs.sgml"
(("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"))
@ -741,7 +749,8 @@ (define-public at-spi2-core
("libxi" ,libxi)
("libxtst" ,libxtst)))
(native-inputs
`(("gettext" ,gettext-minimal)
`(("docbook-xml" ,docbook-xml-4.3)
("gettext" ,gettext-minimal)
("glib" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc)