[xyzzy:03894] Re: F2 & C-indent

[Toy <s5087@xxxxxxxxxxxxxxxxxxxxx>]

山本真二さん，お久しぶりです。Toy です。
山本さん's 電八モードは相変わらず現役バリバリです。

    Fri, 21 Jan 2000 08:44:19 +0900 の
    "[xyzzy:03890] Re: F2 & C-indent" について。

| 私も M-v 派なので .xyzzy にこういうの↓を書いています。

私もファイラに関するキーバインドを少し。
役立たずネタ＆あやしいネタが多いですが。

; ファイラ終了 (Alt-F4)
(define-key filer-keymap #\M-F4 'filer-cancel)
# くせでやっちゃうんで

; ファイラから grep-dialog (M-g)
(define-key filer-keymap #\M-g
	    #'(lambda ()
		(interactive)
		(setq ed::*grep-directory-name-hook* 'filer-get-directory)
		(grep-dialog)
		(setq ed::*grep-directory-name-hook* nil)))
# 名前が衝突するとかで，２回に１回しかダンプ後正常に動かないあやしいネタ
# なぜだろう…。(_ _;)  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

; ファイラでファイル名をクリップボードへ (C-w)
(define-key filer-keymap #\C-w
	    #'(lambda ()
		(interactive)
		(push (list (filer-get-current-file)) ed::*kill-ring*)
		(let ((l (length ed::*kill-ring*)))
		  (when (> l ed::*kill-ring-max*)
		    (setq ed::*kill-ring*
			  (nbutlast ed::*kill-ring* (- l ed::*kill-ring-max*)))))
		(setq ed::*kill-ring-yank-pointer* ed::*kill-ring*)))
# kill-new をぱくっただけ。たまにクリップボードにコピーされない場合あり
# なぜだろう…。(_ _;)     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

; ファイラで窓チェンジ (C-o) (TAB と同じ)
(define-key filer-keymap #\C-o
	    #'(lambda ()
		(interactive)
		(if (filer-dual-window-p)
		    (if (filer-left-window-p)
			(filer-right-window)
		      (filer-left-window)))))
# いつも C-o には other-window を割り当ててあるので，
# ファイラでもそのまんまの環境にしたくて…。
# 本当は TAB のキーバインドをそのまま割り当てたいだけなのですが

全体的にもっとかっこいい書き方ありそうですが，
初心者なので勘弁してください。m(_ _)m
「ここはこうした方がいいんでない？」っていうのありましたら，
ぜひお願いします。ほとんど切り貼りしてるだけなので。

| site-lisp に置くものだと思ってました。(^^;

で，ですか…。(^-^;)
ということで，さっそく変更。

---- 
Toy
  E-mail : s5087@xxxxxxxxxxxxxxxxxxxxx