Re: Colourising a label prints it twice

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

On Fri, 12 Jul 2024 23:55:49 +0000 Heime <heimeborgia@protonmail.com> wrote:

> On Saturday, July 13th, 2024 at 11:26 AM, Stephen Berman
> <stephen.berman@gmx.net> wrote:
>
>> On Fri, 12 Jul 2024 23:09:28 +0000 Heime heimeborgia@protonmail.com wrote:
>>
>> > I have the following function to colourise the label, but I get OFF
>> > printed twice.
>> >
>> > (defun label-select (label)
>> > "Color the part of LABEL after [-]."
>> >
>> > (if (string-match "\\[\\-\\] \\(.*\\)" label)
>> >
>> > (let ( (bt (match-string 0 label))
>> > (lb (match-string 1 label)) )
>> > (concat bt (propertize lb 'face '(:foreground "red"))))
>> >
>> > label))
>> >
>> > (insert (format " %s \n" (label-select "[-] OFF ")))
>> > (insert (format " %s \n" (label-select "[-] OFF ")))
>> > (insert (format " %s \n" (label-select " [-] OFF ")))
>>
>>
>> `bt' is the entire string passed by LABEL, but IIUC it should just be
>> the string "[-] ", so put that in a group:
>>
>> (defun label-select (label)
>> "Color the part of LABEL after [-]."
>>
>> (if (string-match "\\(\\[\\-\\] \\)\\(.*\\)" label)
>>
>> (let ( (bt (match-string 1 label))
>> (lb (match-string 2 label)) )
>> (concat bt (propertize lb 'face '(:foreground "red"))))
>>
>> label))
>>
>> Steve Berman
>
> Regarding grouping, I want to replicate the original string with respect
> to any whitespaces.  Does the grouping outline respect the original whitespace ?

The regexp I used is fairly specific to the examples you gave (though I
overlooked that your third example has a space before "[-]"); to allow
arbitrary whitespace in the first group before and after "[-]" you can
use "\\s-*":

(defun label-select (label)
  "Color the part of LABEL after [-]."

  (if (string-match "\\(\\s-*\\[\\-\\]\\s-*\\)\\(.*\\)" label)

      (let ( (bt (match-string 1 label))
             (lb (match-string 2 label)) )
        (concat bt (propertize lb 'face '(:foreground "red"))))

    label))

Steve Berman