Re: Very customizable menus

[David Kastrup]

dbrown69@yahoo.com (David L. Brown) writes:

> So, I figured out the following fairly easily:
> 
> (defvar my-alist '(("key1" . "value1") ("key2" . "value2") ...)))
> 
> (defun my-function (key)
>   ; do stuff with my-alist to get the value that goes with key and do
> something
> )
> 
> (add-submenu nil '("DoFunc"))
> 
> But now I'm trying to figure out the following
> 
> (defun regenerate-menu ()
>   (dolist (item my-alist)
>      ; grab the key and value from item and do something akin to
>      ; (add-submenu '("DoFunc")
>      ;              '("Keys" [key1  (my-function key1)]
>      ;                       [key2  (my-function key2)]
>      ;                        etc ...                 ]))
>   )
> )
> 
> Is this possible?  Any assistance would be greatly appreciated

Replace '("Keys" ...
with `("Keys" ,(mapcar (lambda (elt) `[,(car elt) (my-function ,(car
                elt))]) my-alist))

A least I think this is what you are aiming for: your above code
snippet implies that you want to regenerate the menu for every item
in the alist which would be awkward, so you probably want to just
drop the dolist. 
                

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum