[xyzzy:03894] Re: F2 & C-indent
- Subject: [xyzzy:03894] Re: F2 & C-indent
- From: Toy <s5087@xxxxxxxxxxxxxxxxxxxxx>
- X-mailer: Denshin 8 Go V321.2b5
- X-yzzy-version: 0.1.2.120
山本真二さん,お久しぶりです。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)))
# 名前が衝突するとかで,2回に1回しかダンプ後正常に動かないあやしいネタ
# なぜだろう…。(_ _;) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; ファイラでファイル名をクリップボードへ (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