2011/04/19

xyzzy のメインメニューを消す



メニューはほとんど使わないので消す。


まったく消してしまうと不安なので、右クリックしたときのコンテキストメニューでメインメニューを出せるようにしとく。



;;; toggle-menu でメインメニュー表示を切り替え
(defvar *main-menu* *app-menu*)

(defun toggle-main-menu ()
(interactive)
(set-menu (setq *main-menu* (if *main-menu* nil *app-menu*))))

;;; デフォでメニューを消しておく
(add-hook '*post-startup-hook*
#'(lambda ()
(set-menu (setq *main-menu* nil))))

;;; コンテキストメニューをすげ替える
(setq *my-menu*
(define-popup-menu
(:item nil "メインメニューを表示(&M)" 'toggle-main-menu)))

(add-hook '*init-app-menus-hook*
#'(lambda ()
(setq *app-popup-menu* *my-menu*)))


上のを .xyzzy に書いておく。





Related Posts Plugin for WordPress, Blogger...

0 コメント :

コメントを投稿