Re: Making alist that executes multiple commands

[Heime]

On Monday, November 25th, 2024 at 11:39 AM, Heime via Users list for the GNU 
Emacs text editor <help-gnu-emacs@gnu.org> wrote:
 
> Sent with Proton Mail secure email.
> 
> On Monday, November 25th, 2024 at 11:28 AM, Stephen Berman 
> stephen.berman@gmx.net wrote:
> 
> > On Sun, 24 Nov 2024 23:13:51 +0000 Heime heimeborgia@protonmail.com wrote:
> > 
> > > 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))))
> > 
> > That seems fine if the functions take no arguments, though probably not
> > as flexible as looping over a list.
> 
> 
> Could you explain? Can't I do
> 
> (go . (lambda ()
> (alkotr-go go)
> (alkotr-gc gc))
> 
> > > What would you suggest for function commands requiring arguments,
> > > e.g. (alkotr-ar ar) and (alkotr-af af)?
> > 
> > (funcall 'alkotr-ar ar)
> > (funcall 'alkotr-ar af)
> 
> 
> How would the above solution fit with argument incorporation within
> lookup-alist?

Does one use 

 (lookup-alist '( (ar (alkotr-ar arg-ar) (alkotr-af arg-af))
                  (go (alkotr-go arg-go) (alkotr-gc arg-gc))) ))