Re: Making alist that executes multiple commands

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

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.

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

Steve Berman