Ability to use a button to run interactive function

Ability to use a button to run interactive function

[Heime]

The following function does not allow me to call it via a button.  Would
this be possible, whilst also be allowed to call the function interactively 
using 'M-x maces-snapshot' ?


(defun maces-snapshot ()
  "Prints information about how to install emacs."
  (interactive)

  (with-help-window (help-buffer)

    (insert-button "[F5]" 'action 'action-snapshot
      'follow-link t)
    (insert " A Snapshot Repository \n")

    (insert-button "[B5]" 'action 'action-snapshot
      'follow-link t)
    (insert " Obtaining a Snapshot Repository with Git \n") ))

Re: Ability to use a button to run interactive function

[Emanuel Berg]

Heime wrote:

> The following function does not allow me to call it via
> a button.

If we are talking buttons as in keys on a keyboard, they the
answer is you didn't bind the button to the function.

> Would this be possible, whilst also be allowed to call the
> function interactively using 'M-x maces-snapshot' ?

It is already callable like that since it is interactive (a
command).

-- 
underground experts united
https://dataswamp.org/~incal

Re: Ability to use a button to run interactive function

[Stephen Berman]

On Mon, 28 Aug 2023 14:34:23 +0000 Heime <heimeborgia@protonmail.com> wrote:

> The following function does not allow me to call it via a button.  Would
> this be possible, whilst also be allowed to call the function interactively
> using 'M-x maces-snapshot' ?
>
>
> (defun maces-snapshot ()
>   "Prints information about how to install emacs."
>   (interactive)
>
>   (with-help-window (help-buffer)
>
>     (insert-button "[F5]" 'action 'action-snapshot
>       'follow-link t)
>     (insert " A Snapshot Repository \n")
>
>     (insert-button "[B5]" 'action 'action-snapshot
>       'follow-link t)
>     (insert " Obtaining a Snapshot Repository with Git \n") ))

Yes, give maces-snapshot an optional argument:

(defun maces-snapshot (&optional button)
  ...

Steve Berman

Re: Ability to use a button to run interactive function

[Marcin Borkowski]

On 2023-08-28, at 16:34, Heime <heimeborgia@protonmail.com> wrote:

> The following function does not allow me to call it via a button.  Would
> this be possible, whilst also be allowed to call the function interactively 
> using 'M-x maces-snapshot' ?
>
>
> (defun maces-snapshot ()
>   "Prints information about how to install emacs."
>   (interactive)
>
>   (with-help-window (help-buffer)
>
>     (insert-button "[F5]" 'action 'action-snapshot
>       'follow-link t)
>     (insert " A Snapshot Repository \n")
>
>     (insert-button "[B5]" 'action 'action-snapshot
>       'follow-link t)
>     (insert " Obtaining a Snapshot Repository with Git \n") ))

Works for me.  What did you do?

I evaled the defun first and then did M-x global-set-key.

Although, I'd probably use a hydra for things like that.

Best,

-- 
Marcin Borkowski
http://mbork.pl

Re: Ability to use a button to run interactive function

[Heime]

------- Original Message -------
On Tuesday, August 29th, 2023 at 2:55 AM, Stephen Berman <stephen.berman@gmx.net> wrote:

> On Mon, 28 Aug 2023 14:34:23 +0000 Heime heimeborgia@protonmail.com wrote:
> 
> > The following function does not allow me to call it via a button. Would
> > this be possible, whilst also be allowed to call the function interactively
> > using 'M-x maces-snapshot' ?
> > 
> > (defun maces-snapshot ()
> > "Prints information about how to install emacs."
> > (interactive)
> > 
> > (with-help-window (help-buffer)
> > 
> > (insert-button "[F5]" 'action 'action-snapshot
> > 'follow-link t)
> > (insert " A Snapshot Repository \n")
> > 
> > (insert-button "[B5]" 'action 'action-snapshot
> > 'follow-link t)
> > (insert " Obtaining a Snapshot Repository with Git \n") ))
> 
> 
> Yes, give maces-snapshot an optional argument:
> 
> (defun maces-snapshot (&optional button)
> ...
> 
> Steve Berman

Amazing ! Had thought that function with arguments could not be called interactively.

Re: Ability to use a button to run interactive function

[Stephen Berman]

On Mon, 28 Aug 2023 16:33:57 +0000 Heime <heimeborgia@protonmail.com> wrote:

> ------- Original Message -------
> On Tuesday, August 29th, 2023 at 2:55 AM, Stephen Berman
> <stephen.berman@gmx.net> wrote:
>
>> On Mon, 28 Aug 2023 14:34:23 +0000 Heime heimeborgia@protonmail.com wrote:
>>
>> > The following function does not allow me to call it via a button. Would
>> > this be possible, whilst also be allowed to call the function interactively
>> > using 'M-x maces-snapshot' ?
>> >
>> > (defun maces-snapshot ()
>> > "Prints information about how to install emacs."
>> > (interactive)
>> >
>> > (with-help-window (help-buffer)
>> >
>> > (insert-button "[F5]" 'action 'action-snapshot
>> > 'follow-link t)
>> > (insert " A Snapshot Repository \n")
>> >
>> > (insert-button "[B5]" 'action 'action-snapshot
>> > 'follow-link t)
>> > (insert " Obtaining a Snapshot Repository with Git \n") ))
>>
>>
>> Yes, give maces-snapshot an optional argument:
>>
>> (defun maces-snapshot (&optional button)
>> ...
>>
>> Steve Berman
>
> Amazing ! Had thought that function with arguments could not be called
> interactively.

Invoking a command with a prefix argument, e.g. `C-5 M-x next-line'
(i.e. `C-5 C-n') is just a way of interactively passing it an argument
to a function when calling it.  Just invoking `M-x maces-snapshot' does
not pass an argument to the function, but that's fine here, since the
argument is optional.

Steve Berman