HOWTO add new menu item to the beggining of the menu

HOWTO add new menu item to the beggining of the menu

[Michal]

Hallo Group Readers!

I have NO problem adding new item to the end of the menu. For example:

(define-key c-mode-map [tool-bar csearch-forw]
	      `(menu-item "csearch forward" csearch-forward
			  :image (image :type xpm :file "/tmp/right-arrow.xpm")))

But how to add it to be the first element in a menu?

best regards!
Michal

Re: HOWTO add new menu item to the beggining of the menu

[Xah Lee]

On Jun 23, 7:46 am, Michal <rabbi...@tenbit.pl> wrote:
> Hallo Group Readers!
>
> I have NO problem adding new item to the end of the menu. For example:
>
> (define-key c-mode-map [tool-bar csearch-forw]
>               `(menu-item "csearch forward" csearch-forward
>                           :image (image :type xpm :file "/tmp/right-arrow.xpm")))
>
> But how to add it to be the first element in a menu?

there's a define-key-after.

• Modifying-Menus.html#Modifying-Menus
  http://xahlee.org/elisp/Modifying-Menus.html#Modifying-Menus

i vaguely recall there's also a define-key-before or similar, but
can't find it now.

  Xah
∑ http://xahlee.org/

☄

Re: HOWTO add new menu item to the beggining of the menu

[Michal]

>
> there's a define-key-after.

this is what I was looking for.
thank You!

best regards,
Michal

Re: HOWTO add new menu item to the beggining of the menu

[TomSW]

On Jun 23, 4:46 pm, Michal <rabbi...@tenbit.pl> wrote:
> Hallo Group Readers!
>
> I have NO problem adding new item to the end of the menu. For example:
>
> (define-key c-mode-map [tool-bar csearch-forw]
>               `(menu-item "csearch forward" csearch-forward
>                           :image (image :type xpm :file "/tmp/right-arrow.xpm")))
>
> But how to add it to be the first element in a menu?

You're actually adding a toolbar icon, not a menu item: your code
doesn't affect the "C" menu, only the tool bar.
easy-menu-add-item lets you add an item before another one, but I
don't know a predefined way to find the first item in a menu. How
about:

(eval-after-load "cc-mode"
  `(let* ((command-name "csearch forward")
          (command      'csearch-forward)
          (icon         "right-arrow")
          (c-menu-map   (lookup-key c-mode-map [menu-bar C]))
          (first-item   (catch :first
                          (map-keymap (lambda (key def) (throw :first
key))
                                      c-menu-map))))
     ;; add the menu item at the top
     (easy-menu-add-item c-menu-map nil
                         `[,command-name ,command t]
                         first-item)
     ;; add it to the tool bar
     (tool-bar-add-item-from-menu command icon c-mode-map)))

regards,
Tom SW