amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: at-spi2-core: Update to 2.48.4.

Browse source 
* gnu/packages/gtk.scm (at-spi2-core): Update to 2.48.4.
(at-spi2-core-with-documentation)[#:phases]: Adjust accordingly.
[native-inputs]: Remove docbook-xml-4.3 and gtk-doc/stable.
Add gi-docgen, python, and python-sphinx.

Change-Id: I3fc09c79f1ae5594fe9ad50e7212fbee11ce8a90
Co-authored-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Vivien Kraus 2023-10-23 18:20:53 +02:00 • committed by Liliana Marie Prikler
parent 088aacb66e
commit a5118e5d97
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 19 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

43
gnu/packages/gtk.scm
View file

@ -106,6 +106,7 @@
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages python-build) #:use-module (gnu packages python-build)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages gstreamer) #:use-module (gnu packages gstreamer)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz) #:use-module (gnu packages guile-xyz)
@ -792,7 +793,7 @@ ever use this library.")
(hidden-package (hidden-package
(package (package
(name "at-spi2-core") (name "at-spi2-core")
(version "2.45.90") (version "2.48.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/" (uri (string-append "mirror://gnome/sources/" name "/"
@ -800,7 +801,7 @@ ever use this library.")
name "-" version ".tar.xz")) name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"03dba3c6m3sfapkkbbgzvbi1qcmrrlppydxjjs1m8ds9qb9hl1g9")))) "05d5azffbglnvqzwk8ngg61jksm3brrwhmfpymsrccz8j8lv3v19"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
(list (list
@ -816,10 +817,15 @@ ever use this library.")
(lambda _ (lambda _
;; xfconfd requires a writable HOME ;; xfconfd requires a writable HOME
(setenv "HOME" (getenv "TMPDIR")) (setenv "HOME" (getenv "TMPDIR"))
;; Run test-suite under a dbus session. ;; dbus-run-session may crash if XDG_DATA_DIRS has too
(setenv "XDG_DATA_DIRS" ;for finding org.xfce.Xfconf.service ;; many entries, maybe related to
(string-append #$output "/share:" ;; https://gitlab.freedesktop.org/dbus/dbus/-/issues/481.
(getenv "XDG_DATA_DIRS"))) (setenv "XDG_DATA_DIRS"
(string-append
#$output "/share:"
#$(this-package-native-input
"gsettings-desktop-schemas")
"/share"))
;; Don't fail on missing '/etc/machine-id'. ;; Don't fail on missing '/etc/machine-id'.
(setenv "DBUS_FATAL_WARNINGS" "0") (setenv "DBUS_FATAL_WARNINGS" "0")
(with-directory-excursion (string-append "../at-spi2-core-" (with-directory-excursion (string-append "../at-spi2-core-"
@ -837,7 +843,8 @@ ever use this library.")
;; atspi-2.pc refers to all these. ;; atspi-2.pc refers to all these.
(list dbus glib libx11 libxi libxtst)) (list dbus glib libx11 libxi libxtst))
(native-inputs (native-inputs
(list gettext-minimal (list findutils
gettext-minimal
`(,glib "bin") `(,glib "bin")
gobject-introspection gobject-introspection
gsettings-desktop-schemas gsettings-desktop-schemas
@ -867,25 +874,13 @@ is part of the GNOME accessibility project.")
(add-after 'unpack 'set-documentation-path (add-after 'unpack 'set-documentation-path
(lambda _ (lambda _
;; Ensure that the cross-references point to the "doc" output. ;; Ensure that the cross-references point to the "doc" output.
(substitute* "doc/libatspi/meson.build" (substitute* "doc/meson.build"
(("docpath =.*") (("docs_dir =.*")
(string-append "docpath = '" #$output:doc (string-append "docs_dir = '" #$output:doc
"/share/gtk-doc/html'\n"))))) "/share/doc'\n")))))))))
(add-before 'install 'prepare-doc-directory
(lambda _
(mkdir-p (string-append #$output:doc "/share"))))
#$@(if (%current-target-system)
#~()
#~((add-after 'install 'move-documentation
(lambda _
(copy-recursively
(string-append #$output "/share/gtk-doc")
(string-append #$output:doc "/share/gtk-doc"))
(delete-file-recursively
(string-append #$output "/share/gtk-doc"))))))))))
(native-inputs (native-inputs
(modify-inputs (package-native-inputs at-spi2-core) (modify-inputs (package-native-inputs at-spi2-core)
(append docbook-xml-4.3 gtk-doc/stable))) (append gi-docgen python python-sphinx)))
(properties (alist-delete 'hidden? (properties (alist-delete 'hidden?
(package-properties at-spi2-core))))) (package-properties at-spi2-core)))))