;======================================================================
; 言語・文字コード関連の設定
; Emacs 22(Gutsy)では、un-define の設定なしで utf-8 が使えます
;======================================================================
(setq load-path (cons "~/.emacs.d" load-path))
;(require 'un-define)
(set-language-environment "Japanese")
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(setq file-name-coding-system 'utf-8)
;;
;======================================================================
; Anthy
;    CTRL-\で入力モード切替え
;======================================================================
(load-library "anthy")
(setq default-input-method "japanese-anthy")
(define-key isearch-mode-map "\C-\\" 'isearch-edit-string)
;;
;=======================================================================
;フォント
;=======================================================================
(cond (window-system
;       (set-default-font "-*-fixed-medium-r-normal--12-*-*-*-*-*-*-*")
       (set-default-font "-shinonome-gothic-medium-r-normal--12-*-*-*-*-*-*-*")
       (progn
         (set-face-font 'default
                        "-shinonome-gothic-medium-r-normal--12-*-*-*-*-*-*-*")
         (set-face-font 'bold
                        "-shinonome-gothic-bold-r-normal--12-*-*-*-*-*-*-*")
         (set-face-font 'italic
                        "-shinonome-gothic-medium-i-normal--12-*-*-*-*-*-*-*")
         (set-face-font 'bold-italic
                        "-shinonome-gothic-bold-i-normal--12-*-*-*-*-*-*-*")
       )))
;;
;=======================================================================
;フレームサイズ・位置・色など
;=======================================================================
(setq initial-frame-alist
       (append (list
;                  '(foreground-color . "green")                ;; 文字色
;                  '(background-color . "#222222")              ;; 背景色
;                  '(border-color . "black")
;                  '(mouse-color . "green")
;                  '(cursor-color . "green")
                  '(width . 140)                               ;; フレームの幅
                  '(height . 100)                               ;; フレームの高さ
                  '(top . 0)                                  ;; Y 表示位置
                  '(left . 200)                                ;; X 表示位置
                  )
               initial-frame-alist))
(setq default-frame-alist initial-frame-alist)
;;
;=======================================================================
; Misc
;=======================================================================
;(mouse-wheel-mode)                                              ;;ホイールマウス
(global-font-lock-mode t)                                       ;;文字の色つけ
(setq line-number-mode t)                                       ;;カーソルのある行番号を表示
(auto-compression-mode t)                                       ;;日本語infoの文字化け防止
;(set-scroll-bar-mode 'right)                                    ;;スクロールバーを右に表示
;(global-set-key "\C-z" 'undo)                                   ;;UNDO
(setq frame-title-format                                        ;;フレームのタイトル指定
        (concat "%b - emacs@" system-name))
(global-set-key "\C-m" 'newline-and-indent)                     ;;インデント付きの改行
;(display-time)                                                 ;;時計を表示
(global-set-key "\C-h" 'backward-delete-char)                  ;;Ctrl-Hでバックスペース
(setq make-backup-files nil)                                   ;;バックアップファイルを作成しない
(setq visible-bell t)                                          ;;警告音を消す
;(setq kill-whole-line t)                                       ;;カーソルが行頭にある場合も行全体を削除

(setq-default indent-tabs-mode nil)                             ;;タブではなくスペースを使う
;rst-mode
(autoload 'rst-mode "rst-mode" "mode for editing reStructuredText documents" t)
(setq auto-mode-alist
    (append '(("\\.rst$" . rst-mode)
          ("\\.rest$" . rst-mode)
                  ("\\.mine$" . rst-mode)) auto-mode-alist))
(setq jit-lock-context-time 5.0)
(setq jit-lock-defer-time 1.0)
(setq jit-lock-stealth-time 5.0)
(setq jit-lock-stealth-verbose nil)
(setq jit-lock-stealth-nice 0.5)
(setq jit-lock-stealth-load 50)
(setq jit-lock-chunk-size 100)

;Default Directory
(setq default-directory "~/")
(setq insert-default-dirctory 'nil)