Re: Making alist that executes multiple commands

[Stephen Berman <stephen.berman@gmx.net>]

On Mon, 25 Nov 2024 01:05:10 +0000 Heime <heimeborgia@protonmail.com> wrote:

> 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))

Yes (but as Stefan Monnier pointed out and I overlooked, you have to
evaluate the lambda expressions).  I was just referring to the specific
function calls you used.

>> > > 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?

I'm not sure what you're asking here.

> Does one use
>
>  (lookup-alist '( (ar (alkotr-ar arg-ar) (alkotr-af arg-af))
>                   (go (alkotr-go arg-go) (alkotr-gc arg-gc))) ))

Use it for what?

Steve Berman