OT emacs question, please forgive me :-)

[Norman Walsh <ndw@nwalsh.com>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

I can't tell if my ISP is providing proper newsgroup access or not. So
I don't know if my post to gnus.emacs.help actually went anywhere. I
know this is off-topic, and I humbly beg your forgiveness. OTOH,
you're all a whole lot more elisp skilled than I, so perhaps the
answer is obvious and you'd be gracious enough to point me in the
right direction.

I'm guessing there must be some way to do this other than brute force.

I have an alist:

(defvar my-alist
  '(("choice1" . "opt1")
    ("choice2" . 35)
    ("choice3" . "opt3")))

I want to make a menu-bar menu that contains choice1, choice2, choice3.
If choice1 is selected, I want to evaluate (my-function "opt1"),
If choice2 is selected, I want to evaluate (my-function 35), etc.

I can see a brute-force solution:

(defun my-function-opt1 ()
  (interactive)
  (my-function "opt1"))

(define-key menu-bar-my-menu [my-choice1]
  '("choice1" . my-function-opt1))

But it seems to me that it should be possible to build the menu bar
from the alist. Alas, it's just beyond my elisp skills.

Clues, please?

                                        Be seeing you,
                                          norm

- -- 
Norman Walsh <ndw@nwalsh.com> | Many eyes go through the meadow, but
http://nwalsh.com/            | few see the flowers in it.--Ralph Waldo
                              | Emerson
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)
Comment: Processed by Mailcrypt 3.5.8 <http://mailcrypt.sourceforge.net/>

iD8DBQE/eHHYOyltUcwYWjsRAsLPAJ9GBiFXmOLBNb4IU2Vwm772eK9AWQCePHHL
9O9PDjr0osLVAnknar6n6QA=
=2fAa
-----END PGP SIGNATURE-----