;;; -*- mode: lisp-interaction; syntax: elisp; coding: iso-2022-7bit -*-
;;;
;;; NTEmacs 21.2

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

;;; IMEの設定
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
;; IME インジケータの設定
(setq-default mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list
      '("[--]" "[あ]" "[--]"))
;; y/n, yes/no の問合せ時に IME をオフにする
(wrap-function-to-control-ime 'y-or-n-p nil nil)
(wrap-function-to-control-ime 'yes-or-no-p nil nil)

;; SKK の漢字辞書
(setq skk-large-jisyo "d:/win32app/lib/skk/SKK-JISYO.L")

;;; スクリプトを emacs から実行するための設定
(require 'mw32script)

;;; font-lockの設定
(if window-system
    (progn
      (global-font-lock-mode t)))

;;; フォント設定（TrueType を使う場合）
;(setq scalable-fonts-allowed t)
;(let ((jfont "-*-ＭＳ ゴシック-*-*-*-*-*-*-*-*-*-*-jisx0208-sjis")
;      (specs '(latin-jisx0201 katakana-jisx0201 japanese-jisx0208)))
;  (create-fontset-from-fontset-spec
;   (concat "-*-Courier New-*-*-*-*-12-*-*-*-*-*-fontset-std,"
;	   (mapconcat (lambda (x) (format "%s:%s" x jfont)) specs ",")))
;  (while specs
;    (set-fontset-font "fontset-std" (make-char (car specs))
;		      '("ＭＳ ゴシック" . "jisx0208-sjis"))
;    (setq specs (cdr specs))))
;(set-default-font (w32-select-font))
;;; フォント設定alternatives（TrueType を使う場合）
(setq scalable-fonts-allowed t)
(let ((jfont "-*-ＭＳ ゴシック-*-*-*-*-10-*-*-*-*-*-jisx0208-sjis")
      (specs '(latin-jisx0201 katakana-jisx0201 japanese-jisx0208)))
  (create-fontset-from-fontset-spec
   (concat "-*-Courier New-*-*-*-*-12-*-*-*-*-*-fontset-std,"
	   (mapconcat (lambda (x) (format "%s:%s" x jfont)) specs ",")))
    )

;;; 初期フレームの設定
(setq default-frame-alist
      (append '(
		(foreground-color . "black")
		(background-color . "linen")
		;; 設定した fontset-std を利用する
		(font . "fontset-std")
		;; 日本語変換中のフォントの設定
		(ime-font . "-*-ＭＳ ゴシック-*-*-*-*-12-*-*-*-*-*-jisx0208-sjis")
		(width . 81)
		(height . 48)
		(top . 10)
		(left . 10)
		)
	      default-frame-alist))

;;; shell の設定
;; Cygwin bash
(setq explicit-shell-file-name "bash")
(setq shell-file-name "sh")
(setq shell-command-switch "-c")
;; shell coding-system の設定
(add-hook 'shell-mode-hook
	  (lambda ()
	    (set-buffer-process-coding-system 'undecided-dos
					      'sjis-unix)))

;;; プログラム開発環境の設定
;; Java JDEE
(require 'jde)

;; 起動時にホームへ飛ぶ
(cd "~/")

;;;
;;; end of file
;;;