Re: Making alist that executes multiple commands

[Heime via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org>]

On Monday, November 25th, 2024 at 10:56 AM, Stephen Berman <stephen.berman@gmx.net> wrote:

> On Sun, 24 Nov 2024 21:51:38 +0000 Heime via Users list for the GNU Emacs text editor help-gnu-emacs@gnu.org wrote:
> 
> > What changes can I make to the following to allow me to execute more
> > commands than just one (as in alkotr-ar and alkotr-go).
> > 
> > For ar I want to call functions alkotr-ar and alkotr-af
> > 
> > (let ( (lookup-alist
> > '((ar . alkotr-ar)
> > (go . alkotr-go))))
> > 
> > (dolist (actm symbol-list)
> > (let ((func (cdr (assoc actm lookup-alist))))
> > (if func
> > (funcall func)
> > (message "ACTM Unrecognised: %s%s" "'" actm)))))
> 
> 
> Something like this:
> 
> (let ((symbol-list '(ar go))
>       (lookup-alist '((ar alkotr-ar alkotr-af)
>                       (go alkotr-go alkotr-gc))))
>   (dolist (actm symbol-list)
>     (let ((fnlist (cdr (assoc actm lookup-alist))))
>       (while fnlist
>         (let ((func (pop fnlist)))
>           (if (functionp func)
>                 (funcall func)
>             (message "ACTM Unrecognised: %s%s" "'" actm)))))))
> 
> Steve Berman

Have thought about this.  Any criticisms about it?

  '((ar . (lambda ()
              (alkotr-ar)
              (alkotr-af)))

    (go   . (lambda ()
              (alkotr-go)
              (alkotr-gc))))

What would you suggest for function commands requiring arguments, 
e.g. (alkotr-ar ar) and (alkotr-af af)?