me
/
guix
Archived
1
0
Fork 0

gnu: dee: Remove patch-docbook-xml phase.

* gnu/packages/gnome.scm (dee) [arguments]: Remove patch-docbook-xml
phase.  Use gexps.
[native-inputs]: Remove labels.  Add libxml2.
[inputs]: Remove labels.
master
Maxim Cournoyer 2023-04-20 15:53:42 -04:00
parent adbd08e010
commit 6cc1c11d0a
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 39 additions and 49 deletions

View File

@ -627,31 +627,22 @@ of writing test cases for asynchronous interactions.")
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(outputs '("out" "doc")) (outputs '("out" "doc"))
(arguments (arguments
`(#:configure-flags (list #:configure-flags
(list #~(list "--disable-maintainer-flags"
"--disable-maintainer-flags"
(string-append "--with-pygi-overrides-dir=" (string-append "--with-pygi-overrides-dir="
(assoc-ref %outputs "out") #$output "/lib/python"
"/lib/python" #$(version-major+minor
,(version-major+minor
(package-version python)) (package-version python))
"/site-packages/gi/overrides") "/site-packages/gi/overrides")
(string-append "--with-html-dir=" (string-append "--with-html-dir="
(assoc-ref %outputs "doc") #$output "/share/gtk-doc/html"))
"/share/gtk-doc/html"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-docbook-xml (add-after 'unpack 'disable-failing-tests
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "doc/reference/dee-1.0"
(substitute* "dee-1.0-docs.sgml"
(("http://www.oasis-open.org/docbook/xml/4.3/")
(string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook/"))))))
(add-after 'patch-docbook-xml 'disable-failing-tests
(lambda _ (lambda _
(substitute* "tests/test-icu.c" (substitute* "tests/test-icu.c"
(("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,") (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\",\
Fixture, 0,")
"") "")
(("setup, test_ascii_folder, teardown\\);") (("setup, test_ascii_folder, teardown\\);")
"")))) ""))))
@ -662,21 +653,20 @@ of writing test cases for asynchronous interactions.")
;; For missing '/etc/machine-id'. ;; For missing '/etc/machine-id'.
(setenv "DBUS_FATAL_WARNINGS" "0")))))) (setenv "DBUS_FATAL_WARNINGS" "0"))))))
(native-inputs (native-inputs
`(("dbus" ,dbus) (list dbus
("dbus-test-runner" ,dbus-test-runner) dbus-test-runner
("docbook-xml" ,docbook-xml-4.3) docbook-xml-4.3
("gobject-introspection" ,gobject-introspection) gobject-introspection
("gtk-doc" ,gtk-doc/stable) gtk-doc/stable
;; Would only be required by configure flag "--enable-extended-tests". ;; Would only be required by configure flag "--enable-extended-tests".
;("gtx" ,gtx) ;;gtx
("pkg-config" ,pkg-config) libxml2 ;for XML_CATALOG_FILES
("pygobject" ,python-pygobject) pkg-config
("python" ,python-wrapper) python-pygobject
("vala" ,vala-0.52))) python-wrapper
(inputs vala-0.52))
`(("icu" ,icu4c))) (inputs (list icu4c))
(propagated-inputs (propagated-inputs (list glib))
(list glib))
(synopsis "Model to synchronize multiple instances over DBus") (synopsis "Model to synchronize multiple instances over DBus")
(description "Dee is a library that uses DBus to provide objects allowing (description "Dee is a library that uses DBus to provide objects allowing
you to create Model-View-Controller type programs across DBus. It also consists you to create Model-View-Controller type programs across DBus. It also consists