function with multiple symbol instructions

function with multiple symbol instructions

[Heime]

I want a function to have the capability of passing multiple
symbol instructions in its argument.  I am using mapc to parse
the symbols.  Is this a good way as implementation goes ?


(defun marsot (&optional actn-list)
  "Add marsot path and requirements."

  ;; Check each symbol in actm-list
  (mapc (lambda (actn)
          (cond ( (eq actn 'armg)
	            (add-to-list 'load-path "~/Opstk/bin/marsot"))

                ( (eq actn 'go)
	            (require 'marsot)
	            (marsot-start))

	        (t  (message "Unknown ACTN value: %s" actn))))
	actn-list)))

Re: function with multiple symbol instructions

[uzibalqa]

On Wednesday, August 28th, 2024 at 1:16 AM, Heime <heimeborgia@protonmail.com> wrote:

> I want a function to have the capability of passing multiple
> symbol instructions in its argument. I am using mapc to parse
> the symbols. Is this a good way as implementation goes ?

Perhaps using pcase would be capable for more advanced pattern matching,
am I right ? 

  (dolist (actn actn-list)
    (pcase actn
      ('armg  (add-to-list 'load-path "~/Opstk/bin/marsot"))
      ('go    (require 'marsot)
              (marsot-start))
      (_ (message "Unknown actn value: %s" actn)))))
 
Mapping directly over the list of actions and call the corresponding functions
should be useful when the action functions do not require any conditions or 
additional logic. 
 
> (defun marsot (&optional actn-list)
> "Add marsot path and requirements."
> 
> ;; Check each symbol in actm-list
> (mapc (lambda (actn)
> (cond ( (eq actn 'armg)
> (add-to-list 'load-path "~/Opstk/bin/marsot"))
> 
> ( (eq actn 'go)
> (require 'marsot)
> (marsot-start))
> 
> (t (message "Unknown ACTN value: %s" actn))))
> actn-list)))
>