;;; -*- mode: lisp-interaction; syntax: elisp; coding: iso-2022-7bit -*-
;;;.emacs Sample file for Bilingual Emacspeak for Windows
;;; $Id: dot.emacs,v 1.5 2002/07/16 15:00:20 mitsugu Exp $
;;; $Author: mitsugu $
;;; Copyright (C) 2001 BEP(Bilingual Emacspeak Project)

;;;
;;; This file is not part of GNU Emacs, but the same permissions apply.
;;;
;;; GNU Emacs is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; GNU Emacs is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Emacs; see the file COPYING.  If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.


;;; 日本語環境設定
(set-language-environment "Japanese")

;;; IMEの設定
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
(setq-default mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]"))
(add-hook 'mw32-ime-on-hook
	  (function (lambda () (set-cursor-height 3))))
(add-hook 'mw32-ime-off-hook
	  (function (lambda () (set-cursor-height 4))))
;;; Startup BEP
(defun load-bemacspeak ()
  "Startup Emacspeak with BEP feature."
  (interactive)
  ;;; English-to-kana dictionary name for BEP SS(Japanese).
;  (setenv "BEP_DIC_PATH" "/home/your/dic/path/bep-eng.dic")
  ;;; play auditory-icon with play program
  ;;; (for Linux. In Windows, don't use this line.)
;  (setq emacspeak-auditory-icon-function 'emacspeak-play-auditory-icon)
  ;;; Specify filename of speech server
  ;;; It should be "speak" in Windows.
  (setenv "DTK_TCL" "SpeakP") ;;; For Use IBM ProTalker97
;  (setenv "DTK_TCL" "SpeakT") ;;; For Use TOSHIBA LaLaVoice

  ;;; Set the type of speech server.
  ;;; It should be "bep-ss" if you use BEP SS.
  (setenv "DTK_PROGRAM" "bep-ss")
  ;;; Full pathname of emacspeak-ja-setup.el
  (load-file "c:/Meadow/site-lisp/emacspeak/lisp/lang/ja/emacspeak-ja-setup.el")
  ;;; Speech rate
  (dtk-set-rate 240 t)
  ;;; Play auditory-icon
  (emacspeak-toggle-auditory-icons t)
;  (emacspeak-sounds-select-theme "chimes-mono/")
)