;; nothing yet :(
(setq emacspeak-directory "/usr/local/lib/xemacs/site-lisp/emacspeak")
(setq emacspeak-lisp-directory (expand-file-name  "lisp/" emacspeak-directory))
(setq emacspeak-sounds-directory (expand-file-name  "sounds/" emacspeak-directory))
(setq emacspeak-etc-directory (expand-file-name  "etc/" emacspeak-directory))
(setq emacspeak-servers-directory (expand-file-name "servers/" emacspeak-directory))
(setq emacspeak-resource-directory (expand-file-name "~/.emacspeak/"))
(setq default-enable-multibyte-characters nil)
(dtk-set-rate 380 t)
(emacspeak-toggle-auditory-icons t)
(dtk-set-character-scale 1.05 t)
(emacspeak-toggle-character-echo t)
(dtk-toggle-split-caps t)
;;
(defun emacspeak-speak-time ()
  "Speak the time. "
  (interactive)
  (dtk-speak  (format-time-string "%A %B %e, %I %M %p" 
                                  (current-time))))