Question

我正在为emacs制作自己的次要模式。现在我想添加按钮到modeline。必须单击此按钮才会出现弹出菜单。此菜单的项目取决于用户的操作。我知道有一种方法可以使用`minor-mode-alist'向modeline添加一个功能按钮，但我不知道如何制作动态菜单。

Answer 1

确定。解决方案成立。:)
首先：定义一些键映射：

(defconst my-mode-line-map
  (let ((map (make-sparse-keymap)))
    (define-key map [mode-line down-mouse-1]
      (make-sparse-keymap))
    map))

第二：将带有属性字符串的列表追加到模式行：

(setq global-mode-string 
  (append global-mode-string 
    (list
      (propertize string-name
        'local-map my-mode-line-map
        'mouse-face 'mode-line-highlight))))

第三：现在您可以使用

添加项目

 (define-key my-mode-line-map 
   (vconcat [mode-line down-mouse-1]
     (list some_generated_id_for_future_use))
   (cons name function))

...并使用

删除

 (define-key my-mode-line-map 
   (vconcat [mode-line down-mouse-1] 
     (list id_of_button_that_u_gave_when_add))
   nil)

Answer 2

我找到了更合适的方式：定义次要模式时，可以指定：light param

(define-minor-mode my-minor-mode
  "docstring"
  nil
  :lighter (:eval (format "%s%.5s" "#" "some code if you want dynamic label"))
  ;or just string :lighter "static string"
  :keymap my-minor-mode-map
... ... ... rest of code ....

然后你可以使用easymenu：

(require 'easymenu)

(easy-menu-define my-minor-mode-menu
  my-minor-mode-map
  "Menu for my-minor-mode"
   '("some text"
      "-")) ;separator

; and then add menu items with easy-menu-add-item and remove with easy-menu-remove-item
; it's nothing hard. Read the docs ;)

此菜单将添加到全局菜单栏，如果您在模式行上单击自动添加（因为您指定：较轻的参数）次要模式按钮，它将弹出。

使用动态菜单添加按钮到emacs的模式行？

2 个答案: