summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorRaghav Gururajan <raghavgururajan@disroot.org>2020-08-08 01:58:33 -0400
committerDanny Milosavljevic <dannym@scratchpost.org>2020-08-18 23:26:16 +0200
commitde3f0ac66d9cf10ff5174f96989c8d7329987aa3 (patch)
tree63108def53b3a3ad596c91fec312bd718d8f9877 /gnu
parentedaa508100fee7e629a69f8fb116707513a87a9d (diff)
gnu: Add brltty.
* gnu/packages/accessibility.scm (brltty): New variable. Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/accessibility.scm125
1 files changed, 125 insertions, 0 deletions
diff --git a/gnu/packages/accessibility.scm b/gnu/packages/accessibility.scm
index a329cbdf95..14ce805aef 100644
--- a/gnu/packages/accessibility.scm
+++ b/gnu/packages/accessibility.scm
@@ -28,11 +28,23 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system glib-or-gtk)
#:use-module (gnu packages)
+ #:use-module (gnu packages lisp)
+ #:use-module (gnu packages base)
+ #:use-module (gnu packages ocaml)
+ #:use-module (gnu packages pcre)
+ #:use-module (gnu packages polkit)
+ #:use-module (gnu packages ncurses)
+ #:use-module (gnu packages music)
+ #:use-module (gnu packages language)
+ #:use-module (gnu packages icu4c)
+ #:use-module (gnu packages speech)
+ #:use-module (gnu packages linux)
#:use-module (gnu packages documentation)
#:use-module (gnu packages swig)
#:use-module (gnu packages libusb)
#:use-module (gnu packages java)
#:use-module (gnu packages python)
+ #:use-module (gnu packages python-xyz)
#:use-module (gnu packages tcl)
#:use-module (gnu packages xml)
#:use-module (gnu packages gnome)
@@ -79,6 +91,119 @@ terminals.")
(home-page "https://libbraille.org")
(license license:lgpl2.1+)))
+(define-public brltty
+ (package
+ (name "brltty")
+ (version "6.1")
+ (source
+ (origin
+ (method url-fetch)
+ (uri
+ (string-append "https://brltty.app/archive/"
+ name "-" version ".tar.gz"))
+ (sha256
+ (base32 "0nk54chr7z2w579vyiak9xk2avhnvrx7x2l5sk8nyw2zplchkx9q"))))
+ (build-system glib-or-gtk-build-system)
+ (arguments
+ `(#:tests? #f ; No target
+ #:configure-flags
+ (list
+ (string-append "--with-tcl-config="
+ (assoc-ref %build-inputs "tcl")
+ "/lib/tclConfig.sh")
+ (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"))
+ #: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 = ")))
+ #t)))))
+ (native-inputs
+ `(("clisp" ,clisp)
+ ("cython" ,python-cython)
+ ("doxygen" ,doxygen)
+ ("gettext" ,gettext-minimal)
+ ("java" ,icedtea "jdk")
+ ;; ("linuxdoc" ,linuxdoc-tools)
+ ("ocaml" ,ocaml)
+ ("ocamlfind" ,ocaml-findlib)
+ ("pkg-config" ,pkg-config)
+ ("python" ,python-wrapper)
+ ("tcl" ,tcl)))
+ (inputs
+ `(("alsa" ,alsa-lib)
+ ("atspi2" ,at-spi2-core)
+ ("bluez" ,bluez)
+ ("dbus" ,dbus)
+ ("espeak" ,espeak)
+ ("espeak-ng" ,espeak-ng)
+ ("expat" ,expat)
+ ("festival" ,festival)
+ ("flite" ,flite)
+ ("glib" ,glib)
+ ("gpm" ,gpm)
+ ("iconv" ,libiconv)
+ ("icu" ,icu4c)
+ ("libbraille" ,libbraille)
+ ("libpcre2" ,pcre2)
+ ("linux-headers" ,linux-libre-headers)
+ ("louis" ,liblouis)
+ ("ncurses" ,ncurses)
+ ("polkit" ,polkit)
+ ("speech-dispatcher" ,speech-dispatcher)
+ ("util-linux" ,util-linux)
+ ("util-linux:lib" ,util-linux "lib")
+ ("x11" ,libx11)
+ ("xaw" ,libxaw)
+ ("xaw3d" ,libxaw3d)
+ ("xext" ,libxext)
+ ("xfixes" ,libxfixes)
+ ("xt" ,libxt)
+ ("xtst" ,libxtst)))
+ (synopsis "Braille TTY")
+ (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 florence
(package
(name "florence")