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 に書いておく。