;; 基本的なキーバインド
;;

;; 基本
;; C-x C-c    kill-emacs emacs終了
;; C-g        quit       直前のキー操作をキャンセル
;; M-x <XXXX><ENTER>        lisp-command の直接実行
;; C-h m      describe-mode  現在のバッファのキーマップ一覧を表示

;; ファイル操作
;; C-x C-f    find-file ファイル・ディレクトリを開く (ディレクトリを開くと dired-mode)
;; C-x C-s    save-buffer ファイルを保存
;; C-x C-w    write-file 別名でファイルを保存
;; C-x s      save-some-buffers すべてのバッファを保存

;; バッファ操作
;; C-x C-k    kill-buffer バッファを閉じる
;; C-x b      バッファの切り替え
;; C-x C-b    バッファ一覧の表示
;; C-c C-l    行の折り返し表示を on/off

;; カーソル移動
;; C-f        forward-char
;; C-b        backword-char
;; C-a        move-beggining-of-line
;; C-e        move-end-of-line
;; C-v        page-down
;; M-v        page-up
;; M-<        move-beggining-of-buffer
;; M->        move-end-of-boffer

;; 検索・置換 (正規表現は拡張正規表現ではないので注意。sedとほぼ同等)
;; C-s        isearch-forward インタラクティブサーチ
;; M-C-s      isearch-forward-regexp 正規表現によるインタラクティブサーチ
;; M-%        query-replace 確認付き置換
;; M-C-%      query-replace-regexp 正規表現によるインタラクティブサーチ

;; 検索(iserch)中のキーバインド
;; C-s        次のマッチ位置まで移動
;; C-r        前のマッチ位置まで移動
;; C-w        カーソル位置のワードを検索文字列に取り込み

;; ウィンドウ操作
;; C-x o      次のウィンドウに移動
;; C-x O      前のウィンドウに移動
;; C-x 1      delete-other-window    カレントウィンドウ以外を閉じる
;; C-x 2      split-window           ウィンドウを縦にふたつに分ける
;; C-x 3      split-window-right     ウィンドウを横にふたつに分ける
;; C-x 4 x    xx-other-window        別ウィンドウの操作 (x は C-f, C-k 等が有効)
;; C-x 5 x    xx-other-frame         別フレーム(普通のウィンドウ)の操作 (x は C-f, C-k 等が有効)
;; C-x 0      delete-window          カレントウィンドウを閉じる

;; コピー関連
;; C-<SPACE>  mark                   マーク
;; C-w        cut                    マーク位置から現在のカーソルまでをカット
;; M-w        copy                   〃 コピー
;; C-k        kill-line              現在のカーソル位置から行末までカット
;; C-y        yank                   現在のカーソル位置に最後にコピーまたはカットしたものをペースト (コピー・カットしたものはシステムのクリップボードにもコピーされている)
;; C-x h      mark-all               バッファ全体をマーク

;; compilation-mode でのキーバインド
;; q          閉じる
;; <TAB>      次のエラー(リンク)にジャンプ (S-<TAB>なら前のエラー)
;; <ENTER>    リンクを開く

;; dired-mode でのキーバインド
;; <ENTER>    開く
;; m          カーソル行をマーク
;; u          カーソル行のマークを削除
;; x          マークしたファイルを削除
;; n          次の行に移動 (<SPACE>も同様)
;; p          前の行に移動

;; bookmark
;; C-x r m    カレントバッファのファイル・ディレクトリをブックマークに登録
;; C-x r b    ブックマークから開く
;; C-x r l    ブックマークリストを表示 (そこから開ける)

;; その他
;; M-x grep   grep実行 (カレントバッファで実行される、結果はcompilation-modeのバッファになる)
;; M-x ediff-files  ファイルの diff をインタラクティブに確認、編集するモード (2ファイルを開く)
;; M-x ediff-buffers バッファの diff を 〃 (既存の2つのバッファを比較)

;;; 右から左に読む言語に対応させないことで描画高速化
(setq-default bidi-display-reordering nil)

;; .log ファイルは常に compilation-mode
(add-to-list 'auto-mode-alist '("\\.log\\'" . compilation-mode))

;;; kill-buffer のあとに表示されるバッファを他の表示されているバッファにならないようにする
(setq switch-to-visible-buffer nil)

;; 折り返し設定 on/off
(defun toggle-truncate-lines ()
  "折り返し表示をトグル動作します."
  (interactive)
  (if truncate-lines
      (progn
        (setq truncate-lines nil)
        (message "set truncate-lines off"))
    (setq truncate-lines t)
    (message "set truncate-lines on"))
  (recenter))
(global-set-key "\C-c\C-l" 'toggle-truncate-lines) ; 折り返し表示ON/OFF