[xyzzy:04977] project-bar

[Seiya Suda <seiya.suda@xxxxxxxxxxx>]

亀井さん、こんにちは。

やっと謎が解けたような気がします。

1. create-tab-bar を defun の外に出したほうがいいのでしょうか?

2. 選択してもマウスで画面をつつかないと出てこないので、
　その点に関してどうすればいいか教えてください。


;;; project-bar.l

(export '(project-bar))

(defvar project-list '("D:/root/.xyyzy" "D:/xyzzy/site-lisp/dired.l"))

(defun create-project-bar ()
  (interactive)
  (create-tab-bar 'project-bar 'find-file)
  (dolist (x project-list)
    (let ((item x)
	  (string (file-namestring x)))
      (tab-bar-add-item 'project-bar item string)))
  'project-bar)

(define-command-bar 'project-bar "project(&P)")
(setf (symbol-function 'project-bar) #'create-project-bar)
(show-command-bar (create-project-bar))


----------------------------------------------------------
(注意)少なくとも defvar のところをカスタマイズしてから実行
しないと、.xyzzy  dired.l という tab-bar が一生(?)
消えなくなるかもしれません。

--------
須田誠也(suda seiya)
seiya.suda@xxxxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/