;;      filename: /home/tcross/cvs/elisp/10speech.el
;; Creation Date: Sunday, 16 January 2005 01:38 PM EST
;; Last Modified: Monday, 08 June 2009 03:14 PM EST
;;        Author: Tim Cross <tcross@une.edu.au>
;;   Description:
;;
(require 'view)

(when (and (not noninteractive)
           (not (featurep 'emacspeak)))
  (let ((src-path (concat "/home/tcross/svn/"
                          (getenv "SPEECH_SERVER"))))
    (add-to-list 'load-path src-path)
    (setenv "EMACSPEAK_DIR" src-path)
    (setq emacspeak-unibyte nil)
    (setq emacspeak-aumix-multichannel-capable-p t)
    (setq tts-default-speech-rate 90)
    (setq outloud-default-speech-rate 90)
    (setq emacspeak-vm-use-raman-settings nil)
    (add-hook 'emacspeak-startup-hook
              (lambda ()
                (dtk-set-rate tts-default-speech-rate 1)
                (dtk-interp-sync)
;                (when (emacspeak-sounds-theme-p "cartoon-22k-mono/")
;                  (emacspeak-sounds-select-theme "cartoon-22k-mono/"))
                (emacspeak-toggle-auditory-icons t)))
    (load-file (concat src-path "/lisp/emacspeak-setup.el"))))

;;(tts-configure-synthesis-setup)