Re: Highlighting text next to button

[Stephen Berman <stephen.berman@gmx.net>]

On Sun, 30 Jun 2024 22:32:24 +0000 Heime <heimeborgia@protonmail.com> wrote:

> On Sunday, June 30th, 2024 at 10:11 PM, Stephen Berman
> <stephen.berman@gmx.net> wrote:
>
>> On Sun, 30 Jun 2024 21:52:12 +0000 Heime heimeborgia@protonmail.com wrote:
>>
>> > On Sunday, June 30th, 2024 at 8:00 PM, Heime heimeborgia@protonmail.com wrote:
>> >
>> > > I have the function monde that displays some buttons with associated text
>> > > describing what the button does.
>> > >
>> > > I would like to highlight the description text corresponding to the button
>> > > that was pressed, with NORM being the default when calling the function.
>> > > What can I do ?
>> > >
>> > > (defun spaz (w)
>> > > "Make a string of width W made of spaces."
>> > > (make-string w ?\s))
>> > >
>> > > (defun mondu ()
>> > >
>> > > (interactive)
>> > >
>> > > (with-current-buffer (get-buffer-create "Mondu")
>> > >
>> > > (insert " MAIN PANEL DU \n\n")
>> > >
>> > > (insert " ")
>> > > (insert-button "[-]" 'action 'mondu-outbd)
>> > > (insert " OUTBD ")
>> > >
>> > > (insert-button "[-]" 'action 'mondu-norm)
>> > > (insert " NORM ")
>> > >
>> > > ;;------------------------------------------------------------
>> > >
>> > > (insert-button "[-]" 'action 'mondu-inbd-eng-pri)
>> > > (insert " INBD ENG PRI \n")
>> > >
>> > > (insert (spaz 24))
>> > > (insert-button "[-]" 'action 'mondu-inbd-pfd)
>> > > (insert " INBD PFD \n")
>> > >
>> > > (insert (spaz 24))
>> > > (insert-button "[-]" 'action 'mondu-inbd-hfd)
>> > > (insert " INBD HFD \n") )
>> > >
>> > > (pop-to-buffer "Mondu") )
>> >
>> > Have made the following. But I also have to activate the text that is printed
>> > to the help buffer when pressing the button.
>> >
>> > (defun mondu-color-text (text color)
>> > "Color TEXT in the specified COLOR in the Mondu buffer."
>> >
>> > (with-current-buffer "Mondu"
>> > (save-excursion
>> > (goto-char (point-min))
>> > (when (search-forward text nil t)
>> > (let ((start (match-beginning 0))
>> > (end (match-end 0)))
>> > (add-text-properties start end `(face (:foreground ,color))))))))
>> >
>> > (defun mondu ()
>> > "Set up the Mondu buffer with buttons and text."
>> >
>> > (interactive)
>> >
>> > (with-current-buffer (get-buffer-create "Mondu")
>> >
>> > (erase-buffer) ;; Clear the buffer to avoid repeated content on multiple
>> > invocations
>> >
>> > (insert " MAIN PANEL DU \n\n")
>> >
>> > (insert " ")
>> > (insert-button "[-]"
>> > 'action (lambda (_) (mondu-color-text " OUTBD " "red")))
>> > (insert " OUTBD ")
>> >
>> > (insert-button "[-]"
>> > 'action (lambda (_) (mondu-color-text " NORM " "red")))
>> > (montejura-insert-colorat " NORM " "red")
>> >
>> > (insert-button "[-]"
>> > 'action (lambda (_) (mondu-color-text " INBD ENG PRI " "red")))
>> > (insert " INBD ENG PRI \n")
>> >
>> > (insert (espz 24))
>> > (insert-button "[-]"
>> > 'action (lambda (_) (mondu-color-text " INBD PFD " "red")))
>> > (insert " INBD PFD \n")
>> >
>> > (insert (espz 24))
>> > (insert-button "[-]"
>> > 'action (lambda (_) (mondu-color-text " INBD HFD " "red")))
>> > (insert " INBD HFD \n"))
>> >
>> > (pop-to-buffer "Mondu"))
>>
>>
>> Perhaps this (based on the first version):
>>
>> (defun mondu ()
>> (interactive)
>> (with-current-buffer (get-buffer-create "Mondu")
>> (let ((make-desc (lambda (&optional description)
>> (insert (propertize (or description " NORM ")
>> 'face '( :weight bold
>> :slant italic
>> :background "lightgray"))))))
>> (insert " MAIN PANEL DU \n\n")
>> (insert " ")
>> (insert-button "[-]" 'action 'mondu-outbd)
>> (funcall make-desc " OUTBD ")
>> (insert-button "[-]" 'action 'mondu-norm)
>> (funcall make-desc)
>> ;;------------------------------------------------------------
>> (insert-button "[-]" 'action 'mondu-inbd-eng-pri)
>> (funcall make-desc " INBD ENG PRI \n")
>> (insert (spaz 24))
>> (insert-button "[-]" 'action 'mondu-inbd-pfd)
>> (funcall make-desc " INBD PFD \n")
>> (insert (spaz 24))
>> (insert-button "[-]" 'action 'mondu-inbd-hfd)
>> (funcall make-desc" INBD HFD \n")))
>> (pop-to-buffer "Mondu"))
>>
>> Steve Berman
>
> Steve, your function highlights everything, not only the text next to
> where the button was pressed.

Do you mean the background color?  That was just an example; if you
don't want it, then just don't include it in the value of the `face'
property.  E.g., if you just want the text next to the button to be red,
just use '(:foreground "red") as the value of the `face' property.

Steve Berman