Re: Making alist that executes multiple commands

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

Sent with Proton Mail secure email.

On Monday, November 25th, 2024 at 9:40 PM, Stephen Berman <stephen.berman@gmx.net> wrote:

> 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

(defun fpln-test (symbol-list)

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

You suggested the use use of

(funcall 'alkotr-ar ar)
(funcall 'alkotr-ar af)

Where are they to be introduced?

I was planning to introduce the arguments in the lookup-alist.
So that for ar one can include arguments to alkotr-ar and
alkotr-af.