;;; -*- Mode: Lisp; Package: editor -*- ;;; key.l --- Default Keymap 設定 ;; ;; Created: [2006/10/26] ;; Last updated: [2008/06/03] ;;; Commentary: ;;; Change Log: ;;; Code: (provide "key") (in-package "editor") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; キー割り当て ;; S-Tab (set-extended-key-translate-table exkey-S-tab #\F13) ;; S-Ret (set-extended-key-translate-table exkey-S-return #\F14) ;; S-Spc (set-extended-key-translate-table exkey-S-space #\F15) ;; C-Tab (set-extended-key-translate-table exkey-C-tab #\F16) ;; C-Ret (set-extended-key-translate-table exkey-C-return #\F17) ;; S-BS (set-extended-key-translate-table exkey-S-backspace #\F18) ;;; キー割り当て ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ファンクションキー ;; Help Modifier (global-set-key #\F1 'my-help-modifier) ;; カーソル位置の単語でモード毎の Info を検索 (global-set-key #\S-F1 'my-view-info-reference) ;; 次のバッファタブ (global-set-key #\F2 'previous-buffer) ;; 次のウィンドウ (global-set-key #\C-F2 'move-previous-window) ;; 前のバッファタブ (global-set-key #\F3 'next-buffer) ;; 前のウィンドウ (global-set-key #\C-F3 'other-window) ;; 新規バッファ作成 (global-set-key #\S-F4 'new-file) ;; カレントバッファを閉じる (global-set-key #\C-F4 'close-selected-buffer) ;; ウィンドウフラグ On (global-set-key #\C-F5 'my-local-window-flags-on) ;; ウィンドウフラグ Off (global-set-key #\M-F5 'my-local-window-flags-off) ;; 文字単位で範囲選択 (global-set-key #\F6 'my-start-selection-char) ;; 短形範囲選択 (global-set-key #\S-F6 'my-start-selection-rect) ;; リージョンとセレクションをトグル (global-set-key #\C-F6 'my-exchange-region-and-selection) ;; 短形編集メニュー表示 (global-set-key #\M-F6 'my-app-rectangle-popup-menu) ;; バッファ全体をインデント (global-set-key #\C-F8 'my-indent-region-whole-buffer) ;; Tag Jump (global-set-key #\F9 'jump-tag) ;; Jump する前に戻る (global-set-key #\S-F9 'back-tag-jump) ;; TAGS 作成 (global-set-key #\C-F9 'make-tags-file) ;; Jump 先を指定し Jump (global-set-key #\M-F9 'direct-tag-jump) ;;; ファンクションキー ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; 矢印・記号 ;; 編集行を後方検索し移動 (global-set-key #\C-Up 'my-search-modified-line-backward) ;; カレントウィンドウの高さを小さく (global-set-key #\M-Up 'shrink-window) ;; 編集行を前方検索し移動 (global-set-key #\C-Down 'my-search-modified-line-forward) ;; カレントウィンドウの高さを大きく (global-set-key #\M-Down #'(lambda () (interactive) (shrink-window -1) ) ) ;; ウィンドウ幅を大きく (global-set-key #\M-Right 'enlarge-window-horizontally) ;; ウィンドウ幅を小さく (global-set-key #\M-Left 'shrink-window-horizontally) ;; マークダイアログボックス (global-set-key #\M-@ 'mark-dialog-box) ;; カーソル位置をそのままで 1 行下にスクロール (global-set-key #\C-\. 'my-static-scroll-line-down) ;; カーソル位置をそのままで 1 行上へスクロール (global-set-key #\C-\, 'my-static-scroll-line-up) ;;; 矢印・記号 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; 数字 ;; カレントウィンドウ削除 & 不要バッファ削除 (global-set-key #\C-0 'my-delete-buffer-and-window) ;; カレントウィンドウ以外削除 & 不要バッファ削除 (global-set-key #\C-1 'my-delete-other-buffer-and-window) ;; 上下分割 (global-set-key #\C-2 'split-window) ;; 左右分割 (global-set-key #\C-3 'split-window-vertically) ;;; 数字 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; アルファベット ;;==================================== ;; B ;;==================================== ;; 1 桁右にスクロール (global-set-key #\C-M-b 'my-scroll-window-horizontally-right) ;;==================================== ;; C ;;==================================== ;; 次のヘッダに移動 (global-set-key '(#\C-c #\n) 'my-search-header-forward) ;; 前のヘッダに移動 (global-set-key '(#\C-c #\p) 'my-search-header-backward) ;;==================================== ;; F ;;==================================== ;; 1 桁左にスクロール (global-set-key #\C-M-f 'my-scroll-window-horizontally) ;;==================================== ;; G ;;==================================== ;; セレクション解除 & Quit (global-set-key #\C-g 'my-quit) ;; 指定バイト位置へ移動 (global-set-key #\C-M-g 'my-goto-point) ;;==================================== ;; K ;;==================================== ;; カーソル位置から行頭までを削除 (global-set-key #\M-k 'my-kill-line-backward) ;;==================================== ;; L ;;==================================== ;; カーソル行を画面の一番上へ (global-set-key #\M-l 'my-recenter-0) ;; 超絶列カーソル色付けトグル (global-set-key #\C-M-l 'fsadf-highlight-toggle) ;;==================================== ;; N ;; 他ウィンドウを上にスクロール (global-set-key #\M-n 'my-scroll-up-other-window) ;; カーソル行全体を下に移動 (global-set-key #\C-M-n 'my-transpose-lines-down) ;; N ;;==================================== ;;==================================== ;; P ;; 他ウィンドウを下にスクロール (global-set-key #\M-p 'my-scroll-down-other-window) ;; カーソル行全体を上に移動 (global-set-key #\C-M-p 'my-transpose-lines-up) ;; P ;;==================================== ;;==================================== ;; R ;; 置換えダイアログ (global-set-key #\M-r 'replace-dialog) ;; 上へ正規表現検索 (global-set-key #\C-M-r 're-search-backward) ;; R ;;==================================== ;;==================================== ;; S ;; 下へ置き換え (global-set-key #\M-s 'query-replace) ;; 下へ正規表現検索 (global-set-key #\C-M-s 're-search-forward) ;; S ;;==================================== ;;==================================== ;; V ;; 次ページ or 2 行下へ (global-set-key #\C-v 'my-next-page-or-line) ;; 他ウィンドウを上にページスクロール (global-set-key #\M-v 'my-next-page-other-window) ;; V ;;==================================== ;;==================================== ;; W ;; Cut (global-set-key #\C-w 'kill-region-to-clipboard) ;; Copy (global-set-key '(#\C-c #\C-w) 'copy-region-to-clipboard) (global-set-key #\M-w 'copy-region-to-clipboard) ;; W ;;==================================== ;;==================================== ;; X ;; 全てのバッファを閉じる (global-set-key '(#\C-x #\K) 'kill-all-buffers) ;; カレントバッファ以外を閉じる (global-set-key '(#\C-x #\C-M-k) 'my-kill-other-buffers) ;; 開いているバッファ全てを保存 (global-set-key '(#\C-x #\S) 'my-save-some-buffers) ;; バッファがファイルに関連付けされていないとき名前をつけて保存 (global-set-key '(#\C-x #\C-s) 'my-emacs-save-buffer) ;; X ;;==================================== ;;==================================== ;; Y ;;==================================== ;; Paste (global-set-key #\C-y 'paste-from-clipboard) ;;==================================== ;; Z ;; 前ページ or 2 行上へ (global-set-key #\C-z 'my-previous-page-or-line) ;; 他ウィンドウを下にページスクロール (global-set-key #\M-z 'my-previous-page-other-window) ;; Z ;;==================================== ;;; アルファベット ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; key.l ends here