[xyzzy:04452] my-open-xxx

[Soichiro Fujimoto <robotcat@xxxxxxx>]

はじめまして。藤本と申します。大変便利に使わせて頂いてます。

よく開くファイルを、one-keyで開くようにしたいと
思いまして、下のような事をしています。

;; one-key open
(defun my-open-xyzzy ()
  (interactive)
  (if (find-buffer ".xyzzy")
      (if (eq (selected-buffer) (find-buffer ".xyzzy"))
	  (progn 
	  (other-buffer) ;;本当は直前開いてたバッファを開きたいのだが
	    (plain-error "既に開いてた"))
	(switch-to-buffer ".xyzzy"))
    (find-file "~/.xyzzy")
  )
)
(global-set-key #\C-F5 'my-open-xyzzy)
(set-function-bar-label #\C-F5 ".xyzzy")

これはこれで良いのですが、たとえばC-F7でsiteinit.lを開きたい時は、
my-open-siteinitみたいな関数を改めて作っています。本当は、
ファイル名を引数にして渡したいのですが、どのようにすれば良いか
分かりません。何かヒントがあれば教えていただけますか？

後、本当はC-F5を押したら.xyzzyを開いて、もう一度押したら直前に
開いてたバッファを開きたいのですが、これもやり方が分からないので、
今は「既に開いてた」を表示しています。何かうまいやり方はありません
でしょうか？

---
Soichiro Fujimoto <robotcat@xxxxxxx>