need to add to a menu

need to add to a menu

[Billy N. Patton]

On the menu Tools->Compile it will do a make -k and output to a buffer. 
  It will also add the menu Compile which will allow you to step through 
errors,  I like that.
I would like to add the the Tools menu the ability to do a
make install
make test
make docs


How do I add to an existing menu?

-- 
    ___  _ ____       ___       __  __
   / _ )(_) / /_ __  / _ \___ _/ /_/ /____  ___
  / _  / / / / // / / ___/ _ `/ __/ __/ _ \/ _ \
/____/_/_/_/\_, / /_/   \_,_/\__/\__/\___/_//_/
            /___/
Texas Instruments ASIC Circuit Design Methodology Group
Dallas, Texas, 214-480-4455,  b-patton@ti.com

Re: need to add to a menu

[Kevin Rodgers]

Billy N. Patton wrote:
 > On the menu Tools->Compile it will do a make -k and output to a buffer.
 >  It will also add the menu Compile which will allow you to step through
 > errors,  I like that.
 > I would like to add the the Tools menu the ability to do a
 > make install
 > make test
 > make docs
 >
 > How do I add to an existing menu?

(defun make-install ()
   "*Run `M-x compile RET make install RET'."
   (interactive)
   (compile "make install"))

(defun make-test ()
   "*Run `M-x compile RET make test RET'."
   (interactive)
   (compile "make test"))

(defun make-docs ()
   "*Run `M-x compile RET make docs RET'."
   (interactive)
   (compile "make docs"))

(define-key-after menu-bar-tools-menu [make-install]
   '(menu-item "Compile command: make install" make-install)
   'compile)

(define-key-after menu-bar-tools-menu [make-test]
   '(menu-item "Compile command: make test" make-test)
   'make-install)

(define-key-after menu-bar-tools-menu [make-docs]
   '(menu-item "Compile command: make docs" make-docs)
   'make-test)

-- 
Kevin Rodgers