Re: Matching labels with buttons

[Bruno Barbier <brubar.cs@gmail.com>]

Heime <heimeborgia@protonmail.com> writes:

> Sent with Proton Mail secure email.
>
> On Monday, July 15th, 2024 at 11:17 PM, Heime <heimeborgia@protonmail.com> wrote:
>
>> I want to match cases such as
>> 
>> Label [-]
>> 
>> Have constructed the following regexp, but it does not match the above
>> 
>> "\\(.\\)\\(\\s-\\[\\-\\]\\s-\\)"
>> 
>> I aw using
>> 
>> (when (string-match "\\(.\\)\\(\\s-\\[\\-\\]\\s-\\)" text)
>
> In the code I have
>
>   (if (string-match "\\(\\s-*\\[\\-\\]\\s-*\\)\\(.*\\)" label)    ; [-] LB
>
>       (progn
>         (setq bt (match-string 1 label))
>         (setq lb (match-string 2 label))
>         (setq result
>                (concat bt (propertize lb 'face '(:foreground "red")))))
>
>
>     (when (string-match "\\(.*\\)\\(\\s-*\\[\\-\\]\\s-*\\)" label) ; LB [-]
>
>       (setq lb (match-string 1 label))
>       (setq bt (match-string 2 label))
>       (setq result 
>              (concat (propertize lb 'face '(:foreground "red")) bt)))
>
> Doing some tests with 
>
> "OFF [-]"
>
> keeps matching the first string-match

Because it does match:

   (string-match "\\(\\s-*\\[\\-\\]\\s-*\\)\\(.*\\)" "OFF [-]")
   => 3

When building regular expressions, I'm often using the amazing M-x
re-builder: it allows to construct regexps interactively with visual
feedbacks, it even understands the "rx" syntax, for more readable
regexps.

HTH,

Bruno