me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* gnu/packages/gnome.scm (libhandy) [arguments]: Remove
patch-docbook-xml phase.  Use gexps.
This commit is contained in:
Maxim Cournoyer 2023-04-20 16:08:17 -04:00
parent fa836220b7
commit 04df12a9c3
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 14 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
gnu/packages/gnome.scm
View file

@ -11819,30 +11819,20 @@ tabs, and it supports drag and drop re-ordering of terminals.")
(base32 "1z8sbx7g19c1p8dy0sn0l25qfvrd2j28h269lsqm1y98r818h2k1")))) (base32 "1z8sbx7g19c1p8dy0sn0l25qfvrd2j28h269lsqm1y98r818h2k1"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
`(#:configure-flags (list #:configure-flags
'("-Dglade_catalog=enabled" #~(list "-Dglade_catalog=enabled"
;; XXX: Generating the documentation fails because the ;; XXX: Generating the documentation fails because the
;; libhandy.devhelp2 document cannot be created. This seems to be ;; libhandy.devhelp2 document cannot be created. This seems
;; caused by a problem during the XSL transformation. ;; to be caused by a problem during the XSL transformation.
"-Dgtk_doc=false") "-Dgtk_doc=false")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-docbook-xml (add-before 'check 'pre-check
(lambda* (#:key inputs #:allow-other-keys) (lambda _
(for-each ;; Tests require a running X server.
(lambda (file) (system "Xvfb :1 &")
(substitute* file (setenv "DISPLAY" ":1"))))))
(("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd") (inputs (list gtk+ glade3))
(search-input-file inputs
"/xml/dtd/docbook/docbookx.dtd"))))
(find-files "doc" "\\.xml"))))
(add-before 'check 'pre-check
(lambda _
;; Tests require a running X server.
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1"))))))
(inputs
(list gtk+ glade3))
(native-inputs (native-inputs
(list gobject-introspection ; for g-ir-scanner (list gobject-introspection ; for g-ir-scanner
`(,glib "bin") `(,glib "bin")