From: hunter.t.joz@gmail.com
To: 57126@debbugs.gnu.org
Cc: Hunter Jozwiak <hunter.t.joz@gmail.com>
Subject: [bug#57126] [PATCH] gnu: Add espeakup.
Date: Wed, 10 Aug 2022 13:17:08 -0700 [thread overview]
Message-ID: <CAJ1hvUECo3iJN9XTF36op30BZEiVsVQ+z1TZJodWuw4eBVZMEA@mail.gmail.com> (raw)
From: Hunter Jozwiak <hunter.t.joz@gmail.com>
* gnu/packages/accessibility.scm (espeakup): New variable.
---
gnu/packages/accessibility.scm | 343 ++++++++++++++++++---------------
1 file changed, 184 insertions(+), 159 deletions(-)
diff --git a/gnu/packages/accessibility.scm b/gnu/packages/accessibility.scm
index 22e70b737a..eb49927c4d 100644
--- a/gnu/packages/accessibility.scm
+++ b/gnu/packages/accessibility.scm
@@ -1,9 +1,10 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017 Nikita <nikita@n0.is>
-;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
-;;; Copyright © 2018, 2021, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2019 Andrew Miloradovsky <andrew@interpretmath.pw>
-;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright ?? 2017, 2022 Nikita <nikita@n0.is>
+;;; Copyright ?? 2017 Stefan Reich??r <stefan@xsteve.at>
+;;; Copyright ?? 2018, 2021, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright ?? 2019 Andrew Miloradovsky <andrew@interpretmath.pw>
+;;; Copyright ?? 2020 Efraim Flashner <efraim@flashner.co.il>
+;;; copyright 2022 Hunter Jozwiak <hunter.t.joz@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -21,13 +22,15 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages accessibility)
- #:use-module ((guix licenses) #:prefix license:)
+ #:use-module ((guix licenses)
+ #:prefix license:)
#:use-module (guix utils)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system glib-or-gtk)
+ #:use-module (guix build-system meson)
#:use-module (gnu packages)
#:use-module (gnu packages lisp)
#:use-module (gnu packages ocaml)
@@ -60,28 +63,34 @@ (define-public libbraille
(package
(name "libbraille")
(version "0.19.0")
- (source
- (origin
- (method url-fetch)
- (uri
- (string-append "https://sourceforge.net/projects/" name
"/files/" name "/"
- name "-" version "/" name "-" version ".tar.gz"))
- (sha256
- (base32 "05g8r0ypazqn10i7k48iibs8bzc3scdfcnhcykab8j16lhzd27d0"))))
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "https://sourceforge.net/projects/"
+ name
+ "/files/"
+ name
+ "/"
+ name
+ "-"
+ version
+ "/"
+ name
+ "-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "05g8r0ypazqn10i7k48iibs8bzc3scdfcnhcykab8j16lhzd27d0"))))
(build-system glib-or-gtk-build-system)
(outputs '("out" "bin"))
(arguments
- `(#:tests? #f ; Tests require drivers
- #:configure-flags
- (list
- "--disable-static"
- "--enable-fake")))
- (native-inputs
- (list latex2html pkg-config python-wrapper swig))
- (inputs
- (list glib gtk+-2 libusb-compat))
+ `(#:tests? #f ;Tests require drivers
+ #:configure-flags (list "--disable-static" "--enable-fake")))
+ (native-inputs (list latex2html pkg-config python-wrapper swig))
+ (inputs (list glib gtk+-2 libusb-compat))
(synopsis "Portable Braille Library")
- (description "Libbraille is a library to easily access Braille displays and
+ (description
+ "Libbraille is a library to easily access Braille displays and
terminals.")
(home-page "https://libbraille.org")
(license license:lgpl2.1+)))
@@ -90,143 +99,162 @@ (define-public brltty
(package
(name "brltty")
(version "6.5")
- (source
- (origin
- (method url-fetch)
- (uri
- (string-append "https://brltty.app/archive/brltty-" version ".tar.gz"))
- (sha256
- (base32 "1h62xzd5k0aaq2k4v3w93rizxnb8psvkxrlx62wr08ybwpspgp7z"))))
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "https://brltty.app/archive/brltty-" version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "1h62xzd5k0aaq2k4v3w93rizxnb8psvkxrlx62wr08ybwpspgp7z"))))
(build-system glib-or-gtk-build-system)
(arguments
- `(#:tests? #f ; No target
-
+ `(#:tests? #f ;No target
+
;; High parallelism may cause errors such as:
- ;; ranlib: ./libbrlapi_stubs.a: error reading brlapi_stubs.o:
file truncated
+ ;; ranlib: ./libbrlapi_stubs.a: error reading brlapi_stubs.o:
file truncated
#:parallel-build? #f
- #:configure-flags
- (list
- (string-append "--with-libbraille="
- (assoc-ref %build-inputs "libbraille"))
- (string-append "--with-espeak_ng="
- (assoc-ref %build-inputs "espeak-ng"))
- (string-append "--with-espeak="
- (assoc-ref %build-inputs "espeak"))
- (string-append "--with-flite="
- (assoc-ref %build-inputs "flite"))
- ;; Required for RUNPATH validation.
- (string-append "LDFLAGS=-Wl,-rpath="
- (assoc-ref %outputs "out")
- "/lib"))
- #:make-flags
- (list
- (string-append "JAVA_JAR_DIR="
- (assoc-ref %outputs "out"))
- (string-append "JAVA_JNI_DIR="
- (assoc-ref %outputs "out"))
- (string-append "OCAML_DESTDIR="
- (assoc-ref %outputs "out")
- "/lib")
- (string-append "PYTHON_PREFIX="
- (assoc-ref %outputs "out"))
- "PYTHON_ROOT=/"
- (string-append "TCL_DIR="
- (assoc-ref %outputs "out")
- "/lib")
- "INSTALL_WRITABLE_DIRECTORY=no-thanks")
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'fix-errors
- (lambda* (#:key outputs #:allow-other-keys)
- (substitute* "configure"
- (("/sbin/ldconfig")
- (which "true")))
- ;; Make Python bindings use rpath.
- (substitute* "Bindings/Python/setup.py.in"
- (("extra_compile_args =")
- (string-append "extra_link_args = ['-Wl,-rpath="
- (assoc-ref outputs "out")
- "/lib'], "
- "extra_compile_args = "))))))))
- (native-inputs
- (list clisp
- python-cython
- doxygen
- gettext-minimal
- `(,icedtea "jdk")
- ;; ("linuxdoc" ,linuxdoc-tools)
- ocaml
- ocaml-findlib
- pkg-config
- python-wrapper
- tcl))
- (inputs
- (list alsa-lib
- at-spi2-core
- bluez
- dbus
- espeak
- espeak-ng
- expat
- festival
- flite
- glib
- gpm
- icu4c
- libbraille
- pcre2
- liblouis
- ncurses
- polkit
- speech-dispatcher
- util-linux
- `(,util-linux "lib")
- libx11
- libxaw
- libxaw3d
- libxext
- libxfixes
- libxt
- libxtst))
+ #:configure-flags (list (string-append "--with-libbraille="
+ (assoc-ref %build-inputs
+ "libbraille"))
+ (string-append "--with-espeak_ng="
+ (assoc-ref %build-inputs
+ "espeak-ng"))
+ (string-append "--with-espeak="
+ (assoc-ref %build-inputs
+ "espeak"))
+ (string-append "--with-flite="
+ (assoc-ref
%build-inputs "flite"))
+ ;; Required for RUNPATH validation.
+ (string-append "LDFLAGS=-Wl,-rpath="
+ (assoc-ref %outputs "out")
+ "/lib"))
+ #:make-flags (list (string-append "JAVA_JAR_DIR="
+ (assoc-ref %outputs "out"))
+ (string-append "JAVA_JNI_DIR="
+ (assoc-ref %outputs "out"))
+ (string-append "OCAML_DESTDIR="
+ (assoc-ref %outputs "out") "/lib")
+ (string-append "PYTHON_PREFIX="
+ (assoc-ref %outputs "out"))
+ "PYTHON_ROOT=/"
+ (string-append "TCL_DIR="
+ (assoc-ref %outputs "out") "/lib")
+ "INSTALL_WRITABLE_DIRECTORY=no-thanks")
+ #:phases (modify-phases %standard-phases
+ (add-after 'unpack 'fix-errors
+ (lambda* (#:key outputs #:allow-other-keys)
+ (substitute* "configure"
+ (("/sbin/ldconfig")
+ (which "true")))
+ ;; Make Python bindings use rpath.
+ (substitute* "Bindings/Python/setup.py.in"
+ (("extra_compile_args =")
+ (string-append "extra_link_args = ['-Wl,-rpath="
+ (assoc-ref outputs "out") "/lib'], "
+ "extra_compile_args = "))))))))
+ (native-inputs (list clisp
+ python-cython
+ doxygen
+ gettext-minimal
+ `(,icedtea "jdk")
+ ;; ("linuxdoc" ,linuxdoc-tools)
+ ocaml
+ ocaml-findlib
+ pkg-config
+ python-wrapper
+ tcl))
+ (inputs (list alsa-lib
+ at-spi2-core
+ bluez
+ dbus
+ espeak
+ espeak-ng
+ expat
+ festival
+ flite
+ glib
+ gpm
+ icu4c
+ libbraille
+ pcre2
+ liblouis
+ ncurses
+ polkit
+ speech-dispatcher
+ util-linux
+ `(,util-linux "lib")
+ libx11
+ libxaw
+ libxaw3d
+ libxext
+ libxfixes
+ libxt
+ libxtst))
(synopsis "Braille TTY")
- (description "BRLTTY is a background process (daemon) which provides access
+ (description
+ "BRLTTY is a background process (daemon) which provides access
to the Linux/Unix console (when in text mode) for a blind person using a
refreshable braille display. It drives the braille display, and provides
complete screen review functionality. Some speech capability has also been
incorporated.")
(home-page "https://brltty.app/")
(license license:lgpl2.1+)))
+(define-public espeakup
+ (package
+ (name "espeakup")
+ (version "0.90")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/linux-speakup/espeakup")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0lmjwafvfxy07zn18v3dzjwwpnid2xffgvy2dzlwkbns8gb60ds2"))))
+ (build-system meson-build-system)
+ (native-inputs (list pkg-config))
+ (inputs (list espeak-ng alsa-lib))
+ (license license:gpl3+)
+ (synopsis "A bridge for espeak and speakup")
+ (description
+ "Espeakup is a bridge between the speakup driver implemented in
the Linux kernel and the espeak-ng text to synthesizer.
+
+In order for this package to work, you need to have the following
kernel modules built:
+@itemize @bullet
+@item
+CONFIG_SPEAKUP=m
+@item
+CONFIG_SPEAKUP_SOFT=m
+@end itemize")
+ (home-page "https://github.com/williamh/espeakup")))
(define-public florence
(package
(name "florence")
(version "0.6.3")
- (source
- (origin
- (method url-fetch)
- (uri (string-append "mirror://sourceforge/florence/florence/" version
- "/florence-" version ".tar.bz2"))
- (sha256
- (base32
- "07h9qm22krlwayhzvc391lr23vicw81s48g7rirvx1fj0zyr4aa2"))))
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "mirror://sourceforge/florence/florence/"
+ version "/florence-" version ".tar.bz2"))
+ (sha256
+ (base32
+ "07h9qm22krlwayhzvc391lr23vicw81s48g7rirvx1fj0zyr4aa2"))))
(build-system glib-or-gtk-build-system)
(arguments
- `(#:configure-flags (list "--with-xtst"
- "--without-docs"
+ `(#:configure-flags (list "--with-xtst" "--without-docs"
"--with-notification")))
- (inputs
- (list libxml2
- libglade
- librsvg
- gstreamer
- cairo
- gtk+
- libxtst
- libxcomposite
- libnotify))
- (native-inputs
- (list gettext-minimal intltool pkg-config))
+ (inputs (list libxml2
+ libglade
+ librsvg
+ gstreamer
+ cairo
+ gtk+
+ libxtst
+ libxcomposite
+ libnotify))
+ (native-inputs (list gettext-minimal intltool pkg-config))
(home-page "http://florence.sourceforge.net/")
(synopsis "Extensible, scalable virtual keyboard for X11")
(description
@@ -258,13 +286,12 @@ (define-public footswitch
(base32
"14pyzc4ws1mj859xs9n4x83wzxxvd3bh5bdxzr6nv267xwx1mq68"))))
(build-system gnu-build-system)
- (native-inputs
- (list pkg-config))
- (inputs
- (list hidapi))
+ (native-inputs (list pkg-config))
+ (inputs (list hidapi))
(arguments
- `(#:tests? #f ; no tests
- #:make-flags (list (string-append "CC=" ,(cc-for-target)))
+ `(#:tests? #f ;no tests
+ #:make-flags (list (string-append "CC="
+ ,(cc-for-target)))
#:phases (modify-phases %standard-phases
(delete 'configure)
;; Install target in the Makefile does not work for Guix
@@ -273,15 +300,14 @@ (define-public footswitch
(let ((bin (string-append (assoc-ref outputs "out")
"/bin")))
(install-file "footswitch" bin)
- (install-file "scythe" bin)
- #t))))))
+ (install-file "scythe" bin) #t))))))
(home-page "https://github.com/rgerganov/footswitch")
(synopsis "Command line utility for PCsensor foot switch")
(description
"Command line utility for programming foot switches sold by PCsensor.
It works for both single pedal devices and three pedal devices. All supported
devices have vendorId:productId = 0c45:7403 or 0c45:7404.")
- (license license:expat))))
+ (license license:expat))))
(define-public xmagnify
(package
@@ -298,15 +324,14 @@ (define-public xmagnify
"1ngnp5f5zl3v35vhbdyjpymy6mwrs0476fm5nd7dzkba7n841jdh"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; none included
- #:make-flags
- (list (string-append "CC=" ,(cc-for-target))
- (string-append "prefix=" (assoc-ref %outputs "out")))
- #:phases
- (modify-phases %standard-phases
- (delete 'configure))))
- (inputs
- (list libx11))
+ `(#:tests? #f ;none included
+ #:make-flags (list (string-append "CC="
+ ,(cc-for-target))
+ (string-append "prefix="
+ (assoc-ref %outputs "out")))
+ #:phases (modify-phases %standard-phases
+ (delete 'configure))))
+ (inputs (list libx11))
(home-page "https://gitlab.com/amiloradovsky/magnify")
(synopsis "Tiny screen magnifier for X11")
(description
--
2.37.1
next reply other threads:[~2022-08-10 21:01 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-08-10 20:17 hunter.t.joz [this message]
2022-08-12 3:39 ` [bug#57126] [PATCH v2] gnu: Add espeakup hunter.t.joz
2022-09-21 11:33 ` bug#57126: " Björn Höfling
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=CAJ1hvUECo3iJN9XTF36op30BZEiVsVQ+z1TZJodWuw4eBVZMEA@mail.gmail.com \
--to=hunter.t.joz@gmail.com \
--cc=57126@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).