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