Re: Using buttons

[Heime <heimeborgia@protonmail.com>]

Sent with Proton Mail secure email.

On Saturday, June 29th, 2024 at 6:59 AM, Stephen Berman <stephen.berman@gmx.net> wrote:

> On Fri, 28 Jun 2024 23:17:48 +0000 Heime heimeborgia@protonmail.com wrote:
> 
> > Sent with Proton Mail secure email.
> > 
> > On Friday, June 28th, 2024 at 10:46 PM, Stephen Berman
> > stephen.berman@gmx.net wrote:
> > 
> > > On Fri, 28 Jun 2024 21:45:32 +0000 Heime heimeborgia@protonmail.com wrote:
> > > 
> > > > Have noticed that when using a button I have to define a unique function
> > > > to associate with the specific button. I cannot just use a single function,
> > > > then update the string (skrpad in this case).
> > > > 
> > > > Also does the button label got to be unique, or is it just to give the button
> > > > some text to display on the button ?
> > > > 
> > > > (defvar skrpad "TODO-0")
> > > > 
> > > > (defun montext (button)
> > > > (with-help-window (help-buffer)
> > > > (insert skrpad)))
> > > > 
> > > > (defun mondu ()
> > > > 
> > > > (interactive)
> > > > 
> > > > (with-current-buffer (get-buffer-create "Mondu")
> > > > 
> > > > (setq mon-skrpad "TODO-1")
> > > > 
> > > > (insert-button "[1]" 'action 'montext)
> > > > 
> > > > (setq mon-skrpad "TODO-2")
> > > > 
> > > > (insert-button "[2]" 'action 'montext)))
> > > 
> > > Try this:
> > > 
> > > (defun mondu ()
> > > (interactive)
> > > (let* ((skrpad (list "TODO-1" "TODO-2"))
> > > (montext (lambda (button)
> > > (with-help-window (help-buffer)
> > > (insert (pop skrpad))))))
> > > (with-current-buffer (get-buffer-create "Mondu")
> > > (insert-button "[1]" 'action (lambda (b) (funcall montext b)))
> > > (insert-button "[2]" 'action (lambda (b) (funcall montext b))))))
> > > 
> > > Steve Berman
> > 
> > It is a good implementation.
> > 
> > I wanted to print the n-th entry in the list upon pressing
> > the n-th button without removing items from the list.
> > 
> > So I did this change. To the lambda function I added n to specify
> > the n-th entry in the list. What do you think of this ?
> > 
> > (defun mondu ()
> > (interactive)
> > (let* ( (skrpad (list "mon-lw" "mon-kk"))
> > (montext (lambda (button n)
> > (with-help-window (help-buffer)
> > (insert (nth n skrpad))))) )
> > (with-current-buffer (get-buffer-create "Mondu")
> > (insert-button "[1]" 'action (lambda (b) (funcall montext b 0)))
> > (insert "\n")
> > (insert-button "[2]" 'action (lambda (b) (funcall montext b 1))))))
> 
> 
> Yes, this is certainly better. (I realized after posting that using
> `pop' was a poor choice, but it was too late for me to follow up.)
> 
> Steve Berman


Do the button labels have to be unique ("[1]", "[2]") or can they use the same 
text such as ("[-]", "[-]")