colorize_lines.pl 4.0.2: fix formatting if a color reset is present (weechat#457)

Author: ryoskzypu

perl/colorize_lines.pl

@@ -19,6 +19,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 # history:
+# 4.0.2: fix formatting if a color reset is present (#457)
 # 4.0.1: fix display of multiline messages
 # 4.0: add compatibility with XDG directories (WeeChat >= 3.2)
 # 3.9: add compatibility with new weechat_print modifier data (WeeChat >= 2.9)
@@ -89,7 +90,7 @@
 
 use strict;
 my $PRGNAME     = "colorize_lines";
-my $VERSION     = "4.0.1";
+my $VERSION     = "4.0.2";
 my $AUTHOR      = "Nils Görs <weechatter\@arcor.de>";
 my $LICENCE     = "GPL3";
 my $DESCR       = "Colorize users' text in chat area with their nick color, including highlights";
@@ -200,7 +201,11 @@ sub colorize_cb
         return $string if ($config{own_lines} eq "off") && not ($channel_color) && ( $config{alternate_color} eq "" );
 
         $color = weechat::color($config{own_lines_color});
-        $color = weechat::color("chat_nick_self") if ($config{own_lines_color} eq "");
+
+        # "chat_nick_self" colors are fixed (\03115) and cannot have the "keep attribute"
+        # code set, so translate it to weechat's colors
+        $color = weechat::color(weechat::config_string(weechat::config_get("weechat.color.chat_nick_self"))) if ($config{own_lines_color} eq "");
+
         $color = $channel_color if ($channel_color) && ($config{own_lines} eq "off");
 
         $color = get_alternate_color($buf_ptr,$alternate_last,$alternate_color1,$alternate_color2) if ( $config{alternate_color} ne "" ) &&
@@ -275,6 +280,19 @@ sub colorize_cb
             }
     ######################################## inject colors and go!
 
+    # color doesn't have a "keep attribute", so replace its code to keep them
+    # when there's a reset color code (\031\034) in the line
+    my $keep_attr = "|";
+    if ($color !~ /\Q$keep_attr\E/) {
+        $color =~ s/
+                      \o{031}
+                      (?> [F*] | F@ | \*@)
+                      [*!\/_%.]?+
+                      \K
+                      (\d{2,5}+)
+                  /${keep_attr}$1/x;
+    }
+
     my $out = "";
     if ($action) {
         # remove the first color reset - after * nick