(add-to-list 'load-path "/usr/share/emacs21/site-lisp/emacspeak/lisp")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/emacspeak/lisp")
(add-to-list 'load-path "/usr/src/emacspeak/lisp")

(setq emacspeak-unibyte nil)
(setq debug-on-error t)
(setq dtk-program "/usr/bin/eflite")
;(setq dtk-program "/usr/share/emacs/site-lisp/emacspeak/servers/espeakf.pl")
(setenv "DTK_TCL" dtk-program)
(setenv "DTK_PROGRAM" dtk-program)

                                        ;(setenv "DTK_TCL" "/usr/bin/perl")
; (setenv "DTK_PROGRAM" "/usr/src/espeakf/espeakf.pl")

(setq emacspeak-pronounce-internet-smileys-pronunciations
  '((":-)" . " smile ")
    (":)" . " grin ")
    ("^_^" . " grin ")
    (":-(" . " frown ") 
    (":(" . " sigh ")
    (":-P" . " niyaa niyaa ")
    (":-I" .  " shrug ")
    (":->" . " sarcastic smile ")
    (">:->" . " devilish smile ")
    (">;->" . " lewd smile ")
    (";-)" . " wink ")
    ("IRC" . " eye are see ")
    ("bbl" . " be back later ")))

;;(eval-after-load 'erc
;;  '(add-hook 'erc-mode-hook (lambda () (when dtk-quiet (dtk-toggle-quiet)))))

;;; Sacha: For some reason, I may have to replace this so that it
;;; correctly works with empty prompts. (Why do we have empty prompts?)

;; (defadvice dtk-speak-with-voice (around sacha activate)
;;   (unless dtk-quiet
;;     ad-do-it))

;; (defadvice emacspeak-fix-interactive (around sacha activate)
;;    (condition-case nil
;;       ad-do-it
;;      (error nil)))

;; (defadvice emacspeak-show-interactive (around sacha activate)
;;    (condition-case nil ad-do-it
;;      (error nil)))

;; (setq dtk-stop-immediately-while-typing t)
(setq emacspeak-word-echo nil)
(setq emacspeak-line-echo nil)


(setq emacspeak-character-echo nil)
(setq emacspeak-audio-indentation nil)
;; (setq emacspeak-mail-spool-file "/var/spool/mail/sacha")
;; (setq emacspeak-speak-messages t)
;; (setq emacspeak-delete-char-speak-deleted-char t)
;; (setq emacspeak-backward-delete-char-speak-deleted-char t)
;; (setq emacspeak-directory "/usr/share/emacs/site-lisp/emacspeak")
(load "emacspeak-setup.el")

;; (dtk-toggle-split-caps)
;;(unless dtk-quiet
;;   (dtk-toggle-quiet t))
;; (dtk-set-rate 200)
(dtk-set-punctuations 'none 1)

 (defadvice newline-and-indent (around emacspeak pre act)
   "Speak the previous line if line echo is on.
 See command \\[emacspeak-toggle-line-echo].
 Otherwise cue user to the line just created."
   (declare (special emacspeak-line-echo ))
   (when (and (interactive-p) emacspeak-line-echo)
     (emacspeak-speak-line))
   ad-do-it
   ad-return-value)