« A罫?B罫? 6.5mm? | Main | バーゲン »



Wed, 02 Nov 2005

xyzzy でバッファを閉じる

Posted at Wed, 02 Nov 2005 in computer::xyzzy

Landscape で xyzzy でバッファを閉じるには CTRL + x k という記事がありましたが、私は Ctrl + F4 でバッファが閉じられるようにしてあります。
以下の記述を .xyzzy に書くだけです。

(global-set-key #\C-F4 'close-selected-buffer)

バッファを閉じるだけならこれだけでいいのですが、私は標準のxyzzyよりももう少しwindows寄りのキーバインドで使いたいので、winkey2.l というファイルを ~/site-lisp に置いて、.xyzzy から呼び出して使い、バッファを閉じるキーバインドもこの中に入れています。

これだと Ctrl-C でコピーや Ctrl-X で切り取り、Ctrl-V で貼り付け、Ctrl-Z でアンドゥなどWindows標準っぽいキー設定が可能です。

winkey2.l の中身

(in-package "editor") 以降をそのまま.xyzzy に書いてもいけますが、その場合は最後に (in-package "user") が必要です。

(provide "winkey2")

(in-package "editor")

;;; winkey.lからコピー
(defvar *default-selection-keymap*
  (let ((keymap (make-sparse-keymap)))
	(define-key keymap #\C-c 'copy-selection-to-clipboard)
	(define-key keymap #\C-x 'kill-selection-to-clipboard)
	keymap))

(setq-default selection-keymap *default-selection-keymap*)
(global-set-key #\C-z 'undo)
(global-set-key #\C-v 'paste-from-clipboard)
(define-key esc-map #\C-x #'ctl-x-prefix)
(define-key esc-map #\C-c #'specific-command-prefix)


;;; Windowsっぽい設定
;(global-set-key #\C-A 'selection-whole-buffer)
;(global-set-key #\C-F 'search-dialog)
(global-set-key #\C-N 'new-file)
(global-set-key #\C-O 'open-filer)
(global-set-key #\C-P 'print-selected-buffer-dialog)
;(global-set-key #\C-R 'replace-dialog)
;(global-set-key #\C-S 'save-buffer-dialog)
;(global-set-key #\Home 'beginning-of-virtual-line)
;(global-set-key #\End 'end-of-virtual-line)
(global-set-key #\C-Home 'beginning-of-buffer)
(global-set-key #\C-End 'end-of-buffer)
(global-set-key #\S-C-Home 'selection-beginning-of-buffer)
(global-set-key #\S-C-End 'selection-end-of-buffer)
;(global-set-key #\F3 'search-forward-again)
;(global-set-key #\S-F3 'search-backward-again)
(global-set-key #\M-F4 'kill-xyzzy)
(global-set-key #\C-F4 'close-selected-buffer)
(global-set-key #\C-Left 'backward-word)
(global-set-key #\C-Right 'forward-word)
(global-set-key #\S-C-Left 'selection-backward-word)
(global-set-key #\S-C-Right 'selection-forward-word)

.xyzzy への記述

;;■ ちょっとだけWindows風キー
(load-library "winkey2")

ネタ元

黒い羽根 キーカスタマイズ
http://www.uranus.dti.ne.jp/~shiro-/soft/xyzzy/keybind.html#windows

« A罫?B罫? 6.5mm? | Main | バーゲン »