me/guix
Archived
1
0
Fork 0
Code Activity

gnu: libsoup: Patch docbook-xml references.

Browse source 
* gnu/packages/gnome.scm (libsoup)[arguments]: Add phase to refer to
local copy of docbook-xml.
[native-inputs]: Add docbook-xml-4.1.2.
This commit is contained in:
Efraim Flashner 2020-12-03 08:59:00 +02:00
parent 6b7c483328
commit d986544316
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
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/gnome.scm
View file

@ -4680,6 +4680,14 @@ libxml to ease remote use of the RESTful API.")
#:configure-flags '("-Dgtk_doc=true") #:configure-flags '("-Dgtk_doc=true")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-docbook-xml
(lambda* (#:key inputs #:allow-other-keys)
(let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook")))
(substitute* (find-files "docs/reference")
(("http://.*/docbookx\\.dtd")
(string-append xmldoc "/docbookx.dtd")))
#t)))
(add-after 'unpack 'adjust-tests (add-after 'unpack 'adjust-tests
(lambda _ (lambda _
;; This test fails due to missing /etc/nsswitch.conf ;; This test fails due to missing /etc/nsswitch.conf
@ -4751,7 +4759,8 @@ libxml to ease remote use of the RESTful API.")
(delete-file-recursively (string-append out "/share/gtk-doc")) (delete-file-recursively (string-append out "/share/gtk-doc"))
#t)))))) #t))))))
(native-inputs (native-inputs
`(("glib:bin" ,glib "bin") ; for glib-mkenums `(("docbook-xml" ,docbook-xml-4.1.2)
("glib:bin" ,glib "bin") ; for glib-mkenums
("gobject-introspection" ,gobject-introspection) ("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc) ("gtk-doc" ,gtk-doc)
("intltool" ,intltool) ("intltool" ,intltool)