;;日本語環境
(set-language-environment "Japanese")
(set-default-coding-systems 'sjis-dos)
(set-keyboard-coding-system 'sjis)
(set-terminal-coding-system 'sjis)
(setq file-name-coding-system 'sjis)
(set-clipboard-coding-system 'sjis-dos)
(set-w32-system-coding-system 'sjis-dos)
;;IME
; C-\でWindowsのIMEのオンオフをトグル切替えする
; Meadow 1.00
;(select-input-method "MW32-IME")
; Meadow 1.10
(set-input-method "MW32-IME")
(toggle-input-method)
(setq-default mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]"))
(mw32-ime-initialize)    ;;;; IME の初期化

;;; SHELLの設定(DOSコマンドシェルの場合）
;(setq shell-file-name "command.com")
;(setq shell-command-switch "\\/c")
;;; SHELLの設定(bash)
(setq shell-file-name "bash")
(setenv "SHELL" shell-file-name)
(setq explicit-shell-file-name shell-file-name)
(setq explicit-sh-args '("-login" "-i"))
(setq shell-command-switch "-c")
(setq win32-quote-process-args t)

;;画面設定
;;これでカラーにする
(require 'hilit19)

(setq default-frame-alist
      (append (list '(width . 80)
                    '(height . 30)
                    '(background-color . "#fff0f0")
;	            '(font . "private-fontset")
               )
               default-frame-alist))

;; JDE設定
;; JDEには、cc-mode,customが必要
;(setq load-path
;      '("c:/Cygwin/usr/local/Meadow/site-lisp/jde-2.0"
;	"c:/Cygwin/usr/local/Meadow/site-lisp/cc-mode-5.21"
;	"c:/Cygwin/usr/local/Meadow/site-lisp/custom-1.9962"
;	"c:/Cygwin/usr/local/Meadow/site-lisp"
;	"c:/Cygwin/usr/local/Meadow/1.00/lisp"
;	"c:/Cygwin/usr/local/Meadow/1.00/lisp/progmodes"
;	"c:/Cygwin/usr/local/Meadow/1.00/lisp/emacs-lisp"))
;(require 'jde)
;;JDE環境変数設定
;;使用するコンパイラを指定
;(jde-set-compiler "C:/java/jdk1.1.6/bin/javac")

; コンパイル・実行・デバッグで使用するCLASSPATHを指定
; (注)ディレクトリ区切り子は'/'を使う。javacの-classpathに適用されるため、
;    JDKのclasses.zipも含めておくこと。
; JDK1.1.6
; JFC1.0(swing1.0.2)
; Servlet2.0(JSDK2.0)
;(jde-set-global-classpath ".;c:/java/jdk1.1.6/lib/classes.zip;c:/java/swing-1.0.2/swingall.jar;c:/java/JSDK2.0/lib/jsdk.jar")

;; Java実行オプション設定
; 使用するJavaVMを指定, Windowsプラットフォームでは、java.exeではなく
; javaw.exeを使用する。これはDOSプロンプトを使用しないjavaVMである。
;(jde-run-set-vm-w "C:/java/jdk1.1.6/bin/javaw")

;; Version Control
; default Version Control System is RCS
(setq vc-default-back-end 'RCS)

;; TABコードはスペースで置き換える。
;; TABが必要なのはmakefileの時だけだと思う。
;; TABコード入力にはC-q TABを使う。
; (setq-default indent-tabs-mode nil)

;; TABはスペース4個ぶんで
; (setq-default tab-width 4)

;; Adaモード
(setq auto-mode-alist
  (append '(("Makefile.win$" . makefile-mode)
            ("\\.sql$" . ada-mode))
  auto-mode-alist))
(setq ada-indent 2)

;; FONTの定義と設定
;; fixedsys-font.elを呼び出し設定
(load "c:/Wintools/Meadow/site-lisp/fixedsys-font.el")
(set-default-font "fixedsys-fontset")
(set-fontset-font "fixedsys-fontset" 'korean-ksc5601 "hanglm16")
(set-fontset-font "fixedsys-fontset" 'chinese-gb2312 "gb16fs")
(set-fontset-font "fixedsys-fontset" 'ipa "etl16-ipa")
(set-fontset-font "fixedsys-fontset" 'latin-iso8859-1 "8x16")
(setq default-frame-alist
      (append '((font . "fixedsys-fontset"))
              default-frame-alist))
;;--------ココマデ-------