[xyzzy:04977] project-bar
- Subject: [xyzzy:04977] project-bar
- From: Seiya Suda <seiya.suda@xxxxxxxxxxx>
- X-mailer: Denshin 8 Go V321.2b6-stable
- X-yzzy-version: 0.2.1.155
亀井さん、こんにちは。
やっと謎が解けたような気がします。
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/