summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
author宋文武 <iyzsong@member.fsf.org>2017-04-09 17:47:10 +0800
committer宋文武 <iyzsong@member.fsf.org>2017-04-15 13:10:25 +0800
commit53201c0def3c226a2d46c2a9e2f2d82d1d5d7c53 (patch)
treec6b48871f678de428a2279d4c36cfb9c77f54b49 /gnu
parent3e00ac47d63a7b0fdbb4b1a4f28c3b131ccc6808 (diff)
gnu: Add orca.
* gnu/packages/gnome.scm (orca): New package.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/gnome.scm63
1 files changed, 63 insertions, 0 deletions
diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 57b312f0c1..40bac9fd93 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -127,6 +127,7 @@
#:use-module (gnu packages fonts)
#:use-module (gnu packages qemu)
#:use-module (gnu packages zip)
+ #:use-module (gnu packages speech)
#:use-module (srfi srfi-1))
(define-public brasero
@@ -6057,3 +6058,65 @@ kill/reinice processes.")
accessibility infrastructure.")
(license license:lgpl2.0)
(properties '((upstream-name . "pyatspi")))))
+
+(define-public orca
+ (package
+ (name "orca")
+ (version "3.24.0")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://gnome/sources/" name "/"
+ (version-major+minor version) "/"
+ name "-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1la6f815drykrgqf791jx1dda6716cfv6052frqp7nhjxr75xg97"))))
+ (build-system glib-or-gtk-build-system)
+ (arguments
+ '(#:phases
+ (modify-phases %standard-phases
+ (add-before 'configure 'qualify-xkbcomp
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((xkbcomp (string-append
+ (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
+ (substitute* "src/orca/orca.py"
+ (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
+ #t))
+ (add-after 'install 'wrap-orca
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (prog (string-append out "/bin/orca")))
+ (wrap-program prog
+ `("GI_TYPELIB_PATH" ":" prefix
+ (,(getenv "GI_TYPELIB_PATH")))
+ `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
+ (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
+ `("PYTHONPATH" ":" prefix
+ (,(getenv "PYTHONPATH")))))
+ #t)))))
+ (native-inputs
+ `(("intltool" ,intltool)
+ ("itstool" ,itstool)
+ ("pkg-config" ,pkg-config)
+ ("xmllint" ,libxml2)))
+ (inputs
+ `(("at-spi2-atk" ,at-spi2-atk)
+ ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
+ ("gstreamer" ,gstreamer)
+ ("gst-plugins-base" ,gst-plugins-base)
+ ("gst-plugins-good" ,gst-plugins-good)
+ ("gtk+" ,gtk+)
+ ("python" ,python)
+ ("python-pygobject" ,python-pygobject)
+ ("python-pyatspi" ,python-pyatspi)
+ ("python-speechd" ,speech-dispatcher)
+ ("xkbcomp" ,xkbcomp)))
+ (synopsis
+ "Screen reader for individuals who are blind or visually impaired")
+ (home-page "https://wiki.gnome.org/Projects/Orca")
+ (description
+ "Orca is a screen reader that provides access to the graphical desktop
+via speech and refreshable braille. Orca works with applications and toolkits
+that support the Assistive Technology Service Provider Interface (AT-SPI).")
+ (license license:lgpl2.1+)))