Make command use specific functions for button action

Make command use specific functions for button action

[Heime]

I have this function that displays two buttons, and calls the
corresponding functions lsk1g and lsk1d.  I would really like to have
the capability to instruct mondu to use specific function names
rather than the hardwired lsk1g and lsk1d.

For instance I want to make a call to mondu that will use lsk2g and
lsk2d rather than lsk1g and lsk1d.

(defun mondu ( monbf )

  (with-current-buffer (get-buffer-create monbf)

    (insert " DU \n\n")

    (insert " ")
    (insert-button "[-]" 'action 'lsk1g)
    (insert " lsk1g   ")

    (insert-button "[-]" 'action 'lsk1d)
    (insert " lsk1d  ") )

  (pop-to-buffer monbf) )

Re: Make command use specific functions for button action

[Stephen Berman]

On Tue, 02 Jul 2024 19:54:18 +0000 Heime <heimeborgia@protonmail.com> wrote:

> I have this function that displays two buttons, and calls the
> corresponding functions lsk1g and lsk1d.  I would really like to have
> the capability to instruct mondu to use specific function names
> rather than the hardwired lsk1g and lsk1d.
>
> For instance I want to make a call to mondu that will use lsk2g and
> lsk2d rather than lsk1g and lsk1d.
>
> (defun mondu ( monbf )
>
>   (with-current-buffer (get-buffer-create monbf)
>
>     (insert " DU \n\n")
>
>     (insert " ")
>     (insert-button "[-]" 'action 'lsk1g)
>     (insert " lsk1g   ")
>
>     (insert-button "[-]" 'action 'lsk1d)
>     (insert " lsk1d  ") )
>
>   (pop-to-buffer monbf) )

Pass a list of symbols of the functions you want on each invocation:

(defun mondu (monbf funs)
  ...
  (let ((fun1 (nth 0 funs)))
    (insert-button "[-]" 'action fun1)
    (insert-button (concat " " (symbol-name fun1) "  ")))
  ...)

(mondu "Mondu" '(lsk2g lsk2d))

Steve Berman