novaの日記： 随分マシになったかな

　Meadow の設定ファイルをちょこちょこ弄って大分使い易くしました。 ……フリーのモジュールを組み合わせると予想外の動作をするのは御愛嬌。 読んで修正出来るならするんですが……まだ無理です。別にシゴトじゃないのでのんびり拡張して行こう。

-------------------- fileName: .emacs --------------------

;; -------------------- 簡易ショートカットリファレンス --------------------
;; C = Ctrl, M = Esc | Alt ※Esc はキャンセルされるまで、Alt は押している間だけ有効。
;; tab = C-q tab ※tab だけ打っても文字としての tab は入力されません。

;; キャンセル: C-g
;; 連続実行  : M-[num] [command] ※[num]: 実行回数, [command]: 実行内容
;; 入力補完  : M-/ ※開いているファイル内に存在する単語が候補になる。

;; 範囲選択      : C-SPACE
;; 全て選択      : C-x h
;; コピー        : M-w
;; 切り取り      : C-w
;; ペースト      : C-y ※続けて M-y を押す度に、過去のキルリング (クリップボード？) が挿入されます。
;; 文字列検索(下): C-s
;; 文字列検索(上): C-r
;; 文字列置換え  : M-x replace-string
;; アンドゥ      : C-/

;; カーソル位置の文字を大文字に変換        : M-c
;; カーソル位置から単語末尾まで大文字に変換: M-u
;; カーソル位置から単語末尾まで小文字に変換: M-l

;; カーソル位置から行末まで削除: C-k ※連続実行可能。5 行消すなら M-5 C-k。

;; 矩形処理
;;
;; 処理したい領域の先頭から末尾までを選択。よーするに、
;;
;; -----[++++++++++++++
;; ++++++++++++++++++++
;; ++++++++++++++]-----
;;
;; こんな風に選択 ([] 内が選択範囲) したら、
;;
;; -----**********+++++
;; +++++**********+++++
;; +++++**********-----
;;
;; * のトコが矩形処理範囲になる。
;;
;; 選択後、以下のコマンドを実行。
;;
;; 切り取り          : C-x r k
;; ペースト          : C-x r y
;; スペースを挿入    : C-x r o
;; スペースに置き換え: C-x r c
;; 削除              : C-x r d
;; 文字列に置き換え  : C-x r t

;; 行頭へ移動          : C-a
;; 行末へ移動          : C-e
;; １ページ下へ移動    : C-v
;; １ページ上へ移動    : M-v
;; ファイルの先頭へ移動: M-< ※C-u C-SPACE で元の位置に戻る。
;; ファイルの最後へ移動: M-> ※C-u C-SPACE で元の位置に戻る。
;; 指定行へ移動        : M-x goto-line

;; ※”新規に生成されるウィンドウ”を”フレーム”と呼びます。
;; ウィンドウを縦に二分割                : C-x 2
;; ウィンドウを横に二分割                : C-x 3
;; ウィンドウ間を移動                    : C-x o
;; 別ウィンドウを消す(１ウィンドウに戻す): C-x 1
;; カレントウィンドウを消す              : C-x 0
;; カレントウィンドウを別フレームで開く  : C-x 5 2
;; 新しく作ったフレームを閉じる          : C-x 5 0 ※このコマンドを実行したフレームが閉じます。
;; バッファを開く                        : C-x C-b

;; ファイルを開く              : C-x C-f
;; ディレクトリを表示          : C-x d
;; 上書き保存                  : C-x C-s
;; 別名で保存                  : C-x C-w
;; 開いているファイルを全て保存: C-x s
;; カレントファイルを閉じる    : C-x k
;; 最小化                      : C-z
;; 終了                        : C-x C-c

;; -------------------- 設定 --------------------
;; -rv オプション付きで RunMW32.exe を起動すると、文字・背景色が反転する。
;; [Options]->[Truncate Long Lines in this Buffer] が有効だと、ウィンドウ端で折り返される。
;; 基本的に true: t, false: nil

;; ファイルの種類によって色付けする。
(if window-system
  (progn
    (setq font-lock-support-mode 'lazy-lock-mode)
    (global-font-lock-mode t)
  )
)

;; 色を付ける。
(setq default-frame-alist
  (append
    '(
      (foreground-color . "#e6e6fa") ;; 文字の色 (Lavender)
      (background-color . "#000000") ;; 画面の色 (Black)
      (cursor-color     . "#4169e1") ;; カーソルの色 (Royalblue)
      (width            . 100)       ;; フレーム幅(文字数)
      (height           . 50)        ;; フレーム高(文字数)
      (top              . 50)        ;; フレームの Y 位置(ピクセル数)
      (left             . 50)        ;; フレームの X 位置(ピクセル数)
    )
  default-frame-alist)
)

;; 文字の背景に色を付ける。
(defface color_Lavender  '((t (:background "#e6e6fa"))) nil)
(defface color_Crimson   '((t (:background "#dc143c"))) nil)
(defface color_Royalblue '((t (:background "#4169e1"))) nil)
(defface color_Snow      '((t (:background "#fffafa"))) nil)
(defface underLine_Aqua  '((t (:foreground "#00ffff" :underline t))) nil)

(defvar color_Lavender 'color_Lavender)
(defvar color_Crimson 'color_Crimson)
(defvar color_Royalblue 'color_Royalblue)
(defvar color_Snow 'color_Snow)
(defvar underLine_Aqua 'underLine_Aqua)

(defadvice font-lock-mode (before my-font-lock-mode ())
  (font-lock-add-keywords
    major-mode
    '(
;;      ("\t" 0 color_Royalblue append)     ;;「タブ」
      (" " 0 color_Snow append)           ;;「半角空白」
;;      ("　" 0 color_Crimson append)       ;;「全角空白」
;;      ("[ \t]+$" 0 underLine_Aqua append) ;;「改行の前にあるスペースやタブ」
    )
  )
)
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)

;; 選択範囲に色を付ける。
(transient-mark-mode 1)

;; 起動時のメッセージを非表示に。
(setq inhibit-startup-message t)

;; 日本語の設定。MS-IME を使用。
(set-language-environment "Japanese")
(setq default-input-method "MW32-IME")
(mw32-ime-initialize)

;; フレームにタイトルを表示。(バッファ名を表示)
;;(setq frame-title-format "Meadow --- %b")
;; フレームにタイトルを表示。(ファイル名[絶対パス]を表示)
(setq frame-title-format "Meadow --- %f")

;; カーソルの有る行番号を表示。
(line-number-mode t)
;; カーソルの有る列番号を表示。
(column-number-mode t)

;; 時間を表示。
(autoload 'display-time "time" "Display time on Mode-line" t)
(setq display-time-24hr-format t)
(display-time)

;; C-k 時に改行も一緒に消す。
(setq kill-whole-line t)

;; tab はスペース何個分？
(setq-default tab-width 4)

;; search 時に大文字小文字を区別するか？(区別しない: t, 区別する: nil)
(setq-default case-fold-search t)

;; キルリングの大きさを変更。(default: 60)
(setq kill-ring-max 100)

;; バーの表示・非表示の設定。
(tool-bar-mode nil)
(menu-bar-mode t)
(scroll-bar-mode t)

;; 自動セーブの間隔を変更。(default: 300)
;;(setq auto-save-interval 1000)
;; 自動バックアップを停止。
(setq make-backup-files nil)
;; 自動セーブを停止。
(setq auto-save-default nil)

;; -------------------- 外部モジュール --------------------
;; setnu.el
;; getPath: http://www.wonderworks.com/download/setnu.el
;; putPath: $MEADOW/site-lisp
;; 行の左端に行番号を表示する。キーバインドは M-x setnu-mode
(autoload 'setnu-mode "setnu" nil t)

;; jaspace.el
;; getPath: http://homepage3.nifty.com/satomii/software/jaspace.el
;; putPath: $MEADOW/site-lisp
;; 特殊文字を強調表示する。font-lock-mode が有効の時のみ機能する。
;; ただし、デフォルトの C ソースの色分けが機能しなくなる。
(require 'jaspace)
(setq jaspace-alternate-eol-string "\xab\n") ;;「改行」
(setq jaspace-highlight-tabs t)              ;;「タブ」

;; -------------------- 俺キーバインド --------------------
(global-set-key "\M-g" 'goto-line)
(global-set-key "\M-r" 'replace-string)
(global-set-key [f12] 'setnu-mode)