;;; -*- Coding: iso-2022-7bit -*-

;;; Language Environment: Japanese
(set-language-environment "Japanese")

;;; Windows IME
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
; (set-keyboard-coding-system 'sjis) ; See "README.Meadow.ja"

;; Windows IME の ON/OFF 状態をモードラインに表示する
(setq mw32-ime-show-mode-line t) ; デフォルトで t（表示する）。

;; モードラインに表示される IME のインジケータをカスタマイズする
;  OFF : [--]
;  ON  : [あ]
(setq-default mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list
      '("[--]" "[あ]" "[--]"))

;; IME の制御 
(wrap-function-to-control-ime 'y-or-n-p nil nil)
(wrap-function-to-control-ime 'yes-or-no-p nil nil)

;;font-lock-mode
(global-font-lock-mode t)

;;; フレームパラメータ初期値の設定
(setq default-frame-alist
      (append (list
               ;; サイズ
               '(width . 75)  ; 横幅（桁数）
               '(height . 30) ; 高さ（行数）
               ;; 位置
               '(top . 140)  ; フレーム左上角 y 座標（ピクセル）
               '(left . 190) ; フレーム左上角 x 座標（ピクセル）
               ;; 背景色・文字色
               '(background-color . "OldLace")
               '(foreground-color . "black")
               ;; カーソル
               '(cursor-type . box) ; 種類
               '(cursor-height . 4) ; 高さ
               '(cursor-color . "black") ; 色
               ;; スクロールバー
               '(vertical-scroll-bars . left)
               ;; フォント
;              '(font . "default-fontset")
;              '(ime-font . "default-japanese-jisx0208")
               )
              default-frame-alist))

;;; 行番号・桁番号をモードラインに表示する・しない設定
(line-number-mode t) ; 行番号
(column-number-mode t) ; 桁番号

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; auto-fill（自動詰め込み）モードの設定
;;;

;; テキストモードで常に auto-fill
; (add-hook 'text-mode-hook
;           '(lambda () (auto-fill-mode 1)))


;; 折り返し桁数の初期値
(setq-default fill-column 70)
; バッファごとに桁数を変更できるので setq じゃなくて setq-default 
; C-u 60 C-x f のようにして随時変更可能

;;; ここまで

;;自動的に auto-fill を有効にする
(add-hook 'text-mode-hook 'turn-on-auto-fill)

;; 常にホームディレクトリから
(cd "~")

;;; バッファの最後の行で next-line しても新しい行を作らない
(setq next-line-add-newlines nil)

;; hoge.txt~ みたいなバックアップファイルを作らないようにする 
(setq backup-inhibited t)

;; ステータスラインに時間を表示する
(display-time)