Re: Highlighting text next to button

[Heime <heimeborgia@protonmail.com>]

On Monday, July 1st, 2024 at 7:53 AM, Stephen Berman <stephen.berman@gmx.net> wrote:

> 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

It is more complicated.  When one presses the button "OUTBD", only the
word "OUTBD" gets coloured red.  The other string are reset with no color.
Meaning that the highlight is only applied to the text to which the key 
was pressed.