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
;; 1ページ下へ移動 : C-v
;; 1ページ上へ移動 : 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
;; 別ウィンドウを消す(1ウィンドウに戻す): 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)
随分マシになったかな More ログイン