mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 14:28:15 -05:00
gnu: at-spi2-core-minimal: Update to 2.45.90, rename to at-spi2-core.
at-spi2-core now includes at-spi2-atk (see: https://gitlab.gnome.org/GNOME/at-spi2-core/-/merge_requests/78). * gnu/packages/gtk.scm (at-spi2-core-minimal): Rename to... (at-spi2-core): ... this. Update to 2.45.90. [phases]{check}: Adjust per upstream changes. [inputs]: Add libxml2. [native-inputs]: Delete labels. Add gsettings-desktop-schemas, python-dbusmock and python-pytest. (at-spi2-core-with-documentation): Variable renamed from at-spi2-core. Adjust accordingly to changes to parent (inherited) package, and use gexps. (at-spi2-atk): Deprecate by at-spi2-core. (gtk+)[propagated-inputs]: Use at-spi2-core. * gnu/packages/gnome.scm (orca)[inputs]: Likewise. * gnu/packages/gnome.scm (gnome): Likewise.
This commit is contained in:
Maxim Cournoyer
parent
5f73aaa6c3
commit
28d27ddd3d
3 changed files with 69 additions and 99 deletions
|
|
@ -878,7 +878,7 @@ (define-public ungoogled-chromium
|
|||
(inputs
|
||||
(list alsa-lib
|
||||
atk
|
||||
at-spi2-atk
|
||||
at-spi2-core
|
||||
cups
|
||||
curl
|
||||
dbus
|
||||
|
|
|
|||
|
|
@ -9444,7 +9444,7 @@ (define-public gnome
|
|||
;; XXX: Find out exactly which ones are needed and why.
|
||||
("font-abattis-cantarell" ,font-abattis-cantarell)
|
||||
("font-dejavu" ,font-dejavu)
|
||||
("at-spi2-core" ,at-spi2-core-minimal)
|
||||
("at-spi2-core" ,at-spi2-core)
|
||||
("dbus" ,dbus)
|
||||
("dconf" ,dconf)
|
||||
("desktop-file-utils" ,desktop-file-utils)
|
||||
|
|
@ -10391,7 +10391,7 @@ (define-public orca
|
|||
pkg-config
|
||||
libxml2))
|
||||
(inputs
|
||||
(list at-spi2-atk
|
||||
(list at-spi2-core
|
||||
gsettings-desktop-schemas
|
||||
gstreamer
|
||||
gst-plugins-base
|
||||
|
|
|
|||
|
|
@ -724,11 +724,11 @@ (define-public gdk-pixbuf-xlib
|
|||
(license license:lgpl2.1+)))
|
||||
|
||||
;;; A minimal variant used to prevent a cycle with Inkscape.
|
||||
(define-public at-spi2-core-minimal
|
||||
(define-public at-spi2-core
|
||||
(hidden-package
|
||||
(package
|
||||
(name "at-spi2-core")
|
||||
(version "2.40.0")
|
||||
(version "2.45.90")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||||
|
|
@ -736,33 +736,44 @@ (define-public at-spi2-core-minimal
|
|||
name "-" version ".tar.xz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0a9l6cfxynjn6jcp29d72i75xbkrzs1l5kmqcwmfal801b9sg5j1"))))
|
||||
"03dba3c6m3sfapkkbbgzvbi1qcmrrlppydxjjs1m8ds9qb9hl1g9"))))
|
||||
(build-system meson-build-system)
|
||||
(arguments
|
||||
'(#:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'install 'check
|
||||
(lambda _
|
||||
(setenv "HOME" (getenv "TMPDIR")) ; xfconfd requires a writable HOME
|
||||
;; Run test-suite under a dbus session.
|
||||
(setenv "XDG_DATA_DIRS" ; for finding org.xfce.Xfconf.service
|
||||
(string-append %output "/share"))
|
||||
;; Don't fail on missing '/etc/machine-id'.
|
||||
(setenv "DBUS_FATAL_WARNINGS" "0") ;
|
||||
(invoke "dbus-launch" "ninja" "test")))
|
||||
(delete 'check))))
|
||||
(list
|
||||
#:glib-or-gtk? #t ;to wrap binaries and/or compile schemas
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'check)
|
||||
(add-after 'install 'check
|
||||
(lambda _
|
||||
(setenv "HOME" (getenv "TMPDIR")) ;xfconfd requires a writable HOME
|
||||
;; Run test-suite under a dbus session.
|
||||
(setenv "XDG_DATA_DIRS" ;for finding org.xfce.Xfconf.service
|
||||
(string-append #$output "/share:" (getenv "XDG_DATA_DIRS")))
|
||||
;; Don't fail on missing '/etc/machine-id'.
|
||||
(setenv "DBUS_FATAL_WARNINGS" "0")
|
||||
(with-directory-excursion (string-append "../at-spi2-core-"
|
||||
#$version "")
|
||||
(invoke "dbus-run-session" "--" "ci/run-registryd-tests.sh")
|
||||
(substitute* "ci/run-tests.sh"
|
||||
(("ps auxwww") "") ;avoid a dependency on procps
|
||||
(("meson test -C _build")
|
||||
"meson test -C ../build")) ;adjust build directory
|
||||
(invoke "dbus-run-session" "--" "ci/run-tests.sh")))))))
|
||||
(inputs
|
||||
(list bash-minimal))
|
||||
(list bash-minimal libxml2))
|
||||
(propagated-inputs
|
||||
;; atspi-2.pc refers to all these.
|
||||
(list dbus glib libx11 libxi libxtst))
|
||||
(native-inputs
|
||||
`(("gettext" ,gettext-minimal)
|
||||
("glib" ,glib "bin")
|
||||
("gobject-introspection" ,gobject-introspection)
|
||||
("pkg-config" ,pkg-config)
|
||||
("python" ,python-wrapper)))
|
||||
(list gettext-minimal
|
||||
`(,glib "bin")
|
||||
gobject-introspection
|
||||
gsettings-desktop-schemas
|
||||
pkg-config
|
||||
python-dbusmock
|
||||
python-pytest
|
||||
python-wrapper))
|
||||
(synopsis "Assistive Technology Service Provider Interface, core components")
|
||||
(description
|
||||
"The Assistive Technology Service Provider Interface, core components,
|
||||
|
|
@ -770,86 +781,45 @@ (define-public at-spi2-core-minimal
|
|||
(license license:lgpl2.1+)
|
||||
(home-page "https://wiki.gnome.org/Accessibility/"))))
|
||||
|
||||
(define-public at-spi2-core
|
||||
(package/inherit at-spi2-core-minimal
|
||||
(outputs (cons "doc" (package-outputs at-spi2-core-minimal)))
|
||||
(define-public at-spi2-core-with-documentation
|
||||
(package/inherit at-spi2-core
|
||||
(outputs (cons "doc" (package-outputs at-spi2-core)))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments at-spi2-core-minimal)
|
||||
(substitute-keyword-arguments (package-arguments at-spi2-core)
|
||||
((#:configure-flags flags ''())
|
||||
`(cons ,(if (%current-target-system)
|
||||
"-Ddocs=false"
|
||||
"-Ddocs=true")
|
||||
,flags))
|
||||
#~(cons #$(if (%current-target-system)
|
||||
"-Ddocs=false"
|
||||
"-Ddocs=true")
|
||||
#$flags))
|
||||
((#:phases phases)
|
||||
`(modify-phases ,phases
|
||||
(add-after 'unpack 'set-documentation-path
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
;; Ensure that the cross-references point to the "doc" output.
|
||||
(substitute* "doc/libatspi/meson.build"
|
||||
(("docpath =.*")
|
||||
(string-append "docpath = '" (assoc-ref outputs "doc")
|
||||
"/share/gtk-doc/html'\n")))))
|
||||
(add-before 'install 'prepare-doc-directory
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(mkdir-p (string-append (assoc-ref outputs "doc") "/share"))))
|
||||
,@(if (%current-target-system)
|
||||
'()
|
||||
'((add-after 'install 'move-documentation
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out"))
|
||||
(doc (assoc-ref outputs "doc")))
|
||||
(copy-recursively
|
||||
(string-append out "/share/gtk-doc")
|
||||
(string-append doc "/share/gtk-doc"))
|
||||
(delete-file-recursively
|
||||
(string-append out "/share/gtk-doc")))))))))))
|
||||
#~(modify-phases #$phases
|
||||
(add-after 'unpack 'set-documentation-path
|
||||
(lambda _
|
||||
;; Ensure that the cross-references point to the "doc" output.
|
||||
(substitute* "doc/libatspi/meson.build"
|
||||
(("docpath =.*")
|
||||
(string-append "docpath = '" #$output:doc
|
||||
"/share/gtk-doc/html'\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
|
||||
(append `(("docbook-xml" ,docbook-xml-4.3)
|
||||
("gtk-doc" ,gtk-doc/stable)
|
||||
("libxml2" ,libxml2)) ;for XML_CATALOG_FILES
|
||||
(package-native-inputs at-spi2-core-minimal)))
|
||||
(modify-inputs (package-native-inputs at-spi2-core)
|
||||
(append docbook-xml-4.3 gtk-doc/stable)))
|
||||
(properties (alist-delete 'hidden?
|
||||
(package-properties at-spi2-core-minimal)))))
|
||||
(package-properties at-spi2-core)))))
|
||||
|
||||
(define-public at-spi2-atk
|
||||
(package
|
||||
(name "at-spi2-atk")
|
||||
(version "2.38.0")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://gnome/sources/" name "/"
|
||||
(version-major+minor version) "/"
|
||||
name "-" version ".tar.xz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0ks6r9sx27l80n3a7yjmkilxv48cqj183wc7cap3caw2myjhi86g"))))
|
||||
(build-system meson-build-system)
|
||||
(arguments
|
||||
`(#:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
|
||||
;; Compiling tests requires "libxml2" to be in 'inputs'.
|
||||
,@(if (%current-target-system)
|
||||
`(#:configure-flags '("-Dtests=false"))
|
||||
'())
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(replace 'check
|
||||
;; Run test-suite under a dbus session.
|
||||
(lambda _
|
||||
(setenv "DBUS_FATAL_WARNINGS" "0")
|
||||
(invoke "dbus-launch" "meson" "test"))))))
|
||||
(propagated-inputs
|
||||
(list at-spi2-core-minimal)) ; required by atk-bridge-2.0.pc
|
||||
(inputs
|
||||
(list atk glib))
|
||||
(native-inputs
|
||||
(list dbus ; For tests
|
||||
gobject-introspection libxml2 pkg-config))
|
||||
(synopsis "Assistive Technology Service Provider Interface, ATK bindings")
|
||||
(description
|
||||
"The Assistive Technology Service Provider Interface
|
||||
is part of the GNOME accessibility project.")
|
||||
(license license:lgpl2.1+)
|
||||
(home-page "https://wiki.gnome.org/Accessibility/")))
|
||||
(deprecated-package "at-spi2-atk" at-spi2-core))
|
||||
|
||||
(define-public gtk+-2
|
||||
(package
|
||||
|
|
@ -971,7 +941,7 @@ (define-public gtk+
|
|||
"gtk3-respect-GUIX_GTK3_IM_MODULE_FILE.patch"))))
|
||||
(propagated-inputs
|
||||
(list atk
|
||||
at-spi2-atk
|
||||
at-spi2-core
|
||||
cairo
|
||||
fribidi
|
||||
fontconfig
|
||||
|
|
|
|||
Loading…
Reference in a new issue