[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index][Search]

Re: linux viavoice for emacspeak



Jude <dashielljt@xxxxxxxxxxx> wrote

    Those [viavoice] files seem to have disappeared so far as I can
    determine.  If that is the case, do other software speech
    alternatives now exist to have emacspeak use a sound card?

I got an English-speaking Emacspeak running on a laptop with an
ordinary sound card.  First, I installed these Debian GNU/Linux
packages from the `testing' distribution:

    apt-get install flite      # Festival Lite, the text-to-speech synthesizer
    apt-get install eflite     # The Emacspeak driver for Festival Lite
    apt-get install emacspeak  # The Emacspeak acoustic desktop.  
                                 The Debian `testing' is a version 15
    apt-get install eflite-dev # The development Emacspeak driver,
                                 which may not be necessary

(Appropriate flite, eflite, eflite-dev, and emacspeak packages are
available for other GNU/Linux distributions.)

In addition, I rewrote the
    /usr/bin/emacspeak
shell script for my set up like this; you can adapt it:


#!/bin/sh
# emacspeak - execute emacs with speech enhancements
#$Id: emacspeak.sh.def,v 15.0 2001/11/20 20:05:30 raman Exp $
    if [ -f /etc/emacspeak.conf ]
    then
    . /etc/emacspeak.conf
fi

if [ -f ~bob/.emacs-21 ]
then
	INITSTR="-l ~bob/.emacs-21"
fi

CL_ALL=""
for CL in $* ; do
	if [ "$CL" = "-o" ]; then
		DTK_PROGRAM=outloud
		export DTK_PROGRAM
	elif [ "$CL" = "-q" ]; then
		INITSTR=""
	else
		CL_ALL="$CL_ALL $CL"
	fi
done

export EMACS_UNIBYTE=1
exec emacs -q  --no-site-file \
    --eval '(setq load-path (cons "/usr/share/emacs/site-lisp" load-path))'\
    --eval '(setq load-path (cons "/usr/share/emacs/site-lisp/emacspeak" load-path))'\
    --eval '(setq load-path (cons "/usr/share/emacs/site-lisp/emacspeak/lisp" load-path))'\
    -l /usr/share/emacs/site-lisp/emacspeak/lisp/emacspeak-setup.el \
    --eval '(setq  emacspeak-speak-time-format-string "Time is %_H hours %M minutes UTC, on %A, %_d %B %Y ")'       \
    -fn 10x20 -bg darkblue -fg white -geometry 80x48                \
    -name 'Emacspeak' -T 'Emacspeak'                                \
    -l ~bob/.emacs-for-emacspeak                                    \
    $INITSTR $CL_ALL

################ end /usr/bin/emacspeak ################


Where  ~bob/.emacs-for-emacspeak
contains the following

    ;; ~bob/.emacs-for-emacspeak
    ;; as of 2002 Sep  3, need the following for help to work:

    (defun emacspeak-view-setup-keys()
      "Setup emacspeak convenience keys"
      (declare (special view-mode-map))
      (loop for i from 0 to 9
            do
            (define-key view-mode-map
              (format "%s" i)
              'emacspeak-speak-predefined-window))
    ;;;convenience keys
      (define-key view-mode-map "\C-j"
        'emacspeak-hide-speak-block-sans-prefix)
      (define-key view-mode-map "\M- " 'emacspeak-outline-speak-this-heading)
      (define-key view-mode-map "\M-n"
        'outline-next-visible-heading)
      (define-key view-mode-map "\M-p" 'outline-previous-visible-heading)
      (define-key view-mode-map " " 'scroll-up)
      (define-key view-mode-map "\d" 'scroll-down)
      (define-key view-mode-map "P" 'dtk-pause)
      (define-key view-mode-map "R" 'dtk-resume)
      (define-key view-mode-map "S" 'dtk-stop)
      (define-key view-mode-map "t" 'emacspeak-view-line-to-top)
      (define-key view-mode-map ","
        'emacspeak-speak-current-window)
      (define-key view-mode-map "\M-d"
        'emacspeak-pronounce-dispatch)
      (define-key view-mode-map "c" 'emacspeak-speak-char)
      (define-key view-mode-map "w" 'emacspeak-speak-word)
      (emacspeak-view-optimize-view-keys))



I commented out all of the default contents of
    /etc/emacspeak.conf
and inserted the following in it instead:

## for eflite
export EMACS_UNIBYTE=1
export DTK_TCL=/usr/bin/eflite

Finally, I removed

    /usr/share/emacs/site-lisp/emacspeak/sounds/emacspeak.mp3

This setup does not provide different `voices' so voice lock does not
work; but otherwise, it seems fine to me.

-- 
    Robert J. Chassell                         Rattlesnake Enterprises
    http://www.rattlesnake.com                  GnuPG Key ID: 004B4AC8
    http://www.teak.cc                             bob@xxxxxxxxxxx

-----------------------------------------------------------------------------
To unsubscribe from the emacspeak list or change your address on the
emacspeak list send mail to "emacspeak-request@xxxxxxxxxxx" with a
subject of "unsubscribe" or "help"