Re: Command Menu

[Kevin Rodgers]

Artist wrote:

> ie..instead of doing M-x some-command,
> I just hit the menu, with some binded key, and it should have all the
> command that I frequently use.


(defvar my-command-menu
  (let ((map (make-sparse-keymap "My Commands")))
    (define-key map [foo] '("Foo" . foo-command))
    (define-key map [bar] '("Bar" . bar-command))
    map))

(global-set-key [menu-bar my-command] (cons "My Commands" my-command-menu))

> There should be method to add and
> delete comamnds and execute command methods.

(global-unset-key [menu-bar my-command foo])    ; add
(global-set-key [menu-bar my-command baz] '("Baz" . baz-command))     ; delete
;; execute command methods?

--
Kevin Rodgers