From: 宋文武 <iyzsong@member.fsf.org>
To: 26415@debbugs.gnu.org
Cc: 宋文武 <iyzsong@member.fsf.org>
Subject: bug#26415: [PATCH 3/3] gnu: Add orca.
Date: Sun, 9 Apr 2017 17:49:42 +0800 [thread overview]
Message-ID: <20170409094942.20144-3-iyzsong@member.fsf.org> (raw)
In-Reply-To: <20170409094942.20144-1-iyzsong@member.fsf.org>
* gnu/packages/gnome.scm (orca): New package.
---
gnu/packages/gnome.scm | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 48 insertions(+)
diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index bf53835a0..3930a2f48 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -125,6 +125,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
@@ -6025,3 +6026,50 @@ 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-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")))
+ `("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)
+ ("gtk+" ,gtk+)
+ ("python" ,python)
+ ("python-pygobject" ,python-pygobject)
+ ("python-pyatspi" ,python-pyatspi)
+ ("python-speechd" ,speech-dispatcher)))
+ (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+)))
--
2.12.2
prev parent reply other threads:[~2017-04-09 9:58 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-04-09 9:49 bug#26413: [PATCH 1/3] gnu: speech-dispatcher: Add more inputs 宋文武
2017-04-09 9:49 ` bug#26414: [PATCH 2/3] gnu: Add python-pyatspi 宋文武
2017-04-09 15:18 ` Marius Bakke
2017-04-09 9:49 ` 宋文武 [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20170409094942.20144-3-iyzsong@member.fsf.org \
--to=iyzsong@member.fsf.org \
--cc=26415@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).