noqisofon · December 21, 2010 00:10
diff --git a/init.el b/init.el
 ;;; init.el
 ;(setq debug-on-error t)

 ;; ===============================================================================
 ;;
 ;; Environmental discrimination(環境識別)
 ;;
 ;; ===============================================================================
 (defvar *run-unix-like*
  (or (equal system-type 'gnu/linux)
      (equal system-type 'darwin)
      (equal system-type 'usg-unix-v)))
 (defvar *run-windows*
  (and (null *run-unix-like*)
       (or (equal system-type 'windows-nt)
           (equal system-type 'ms-dos))))
 (defvar *run-macosx*
  (and *run-unix-like*
       (null *run-windows*)
       (and (equal window-system 'ns)
            (equal system-type 'darwin))))
 (defvar *run-win32*
  (and (null *run-unix-like*)
       *run-windows*
       (equal system-type 'windows-nt)))
 (defvar *run-x-window-system*
  (and *run-unix-like* (eq window-system 'x)))
 (defvar *run-emacs20*
  (and (equal emacs-major-version 20)
       (null (featurep 'xemacs))))
 (defvar *run-emacs21*
  (and (equal emacs-major-version 21)
       (null (featurep 'xemacs))))
 (defvar *run-emacs22*
  (and (equal emacs-major-version 22)
       (null (featurep 'xemacs))))
 (defvar *run-emacs23*
  (and (equal emacs-major-version 23)
       (null (featurep 'xemacs))))
 (defvar *run-meadow* (featurep 'meadow))
 (defvar *run-meadow1* (and *run-meadow* *run-emacs20*))
 (defvar *run-meadow2* (and *run-meadow* *run-emacs21*))
 (defvar *run-meadow3* (and *run-meadow* *run-emacs22*))
 (defvar *run-xemacs* (featurep 'xemacs))
 (defvar *run-xemacs-no-mule*
  (and *run-xemacs* (not (featurep 'mule))))


 ;; ===============================================================================
 ;;
 ;; Macros(マクロ)
 ;;
 ;; ===============================================================================
 ;; (via: "http://e-arrows.sakura.ne.jp/2010/03/macros-in-emacs-el.html")
 ;; lambda を書かずに、/'.*/ の次の引数に関数をズラズラ書けます。
 (defmacro add-hook-fn (name &rest body)
  `(add-hook ,name #'(lambda () ,@body)))

 ;; lambda を書かずに関数をそのまま書くことができる global-set-key です。
 (defmacro global-set-key-fn (key args &rest body)
  `(global-set-key ,key (lambda ,args ,@body)))

 ;; append して setq します。
 (defmacro append-to-list (to list)
  `(setq ,to (append ,list ,to)))

 ;; ライブラリがあったら require します。
 (defmacro require-if-exists (library &rest body)
  `(when (locate-library ,(symbol-name library))
     (require ',library) ,@body))

 ;; 遅延ロードします。
 (defmacro lazyload (func library-name &rest body)
  `(when (locate-library ,library-name)
     ,@(mapcar (lambda (f) `(autoload ',f ,library-name nil t)) func)
     (eval-after-load ,library-name
                      '(progn
                        ,@body))))


 ;; ===============================================================================
 ;;
 ;; User script directory(ユーザースクリプト用ディレクトリ)
 ;;
 ;; ===============================================================================
 (cond (*run-meadow*
       (append-to-list load-path '("c:/usr/editor/meadow/site-lisp/apel"
                                   "c:/usr/editor/meadow/site-lisp/emu")))
      (*run-macosx*
       (append-to-list load-path '("/opt/local/share/emacs/site-lisp/apel"
                                   "/opt/local/share/emacs/23.2/site-lisp/emu")))
      (*run-x-window-system*
       (append-to-list load-path '("~/.emacs.d/vendor/ibus"))))
 (append-to-list load-path '("~/.emacs.d/conf"
                            "~/.emacs.d/site-lisp"
                            "~/.emacs.d/vendor"
                            "~/.emacs.d/vendor/elscreen"
                            "~/.emacs.d/vendor/egg"
                            "~/.emacs.d/vendor/ruby"
                            "~/.emacs.d/vendor/textmate"
                            "~/.emacs.d/vendor/yasnippet"
                            "~/.emacs.d/vendor/zencoding"
                            "~/.emacs.d/vendor/markdown"))


 ;; ===============================================================================
 ;;
 ;; i18n(国際化と地域化)
 ;;
 ;; ===============================================================================
 ;; 日本語環境を指定します。
 (set-language-environment "Japanese")

 ;; メニューを日本語化します。
 ;; 文字化けする場合は、menu-tree.elをロードする前に menu-tree-coding-system に適当な coding-system をセットします。
 (if (and (= emacs-major-version 22)
         (equal window-system 'x))
    (setq menu-tree-coding-system 'utf-8))
 (require-if-exists menu-tree)
 ;; 「utf-8」の部分は各自の環境に合わせて設定してください。
 ;(require 'menu-tree nil t)


 ;; ===============================================================================
 ;;
 ;; Charset Encoding(文字エンコーディング)
 ;;
 ;; ===============================================================================
 (if *run-windows*
    (progn
      (if *run-meadow*
          (set-w32-system-coding-system 'sjis))
      (if (fboundp 'set-default-coding-sytem)
          (set-default-coding-sytem 'sjis))
      (set-terminal-coding-system 'sjis)
      (set-clipboard-coding-system 'sjis-dos)
      (set-keyboard-coding-system 'sjis)
      (prefer-coding-system 'sjis))
  ;; else
  (progn
    (if (fboundp 'set-default-coding-sytem)
        (set-default-coding-sytem 'utf-8))
    (set-terminal-coding-system 'utf-8)
    (set-clipboard-coding-system 'utf-8-unix)
    (set-keyboard-coding-system 'utf-8)
    (prefer-coding-system 'utf-8)))


 ;; ===============================================================================
 ;;
 ;; IME configuration(IME 設定)
 ;;
 ;; ===============================================================================
 (when *run-meadow*
  ;; IME のモードごとにカーソル色を変えます。
  (add-hook-fn 'mw32-ime-on-hook
               nil
               (set-cursor-height 4)
               (set-cursor-color "maroon"))
  (add-hook-fn 'mw32-ime-off-hook
               nil
               (set-cursor-height 4)
               (set-cursor-color "black"))
  ;; IME を初期化します。
  (mw32-ime-initialize)
  (setq default-input-method "MW32-IME")
  ;; IME ON/OFF mode-line
  (setq mw32-ime-show-mode-line t)
  ;; IME mode-line indicator
  ;; 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の制御(yes/noをタイプするところでは IME を off にします)
  (wrap-function-to-control-ime 'universal-argument t nil)
  (wrap-function-to-control-ime 'read-string nil nil)
  (wrap-function-to-control-ime 'read-char nil nil)
  (wrap-function-to-control-ime 'read-from-minibuffer nil nil)
  (wrap-function-to-control-ime 'y-or-n-p nil nil)
  (wrap-function-to-control-ime 'yes-or-no-p nil nil)
  (wrap-function-to-control-ime 'map-y-or-n-p nil nil)

  (eval-after-load "ange-ftp"
                   '(wrap-function-to-control-ime 'ange-ftp-get-passwd nil nil)))
 (when *run-x-window-system*
  (require-if-exists ibus
                     ;; 初期化後に ibus モードを起動します。
                     (add-hook 'after-init-hook 'ibus-mode-on)
                     ;; C-SPC は Set Mark に使います。
                     (ibus-define-common-key ?\C-\s nil)
                     ;; C-/ は Undo に使います。
                     (ibus-define-common-key ?\C-/ nil)
                     ;; IBusの状態によってカーソル色を変化させます。
                     (setq ibus-cursor-color '("red" "blue" "limegreen"))))


 ;; ===============================================================================
 ;;
 ;; Fonts(フォント)
 ;;
 ;; ===============================================================================
 ;; * フォントの設定
 ;;
 (when *run-windows*
  ;; フォントセットを追加します。
  (load "ms-gothic-13.el")

  ;; 起動時およびnew-frame時のフレーム(ウィンドウ)の設定。
  (add-to-list 'default-frame-alist '(font . "MS Gothic 13"))
  ;; 現在のフレームの設定(.emacs中では省略可)
  (set-frame-font "MS Gothic 13")

  ;; IMEのフォントを設定。こういう書式でないとだめらしい。
  (let ((logfont '(w32-logfont "MS Gothic" 0 0 400 0 nil nil nil 128 1 3 0)))
    (modify-frame-parameters (selected-frame) (list (cons 'ime-font logfont)))
    (add-to-list 'default-frame-alist (cons 'ime-font logfont)))

  (set-face-font 'mode-line "MS Gothic 13")
  (set-face-font 'mode-line-inactive "MS Gothic 13"))


 ;; ===============================================================================
 ;;
 ;; Display theme(ディスプレイテーマ)
 ;;
 ;; ===============================================================================
 (when window-system
  ;; 選択範囲に色をつけます。
  (setq-default transient-mark-mode t)
  ;; 選択範囲の色を指定します。
  (set-face-background 'region "SkyBlue")
  (set-face-foreground 'region "black")

  ;; カーソルを縦棒にします。
  (if (fboundp 'set-cursor-type)
      (set-cursor-type 'hairline-caret)
    ;; else
    (if *run-meadow3*
        (add-to-list 'default-frame-alist '(cursor-type . hairline-caret))
      ;; else
      (add-to-list 'default-frame-alist '(cursor-type . '(bar . 5)))))
  ;; カーソルの色を黒にします。
  (set-cursor-color "black")

  ;; フレームのアルファ値です。
  (setq frame-alpha 85)

  ;;
  ;; ** フレーム透過設定
  (if *run-meadow3*
      ;; カレントウィンドウ(ウィンドウ全体？)の透明度です。
      (set-frame-parameter nil 'alpha frame-alpha)
    ;; デフォルトの透明度です。
    (add-to-list 'default-frame-alist (cons 'alpha frame-alpha)))

  ;; 一行あたりの文字数は 170 です。
  (add-to-list 'default-frame-alist '(width . 170))
  ;; 20 行を表示します。
  (add-to-list 'default-frame-alist '(height . 20))
  ;; ディスプレイのX座標(ピクセル)
  (add-to-list 'default-frame-alist '(top . 5))
  ;; ディスプレイのY座標(ピクセル)
  (add-to-list 'default-frame-alist '(left . 5))

  ;; 背景色を白にします。
  (add-to-list 'default-frame-alist '(background-color . "white"))
  ;; 文字の色を黒にします。
  (add-to-list 'default-frame-alist '(foreground-color . "black"))

  ;; モードラインの文字色。
  (set-face-foreground 'mode-line "white")
  ;; モードラインの背景色。
  (set-face-background 'mode-line "black")

  ;;
  ;; *** アクティブでないモードラインの文字、背景色
  ;; Meadow 2 では定義されていないようです。
  ;;
  (when (not *run-meadow2*)
    ;; アクティブでないモードラインの文字色。
    (set-face-foreground 'mode-line-inactive "gray30")
    ;; アクティブでないモードラインの背景色。
    (set-face-background 'mode-line-inactive "gray85")))



 ;; ===============================================================================
 ;;
 ;; Highlights(ハイライト)
 ;;
 ;; ===============================================================================
 (when window-system
  ;; キーワードのカラー表示を有効化します。
  (global-font-lock-mode t)

  ;; コメント
  (set-face-foreground 'font-lock-comment-face "gray55")
  ;; キーワード
  (set-face-foreground 'font-lock-keyword-face "green4")
  ;; キーワードを太文字にします。
  (make-face-bold 'font-lock-keyword-face)
  ;; 関数名
  (set-face-foreground 'font-lock-function-name-face "royal blue")
  ;; 関数名を太文字にします。
  (make-face-bold 'font-lock-function-name-face)
  ;; 変数
  (set-face-foreground 'font-lock-variable-name-face "gray29")
  ;; 文字列
  (set-face-foreground 'font-lock-string-face "blue")
  ;; 定数
  (set-face-foreground 'font-lock-constant-face "forest green")
  ;; 変数の型
  (set-face-foreground 'font-lock-type-face "dark olive green")
  ;; シンボル
  (set-face-foreground 'font-lock-builtin-face "MediumPurple3")
  ;; シンボルを太文字にします。
  (make-face-bold 'font-lock-builtin-face)
  ;; わーにんぐふぇいす？
  (set-face-foreground 'font-lock-warning-face "LightSteelBlue4")

  ;; ハイライトの文字色。
  (set-face-foreground 'highlight "gray88")
  ;; ハイライトの背景色。
  (set-face-background 'highlight "white"))


 ;; ===============================================================================
 ;;
 ;; Highlights parentheses(括弧のハイライト)
 ;;
 ;; ===============================================================================
 ;; 対応するカッコをハイライト表示します。
 (show-paren-mode 1)

 ;(require 'paren)
 ;(set-face-background 'show-paren-match-face (face-background 'default))
 (set-face-background 'show-paren-match-face "gray85")
 ;(set-face-foreground 'show-paren-match-face "#def")
 ;(set-face-attribute 'show-paren-match-face nil :weight 'extra-bold)


 ;; ===============================================================================
 ;;
 ;; Setting the title bar and toolbar(タイトルバーとツールバーの設定)
 ;;
 ;; ===============================================================================
 ;; 現在選択中のバッファがファイルからできているかどうか判別します。
 (defun is-selected-buffer-from-file ()
  "現在選択中のバッファがファイルからできているかどうか判別します。"
  (let ((selected-buffer-filename (buffer-file-name))
        (selected-buffer-name (buffer-name)))
    (if selected-buffer-filename t nil)))

 (when *run-meadow*
  ;; タイトルキャプションを更新します。
  (defun update-title-caption ()
    "タイトルキャプションを更新します。"
    (setq about-meadow (let* ((meadow-about-text (car (split-string (Meadow-version) " ")))
                              (first-hyphen (string-match "-" meadow-about-text)))
                         (store-substring meadow-about-text first-hyphen " ")))
    (setq frame-title-format
          (list (if (is-selected-buffer-from-file) "%f" "%b") " - " about-meadow "@" (system-name))))
  ;; とりあえずタイトル更新。
  (update-title-caption))
 ;;; %f だと、フルパス名。 %b ならバッファの名前。

 ;; 現在は meadow 用に update-title-caption 関数を定義していますが、
 ;; 他の Emacen では定義していないので、ガード句でくるんでいます。
 ;; meadow 以外でも同じようにしたい場合は 同じ名前の関数を定義してください。
 (if (fboundp 'update-title-caption)
    ;; switch-to-buffer の後に frame-title-format の値を更新します。
    (defadvice switch-to-buffer
               (after switch-to-buffer-after-update-the-title-captions first () activate)
               (message (buffer-name))
               (update-title-caption)))


 ;; ===============================================================================
 ;;
 ;; Highlight cursor line(カーソル行ハイライト)
 ;;
 ;; ===============================================================================
 ;; カーソルのある行をハイライトします。
 (setq hl-line-face 'underline)
 (global-hl-line-mode)

 (defface hlline-face
         '((((class color)
             (background dark))
            (:background "blue" :foreground "white"))
           (((class color)
             (background light))
            (:background "AliceBlue"))
           (t
            ()))
         "*Face used by hl-line.")
 (setq hl-line-face 'hlline-face)


 ;; ===============================================================================
 ;;
 ;; Scrolling(スクロール)
 ;;
 ;; ===============================================================================
 ;; ウィンドウの一番下にカーソルがある場合、そこから下に移動したときに何行スクロールするかの設定です。
 ;; 以下は 15 行の場合。
 ;; line-setting
 (setq next-line-add-newlines nil)
 (when (not next-line-add-newlines)
  (line-number-mode 15)
  (column-number-mode 15))

 ;; スクロール行単位を 1 行にします。
 (setq-default scroll-step 1)
 ;; 画面をはみ出す場合に 1 行だけスクロールするようにします。
 (setq-default scroll-conservatively 1)
 ;; カーソルを一番上か一番下まで持っていけます。
 (setq-default scroll-margin 0)

 ;; 
 ;; ホイールでも 1 行ずつスクロールするようにします。
 ;; 
 (global-set-key [wheel-up]
                '(lambda () "" (interactive) (scroll-down scroll-step)))
 (global-set-key [wheel-down]
                '(lambda () "" (interactive) (scroll-up scroll-step)))
 (global-set-key [double-wheel-up]
                '(lambda () "" (interactive) (scroll-down (* scroll-step 2))))
 (global-set-key [double-wheel-down]
                '(lambda () "" (interactive) (scroll-up (* scroll-step 2))))
 (global-set-key [triple-wheel-up]
                '(lambda () "" (interactive) (scroll-down (* scroll-step 3))))
 (global-set-key [triple-wheel-down]
                '(lambda () "" (interactive) (scroll-up (* scroll-step 3))))


 ;; ===============================================================================
 ;;
 ;; Fringe(フリンジ)
 ;;
 ;; ===============================================================================
 ;; 左フリンジの上下にマークをつける
 (setq-default indicate-buffer-boundaries 'left)
 ;; 右フリンジの上下にマークをつける
 (setq-default indicate-buffer-boundaries 'right)

 ;; 左フリンジの上と右フリンジの下にマークをつける
 (setq-default indicate-buffer-boundaries '((top . left) (t . right)))
 ;; 右フリンジの上と左フリンジの下にマークをつける
 (setq-default indicate-buffer-boundaries '((top . right) (t . left)))
 ;; 右フリンジの上にのみマークをつける
 (setq-default indicate-buffer-boundaries '((top . right) (t . nil)))


 ;; ===============================================================================
 ;;
 ;; Key binds(キー割り当て)
 ;;
 ;; ===============================================================================
 ;; i-search for japanese
 (define-key isearch-mode-map "\C-k" 'isearch-edit-string)

 ;; M-g で指定行にカーソルを飛ばします。
 (global-set-key "\M-g"
                '(lambda (x)
                  (interactive "Line to goto: ")
                  (goto-line x)))

 ;; *** comment/uncomment-regeon
 ;; C-x ; でコメントアウト
 ;; C-x : でコメントをはずす
 (global-set-key "\C-x;" 'comment-region)
 (fset 'uncomment-region "\C-u\C-[xcomment-region\C-m")
 (global-set-key "\C-x:" 'uncomment-region)

 ;; 自動インデントを行ないます。
 (global-set-key "\C-m" 'newline-and-indent)
 (global-set-key "\C-j" 'newline)
 ;; 最近使ったファイルを別のバッファ領域に表示します。
 (define-key global-map "\C-cr" 'recentf-open-files)


 ;; ===============================================================================
 ;;
 ;; Useful functions(便利関数)
 ;;
 ;; ===============================================================================
 ;; ** [EOF] を表示します。
 ;;
 (if *run-meadow1*
    (progn
      ;; Meadow 1.99 なら以下のようにすると同じことができるようです。
      (defun set-buffer-end-mark1()
        "At the end of the buffer [EOF] padding. This string can not be edited to be reflected in the file."
        (let ((overlay (make-overlay (point-max) (point-max))))
          (overlay-put overlay 'before-string #("[EOF]" 0 5 (face highlight)))
          (overlay-put overlay 'insert-behind-hooks
                       '((lambda (overlay after beg end &optional len)
                           (when after
                             (move-overlay overlay (point-max) (point-max))))))))
      (add-hook 'find-file-hooks 'set-buffer-end-mark1))
  ;; else
  (progn
    ;; あるいは
    (defun set-buffer-end-mark2()
      "At the end of the buffer [EOF] padding. This string can not be edited to be reflected in the file."
      (let ((overlay (make-overlay (point-max) (point-max))))
        (overlay-put overlay 'before-string #("[EOF]" 0 5 (face highlight)))
        (overlay-put overlay 'insert-behind-hooks
                     '((lambda (overlay after beg end &optional len)
                         (when after
                           (move-overlay overlay (point-max) (point-max))))))))
    (add-hook 'find-file-hooks 'set-buffer-end-mark2)))
 ;; でもいい。


 ;; ** スクリプトを保存する時，自動的に chmod +x を行なうようにする
 ;;
 ;; 次のようなコードを ~/.emacs に加えておくと、
 ;; + ファイルの先頭に #! で始まる行が含まれている
 ;; + ファイル名の先頭がピリオド以外
 ;; の場合，実行用のスクリプトファイルであると見なして、保存時に実行許可属性を自動的に設定します。
 (defun make-file-executable ()
  "Make the file of this buffer executable, when it is a script source."
  (save-restriction
    (widen)
    (if (string= "#!" (buffer-substring-no-properties 1 (min 3 (point-max))))
        (let ((name (buffer-file-name)))
          (or (equal ?. (string-to-char (file-name-nondirectory name)))
              (let ((mode (file-modes name)))
                (set-file-modes name (logior mode (logand (/ mode 4) 73)))
                (message (concat "Wrote " name " (+x)"))))))))
 (add-hook 'after-save-hook 'make-file-executable)


 ;; 日付を挿入します。
 (defun my-insert-time ()
  "Insert the date the current cursor location."
  (interactive)
  (insert (format-time-string "%Y-%m-%dT%H:%M:%S")))


 ;; 現在選択中のバッファのファイル名、あるいはバッファ名を返します。
 (defun get-selected-buffer-name ()
  "現在選択中のバッファのファイル名、あるいはバッファ名を返します。"
  (let ((selected-buffer-filename (buffer-file-name ))
        (selected-buffer-name (buffer-name)))
    (if (not selected-buffer-filename)
        selected-buffer-name
      ;; else
      selected-buffer-filename)))


 ;; テンポラリバッファを作成し、それをウィンドウに表示します。
 (defun create-temporary-buffer ()
  "テンポラリバッファを作成し、それをウィンドウに表示します。"
  (interactive)
  ;; *temp* なバッファを作成し、それをウィンドウに表示します。
  (switch-to-buffer (generate-new-buffer "*temp*"))
  ;; セーブが必要ないことを指定します？
  (setq buffer-offer-save nil))
 ;; C-c t でテンポラリバッファを作成します。
 (global-set-key "\C-ct" 'create-temporary-buffer)

 ;; *scratch*バッファは簡単な処理に便利なバッファです。
 ;; しかし，そのバッファの内容を 別名で保存したり、kill したりすると，*scratch*バッファが消えてしまい，また作らな いといけません。
 ;; 面倒です。 
 ;; そこで，以下のような設定が便利です。これを入れておくと、*scratch*バッファを C-x C-s で保存時には *scratch* バッファを作成してくれます。
 ;; また，C-x k で kill すると，*scratch*バッファの内容をすべて消してくれます。 非常に便利です。
 (defun bookshelf-make-scratch (&optional arg)
  (interactive)
  (progn
    ;; "*scratch*" を作成して buffer-list に放り込む
    (set-buffer (get-buffer-create "*scratch*"))
    (funcall initial-major-mode)
    (erase-buffer)
    (when (and initial-scratch-message (not inhibit-startup-message))
      (insert initial-scratch-message))
    (or arg (progn (setq arg 0)
                   (switch-to-buffer "*scratch*")))
    (cond ((= arg 0) (message "*scratch* is cleared up."))
          ((= arg 1) (message "another *scratch* is created")))))

 (defun bookshelf-buffer-name-list ()
  (mapcar (function buffer-name) (buffer-list)))

 (add-hook 'kill-buffer-query-functions
          ;; *scratch* バッファで kill-buffer したら内容を消去するだけにする
          (function (lambda ()
                      (if (string= "*scratch*" (buffer-name))
                          (progn (bookshelf-make-scratch 0) nil)
                        t))))
 (add-hook 'after-save-hook
          ;; *scratch* バッファの内容を保存したら *scratch* バッファを新しく作る
          (function (lambda ()
                      (unless (member "*scratch*" (bookshelf-buffer-name-list))
                        (bookshelf-make-scratch 1)))))


 (defun progression (start interval n)
  "初項 start、公差 interval の長さ n の等差数列を返します。"
  (cond ( (zerop n) nil)
        (t (cons start
                 (progression (+ start interval)
                              interval (1- n))))))


 ;; ===============================================================================
 ;;
 ;; SHELL(M-x shell のときの設定)
 ;;
 ;; ===============================================================================
 (when *run-windows*
  ;; MSYS の bash を使用します。
  (setq explicit-shell-file-name "bash.exe")
  (setq shell-file-name "sh.exe")

  ;; SHELL で ^M が付く場合は ^M を削除します。
  (add-hook 'shell-mode-hook
            (lambda ()
              (set-buffer-process-coding-system 'undecided-dos 'sjis-unix)))
  ;; shell-mode での保管(for drive letter)
  (setq shell-file-name-chars "~/A-Za-z0-9_^$!#%&{}@`'.,:()-")

  ;; shell-modeで上下で補完しモード。
  (setq shell-mode-hook
        (function (lambda ()
                    (define-key shell-mode-map [up] 'comint-previous-input)
                    (define-key shell-mode-map [down]
                                'comint-next-input)))))


 ;; ===============================================================================
 ;;
 ;; Language mode(各言語モード)
 ;;
 ;; ===============================================================================
 ;; 通常のインデントで半角スペースを使います。
 (setq-default indent-tabs-mode nil)
 ;; Ruby
 ;(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files" t)
 (lazyload (ruby-mode) "ruby-mode"
          (setq auto-mode-alist
                (append '(("\\.rb$" . ruby-mode))
                        auto-mode-alist))
          (setq interpreter-mode-alist (append '(("ruby" . ruby-mode))
                                               interpreter-mode-alist)))
 ;; ECMA Scrirpt
 (require-if-exists ecmascript-mode)
 ;; Javascript もーど。
 (require-if-exists js2-mode
          (add-to-list 'auto-mode-alist '(("\\.js$" . js2-mode)))
          ;; エスプレッソ。
          (lazyload (espresso-mode) "espresso")

          (add-hook-fn 'js2-mode-hook 
                       (require 'espresso)
                       (setq espresso-indent-level 4
                             indent-tabs-mode nil
                             c-basic-offset 4)))

 (defun my-c/c++-mode ()
  ;; cc-mode スタイルにします。
  (c-set-style "cc-mode")
  ;; インデントは空白文字で行ないます。
  (setq indent-tabs-mode nil)
  ;; `;' を押すと自動で改行されるようにします。
  (setq c-auto-newline nil)
  ;; タブキーでインデントを行います。
  (setq c-tab-always-indent t)
  ;; タブ幅を 4 にします。
  (setq tab-width 4)
  ;; 標準オフセットを tab-width と同じにします。
  (setq c++-basic-offset tab-width)
  ;; インデントを tab-width と同じにします。
  (setq c-indent-level tab-width)
  ;; コメントだけの行は 0 にします。
  (setq c-comment-only-line-offset 0)

  ;; 引数リストの閉じ括弧もインデントします。
  (c-set-offset 'arglist-close 0)
  ;; public などのアクセス修飾子は -3 インデントします。
  (c-set-offset 'access-label -3)
  ;; switch 構文のラベルは c++-basic-offset だけインデントします。
  (c-set-offset 'case-label '+)
  ;; 継続行は c++-basic-offset 分のインデントを行います。
  (c-set-offset 'statement-cont '+)
  ;; クラスのメンバー初期化リストの 1 行目は c++-basic-offset 分インデントします。
  (c-set-offset 'member-init-intro '+))

 ;; C モード。
 (add-hook 'c-mode-hook 'my-c/c++-mode)
 ;; C++ モード。
 (add-hook 'c++-mode-hook 'my-c/c++-mode)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; Windows 固有ファイル用のモードを追加します。
 ;;
 (when *run-meadow*
  ;;(require-if-exists generic-x)

  (if (and (fboundp 'bat-generic-mode)
           (fboundp 'ini-generic-mode))
      ;; が、Meadow3 ではこれらのモードが無いため、出来ませんでした。
      ;; 関数用のには fboundp を使います。
      (append-to-list auto-mode-alist '(("\\.bat$" . bat-generic-mode)
                                        ("\\.ini$ ." ini-generic-mode)))
    ;; else
     (progn
       (require-if-exists any-ini-mode)
       (append-to-list auto-mode-alist '((".*\\.ini$" . any-ini-mode)
                                         (".*\\.conf$" . any-ini-mode)))

       (require-if-exists bat-mode)
       ;; bat-mode
       (append-to-list auto-mode-alist '(("\\.[Bb][Aa][Tt]$" . 'bat-mode)
                                         ;; For DOS init files
                                         ("CONFIG\\." . 'bat-mode)
                                         ("AUTOEXEC\\." . 'bat-mode)))

       ;(autoload 'bat-mode "bat-mode" "DOS and Windows BAT files" t)
       (lazyload (bat-mode) "bat-mode")))

  ;; visual basic もーど。
  ;(autoload 'visual-basic-mode "visual-basic-mode" "Visual Basic mode." t)
  (lazyload (visual-basic-mode) "visual-basic-mode")
  (append-to-list auto-mode-alist '(("\\.\\(frm\\|bas\\|vb\\|cls\\)$" . visual-basic-mode))))

 ;; C# モード。
 ;; (require-if-exists csharp-mode)
 ;; (setq auto-mode-alist
 ;;       (append '(("\\.cs$" . csharp-mode)) auto-mode-alist))
 ;; ;; C# モード。
 ;; (add-hook 'csharp-mode-hook 'my-c/c++-mode)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; C# support
 ;;
 ;(autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
 (lazyload (csharp-mode) "csharp-mode")
 (append-to-list auto-mode-alist '(("\\.cs$" . csharp-mode)))
 (add-hook 'csharp-mode-hook 'my-c/c++-mode)


 ;; ===============================================================================
 ;;
 ;; Line number(行番号)
 ;;
 ;; ===============================================================================
 ;;; 行番号・桁番号をモードラインに表示する・しない設定
 (line-number-mode t)   ;; 行番号。t なら表示、nil なら非表示
 (column-number-mode t) ;; 桁番号。t なら表示、nil なら非表示
 ;;
 ;; ** 行番号をデフォルトで表示します。
 ;;
 (if (>= emacs-major-version 22)
    ;; 23 以上から linum.el が入っているので要りませんが、Meadow3 は 22 なので
    ;; require-if-exists が必要です。
    (require-if-exists linum))
 (require-if-exists linum+)
 ;; デフォルトで linum-mode を有効にします。
 ;(add-hook-fn 'find-file-hook nil
 ;             (linum-mode 1))
 (global-linum-mode 1)
 ;; 5 桁分の領域を確保して行番号を入れます。
 (if (not *run-x-window-system*)
    (setq linum-format "%7d")
  (setq linum-format "%4d"))


 ;; ===============================================================================
 ;;
 ;; Time stamp(ファイル更新日)
 ;;
 ;; ===============================================================================
 (require-if-exists time-stamp)
 (add-hook 'before-save-hook 'time-stamp)
 (setq time-stamp-active t)
 (setq time-stamp-start "@date ")
 (setq time-stamp-format "%04y-%02m-%02d")
 (setq time-stamp-end " \\|$")


 ;; ===============================================================================
 ;;
 ;; Toolbar(ツールバー)
 ;;
 ;; ===============================================================================
 ;; ツールバーを表示しないようにします。
 (tool-bar-mode -1)
 (require-if-exists tool-bar+)


 ;; ===============================================================================
 ;;
 ;; Mode line Date display(モードラインの時刻表示)
 ;;
 ;; ===============================================================================
 ;; 時刻のフォーマット。
 (setq display-time-string-forms
      '((let ((system-time-locale "C"))
          (format-time-string "%Y-%m-%dT%H:%M"))))
 ;; モードラインに現在時刻を表示します。
 (if *run-meadow*
    (display-time)
  ;; else
  (display-time-mode 1))


 ;; ===============================================================================
 ;;
 ;; *-selection
 ;;
 ;; ===============================================================================
 ;; 選択領域を入力で置き換えるようにします。
 (delete-selection-mode 1)
 ;; S-[←→]で範囲を選択できるようになります。
 (pc-selection-mode 1)


 ;; ===============================================================================
 ;;
 ;; egg
 ;;
 ;; ===============================================================================
 (require-if-exists egg)


 ;; ===============================================================================
 ;;
 ;; Textmate
 ;;
 ;; ===============================================================================
 ;; Textmate モードです。
 (require-if-exists textmate
                   (textmate-mode)
                   (ido-mode -1))


 ;; ===============================================================================
 ;;
 ;; Zen Coding
 ;;
 ;; ===============================================================================
 (require-if-exists zencoding-mode
                   (add-hook 'sgml-mode-hook 'zencoding-mode)
                   (add-hook 'html-mode-hook 'zencoding-mode)
                   (add-hook 'text-mode-hook 'zencoding-mode))


 ;; ===============================================================================
 ;;
 ;; YASnippet
 ;;
 ;; ===============================================================================
 (require-if-exists yasnippet ;; not yasnippet-bundle
                   (yas/initialize)
                   (yas/load-directory "~/.emacs.d/vendor/yasnippet/snippets"))


 ;; ===============================================================================
 ;;
 ;; ELScreen
 ;;
 ;; ===============================================================================
 (require-if-exists elscreen)


 ;; ===============================================================================
 ;;
 ;; Markdown
 ;;
 ;; ===============================================================================
 (lazyload (markdown-mode) "markdown-mode")
 (append-to-list auto-mode-alist (list '("\\.text$" markdown-mode)
                                      '("\\.markdown$" markdown-mode)))


 ;; ===============================================================================
 ;;
 ;; Gauche
 ;;
 ;; ===============================================================================
 (setq process-coding-system-alist
      (cons '("gosh" utf-8 . utf-8) process-coding-system-alist))
 (setq scheme-program-name "gosh -i")
 (autoload 'scheme-mode "scheme-mode" "Major mode for Shceme." t)
 (autoload 'run-scheme "run-scheme" "Run an inferior Scheme process." t)


 ;; ===============================================================================
 ;;
 ;; Session
 ;;
 ;; ===============================================================================
 (require-if-exists session
                   ;; 初期化後に呼び出されるフックにセッションの初期化用関数を引っ掛けます。
                   (add-hook 'after-init-hook 'session-initialize)
                   ;; 前回閉じたときの位置にカーソルを復帰するようにします。
                   (setq session-undo-check -1))


 ;; ===============================================================================
 ;;
 ;; Template(テンプレート)
 ;;
 ;; ===============================================================================
 ;; テンプレートを置いておくディレクトリを指定します。
 (if *run-windows*
    (setq auto-insert-directory "c:/usr/share/templates")
  ;; else
  (setq auto-insert-directory "~/Templates/insert/"))
 ;; 各ファイルによってテンプレートを切り替えるようにします。
 (setq auto-insert-alist
      '(("\\.cpp$" ["template.cpp" my-template])
        ("\\.h$" ["template.h" my-template])
        ("\\.hxx$" ["template.hxx" my-template])
        ("\\.html$" ["template.html" my-template])))
 (defvar template-replacements-alists
  '(("%file%"             . (lambda ()
                              (file-name-nondirectory (buffer-file-name))))
    ("%file-without-ext%" . (lambda ()
                              (file-name-sans-extension (file-name-nondirectory (buffer-file-name)))))
    ("%include-guard%"    . (lambda ()
                              (format "%s_h" (downcase (file-name-sans-extension
                                                        (file-name-nondirectory buffer-file-name))))))))

 (defun my-template ()
  (time-stamp)
  (mapc #'(lambda(c)
        (progn
          (goto-char (point-min))
          (replace-string (car c) (funcall (cdr c)) nil)))
    template-replacements-alists)
  (goto-char (point-max))
  (message "done."))
 (add-hook 'find-file-not-found-hooks 'auto-insert)


 ;; ===============================================================================
 ;;
 ;; Backup file(バックアップファイル)
 ;;
 ;; ===============================================================================
 ;; オートセーブを有効にします。
 (auto-save-mode t)
 ;; バックアップファイルを作ります。
 (setq backup-inhibited nil)

 ;; 簡易バージョンコントロール機能を有効にします。
 (setq version-control t)

 (when version-control
  ;; 新しいものを 6 つまで残すようにします。
  (setq kept-new-versions 6)
  ;; 古いものを 6 つまで残すようにします。
  (setq kept-old-versions 6)
  ;; 古いバージョンを消す際に尋ねないようにします。
  (setq delete-old-versions t))

 ;; 終了時にオートセーブファイルが削除されません。
 (setq delete-auto-save-files nil)


 ;; ===============================================================================
 ;;
 ;; Miscellaneous Settings(雑多な設定)
 ;;
 ;; ===============================================================================
 ;; カレントディレクトリをホームディレクトリに設定
 ;; ""内は任意のディレクトリを指定可能
 (cd "~/")

 ;; 起動時のメッセージを表示しません。
 (setq inhibit-startup-message t)
 ;;; エラー時に画面がフラッシュするようにします。
 ;(setq visible-bell t)
 (setq ring-bell-function 'ignore)
 ;;;; フラッシュするのがうざいのでしないようにしました。

 ;; 最近使ったファイルの一覧を表示します。
 (recentf-mode t)
 ;; メニューに表示するファイル名を 10 までにします。
 (setq recentf-max-menu-items 10)
 ;; 最大 15 ファイルまで記録します。
 (setq recentf-max-saved-items 15)

 ;; 他のプロセスによって変更されたとき、バッファをリロードします。
 (global-auto-revert-mode t)

 ;;(require 'server)
 ;;(if (fboundp 'server-running-p)
 ;;    (unless (server-running-p)
 ;;      ;; emacsclient を使います。
 ;;      (server-start)))
 (if (fboundp 'server-start)
    ;; emacsclient を使います。
    (server-start))

 ;; auto-fill モードを使用します。
 (setq-default auto-fill-function 'do-auto-fill)

 ;; キー入力を記憶しておきます。
 (open-dribble-file "~/.emacs_dribble")

 ;; 70 字目で自動的に改行されないようにします。
 ;; これでも駄目なときは M-x set-fill-column RET 300 を実行してください。
 (setq-default fill-column 300)

 ;; タブ文字による空白を 4 つにします。
 (setq default-tab-width 4)
 (setq-default tab-width default-tab-width)
 (setq tab-stop-list (progression 4 4 120))

 ;; 空白だけで字下げを行うようにします。
 (setq-default indent-tabs-mode nil)

 ;; X システムのクリップボードとキルリングを共有できるようにします。
 (if *run-x-window-system*
    (setq x-select-enable-clipboard t))

 ;; local init.el ends here