From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:51014) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cxi0c-0004dh-IW for guix-patches@gnu.org; Mon, 10 Apr 2017 18:42:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cxi0Y-0002MQ-J2 for guix-patches@gnu.org; Mon, 10 Apr 2017 18:42:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:43464) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cxi0Y-0002MM-FP for guix-patches@gnu.org; Mon, 10 Apr 2017 18:42:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cxi0Y-00056g-AM for guix-patches@gnu.org; Mon, 10 Apr 2017 18:42:02 -0400 Subject: bug#26437: [PATCH] gnu: Add emacspeak. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50964) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cxi0F-0004bO-8k for guix-patches@gnu.org; Mon, 10 Apr 2017 18:41:44 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cxi0B-0002FG-Bp for guix-patches@gnu.org; Mon, 10 Apr 2017 18:41:43 -0400 Received: from lb1.openmailbox.org ([5.79.108.160]:55556 helo=mail.openmailbox.org) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cxi0B-0002Em-3y for guix-patches@gnu.org; Mon, 10 Apr 2017 18:41:39 -0400 From: Kei Kebreau Date: Mon, 10 Apr 2017 18:41:24 -0400 Message-Id: <20170410224124.28803-1-kei@openmailbox.org> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 26437@debbugs.gnu.org Cc: Kei Kebreau * gnu/packages/emacs.scm (emacspeak): New variable. --- gnu/packages/emacs.scm | 61 ++++++++++++++++++++++++++++++++++++++++++++= ++++++ 1 file changed, 61 insertions(+) diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index 3db31f207..ac78bea94 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -22,6 +22,7 @@ ;;; Copyright =C2=A9 2017 Cl=C3=A9ment Lassieur ;;; Copyright =C2=A9 2017 Vasile Dumitrascu ;;; Copyright =C2=A9 2017 Kyle Meyer +;;; Copyright =C2=A9 2017 Kei Kebreau ;;; ;;; This file is part of GNU Guix. ;;; @@ -51,6 +52,7 @@ #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system trivial) #:use-module (gnu packages) + #:use-module (gnu packages audio) #:use-module (gnu packages code) #:use-module (gnu packages guile) #:use-module (gnu packages gtk) @@ -58,6 +60,7 @@ #:use-module (gnu packages ncurses) #:use-module (gnu packages tex) #:use-module (gnu packages texinfo) + #:use-module (gnu packages tcl) #:use-module (gnu packages tls) #:use-module (gnu packages pkg-config) #:use-module (gnu packages xorg) @@ -4057,3 +4060,61 @@ jQuery and Bootstrap resources included via osscdn= .") (description "This Emacs package highlights the s-exp at the current position.") (license license:gpl3+))) + +(define-public emacspeak + (package + (name "emacspeak") + (version "45.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/tvraman/emacspeak/releases/download/" + version "/emacspeak-" version ".tar.bz2")) + (sha256 + (base32 + "0npcr867xbbhwa0i7v26hnk4z2d51522jwcfwc594j74kbv3g6ka")))) + (build-system gnu-build-system) + (arguments + '(#:make-flags (list (string-append "prefix=3D" + (assoc-ref %outputs "out"))) + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (substitute* "Makefile" + (("\\$\\(INSTALL\\) -d \\$\\(libdir\\)/servers/linux-outl= oud") + "") + (("\\$\\(INSTALL\\) -m 755 \\$\\{OUTLOUD\\}.*$") "") + (("\\*info\\*") "*")) + (substitute* "etc/emacspeak.sh.def" + (("") + (string-append (assoc-ref outputs "out") + "/share/emacs/site-lisp/emacspeak/lisp"))= ) + (zero? (system* "make" "config")))) + (add-after 'install 'install-espeak-server + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) =20 + (with-directory-excursion "servers/linux-espeak" + (and (zero? (system* "make")) + (zero? (system* "make" "install" + (string-append "PREFIX=3D" out))))= )))) + (add-after 'install-espeak-server 'wrap-program + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (emacspeak (string-append out "/bin/emacspeak")) + (espeak (string-append (assoc-ref inputs "espeak") + "/bin/espeak"))) + (wrap-program emacspeak + `("DTK_PROGRAM" ":" prefix (,espeak))))))) + #:tests? #f)) ; no check target + (inputs + `(("espeak" ,espeak) + ("tcl" ,tcl) + ("tclx" ,tclx))) + (native-inputs `(("emacs" ,emacs-minimal))) + (home-page "http://emacspeak.sourceforge.net") + (synopsis "Audio desktop interface for Emacs") + (description + "Emacspeak is an Emacs subsystem that provides complete speech acce= ss.") + (license license:gpl2+))) --=20 2.12.2