在 Emacs 中动态显示/隐藏菜单栏

Question

我在f11上绑定了menu-bar-open并关闭了 menu-bar，因此， f11调用tmm-menubar ，这很不方便，并且由于某种原因没有特定于模式的菜单项（例如 org 和 tbl in组织模式）。 我希望它以这种方式运行：使菜单栏可见，使用户能够选择菜单项，然后再次使菜单栏不可见。

最惯用和最优雅的方法是什么？

我考虑过编写建议，但 Emacs 开发人员通常反对它，因为它会导致调试问题，而且标准 Emacs 代码不包含建议。

我在 GUI 中使用 Emacs 24.1。

Answer 1

在 Emacs-24 中，您可以简单地这样做：

(global-set-key [f9] 'toggle-menu-bar-mode-from-frame)

• 不确定 24 岁之前的 Emacs 版本。
• 请确保 f9 在您的安装中确实可用。

Answer 2

如果您在禁用menu-bar-mode情况下运行图形 Emacs 会话，则C-<mouse-3>应该将菜单的全部内容作为弹出对话框显示出来。 但是，如果您在终端中运行 Emacs，这绝对行不通； 你没有具体说明是哪种情况，所以我尽量不做假设。 也可以为mouse-popup-menubar和/或mouse-popup-menubar-stuff函数创建自定义鼠标绑定（可选地，使用键盘修饰符），但最终这只会使您能够复制类似于标准功能的行为我已经在上面描述过了。

由于menu-bar-mode有点不灵活和全局的性质（即它适用于所有 Emacs 框架并通过挂钩等提供相对较少的定制），我认为很难准确地实现使用香草 Emacs 实现您想要的行为。 可以编写一个自定义函数来临时启用menu-bar-mode ，然后在做出选择后使用类似post-command-hook的东西再次禁用它，但我不确定。 如果时间允许，我会尝试进一步调查。

此外，您可能希望查看第三方菜单栏包（qv， EmacsWiki 的菜单栏部分）。

编辑：我一起破解了一个相当笨拙的解决方案，您可能会发现它很有用......

(add-hook
 'pre-command-hook
 (lambda ()
   (when (eq menu-bar-mode 42)
     (menu-bar-mode -1))))

(defun my-menu-bar-open ()
  (interactive)
  (unless menu-bar-mode
    (menu-bar-mode 1))
  (menu-bar-open)
  (setq menu-bar-mode 42))

我已经在图形会话中对此进行了测试，它似乎模拟了您想要的行为，只要您不执行 Emacs 在执行my-menu-bar-open和进行选择之间注册为命令的任何操作（这基本上是除了浏览菜单本身之外的任何东西）。 选择42是一个神奇的数字（也是对 Douglas Adams 的敬意），旨在最大限度地降低挂钩函数为menu-bar-mode变量的更典型值而被激活的风险。 我并不是说这在任何方面都很优雅，但是，以其绝对丑陋的方式，它确实有效。 如果您决定使用它，只需将my-menu-bar-open绑定到f11 （或您喜欢的任何内容），即：

(global-set-key [f11] 'my-menu-bar-open)

或者，您可以通过以类似方式使用pre-command-hook来实现非常相似的功能，而不是建议menu-bar-open执行menu-bar-mode的临时切换。

Answer 3

对 Greg 的回答进行了小幅改进，使pre-command-hook保持清洁：

(menu-bar-mode -1)

(defun my-menu-bar-open-after ()
  (remove-hook 'pre-command-hook 'my-menu-bar-open-after)
  (when (eq menu-bar-mode 42)
    (menu-bar-mode -1)))

(defun my-menu-bar-open (&rest args)
  (interactive)
  (let ((open menu-bar-mode))
    (unless open
      (menu-bar-mode 1))
    (funcall 'menu-bar-open args)
    (unless open
      (setq menu-bar-mode 42)
      (add-hook 'pre-command-hook 'my-menu-bar-open-after))))

(global-set-key [f10] 'my-menu-bar-open)

Answer 4

我已经在 GNU Emacs 25.2 和 26.3 中对此进行了测试：

(menu-bar-mode -1)

(advice-add 'menu-bar-open
            :around
            (lambda (orig-fun &rest args)
              (menu-bar-mode 1)
              (apply orig-fun args)
              (menu-bar-mode -1)))

结果行为（假设menu-bar-open绑定到F10 ，这是默认设置）：

• 默认情况下不显示菜单栏。
• 如果按F10 ，将显示菜单栏。
• 离开菜单栏后，菜单栏将消失，直到您下次按F10 。

请注意，这更像是一个 hack，而不是一个正确的解决方案。