Re: Highlighting text next to button

[Heime <heimeborgia@protonmail.com>]

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"))