Structuring a list to run sequence of commands

Structuring a list to run sequence of commands

[Heime via Users list for the GNU Emacs text editor]

Have been hoping to grouping a sequence of commands and execute each one.

But am getting 

Debugger entered--Lisp error: (invalid-function (add-to-list 'load-path (marnap-sec-fpln-waypt "NAPLN")))
  ((add-to-list 'load-path (marnap-sec-fpln-waypt "NAPLN")) (require 'napoleon))
  eval(((add-to-list 'load-path (marnap-sec-fpln-waypt "NAPLN")) (require 'napoleon)))
  (let ((cmd (car tail))) (eval cmd) (setq tail (cdr tail)))

I want to ensures that each command in lookup-alist for options 'armg 
and 'go are evaluated independently.

The call I use is (marnap '(armg go))

(defun marnap (&optional actm-service)

  (let ( (lookup-alist '((armg ((add-to-list 'load-path
                                  (marnap-sec-fpln-waypt "NAPLN"))
                                (require 'napoleon)) )

                         (go   ((napoleon-tachyon 'go)) ) )) )

    (dolist (actm actm-service)

      (let ( (fnlist (cdr (assoc actm lookup-alist))) )
        (if fnlist
             ;; Iterate over list of commands and evaluate each
             (dolist (cmd fnlist)
               (eval cmd))  ; Evaluate command as a list
          (message "ACTM Unrecognised: '%s\n" actm))) )) )

Re: Structuring a list to run sequence of commands

[Joel Reicher]

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

> Have been hoping to grouping a sequence of commands and execute 
> each one.

Isn't this just what progn does?

Regards,

        - Joel

Re: Structuring a list to run sequence of commands

[Jean Louis]

* Joel Reicher <joel.reicher@gmail.com> [2024-12-22 15:40]:
> Heime via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org>
> writes:
> 
> > Have been hoping to grouping a sequence of commands and execute each
> > one.
> 
> Isn't this just what progn does?

This is how I do that:

(rcd-dashboard 
	      '(rcd-notes-dashboard-header
		rcd-notes-hyperscope
		rcd-notes-people
		rcd-notes-marketing
		rcd-notes-dashboard-people-communication
		rcd-notes-dashboard-hyperscope-tags
		rcd-notes-dashboard-hyperscope-referencing
		rcd-notes-dashboard-hyperscope-action-statuses
		rcd-notes-dashboard-people-assigned-to-pending-hyperdocuments
		rcd-notes-dashboard-org
		rcd-notes-dashboard-admin-scales
		rcd-notes-dashboard-media
		rcd-notes-dashboard-www
		rcd-notes-dashboard-hyperscope-maintenance
		rcd-notes-dashboard-system
		rcd-notes-customize
		rcd-notes-dashboard-footer
		rcd-notes-refresh-with-idle-timer
		read-only-mode)
	      "RCD-notes")

(defun rcd-dashboard (list-of-functions &optional dashboard-name)
  "Start RCD Dashboard and invoke LIST-OF-FUNCTIONS."

  then the function do other things and then:

  (mapc #'funcall list-of-functions)

  
-- 
Jean Louis