use strict; use warnings; $INC{'Encode/ConfigLocal.pm'}=1; require Encode; use utf8; # to read the following docs, you can use "perldoc color_popup.pl" =head1 NAME color_popup - show mirc colors when needed =head1 SYNOPSIS the color numbers will be shown when a color control code is present. =cut use constant SCRIPT_NAME => 'color_popup'; weechat::register(SCRIPT_NAME, 'Nei ', '0.4', 'GPL3', 'show mirc color codes', '', '') || return; my %ones = map { $_ => 1 } 0, 8, 14, 15, 42, 43, 45, 53 .. 58, 65 .. 86, 95 .. 98; weechat::hook_modifier('input_text_display_with_cursor', 'color_popup', ''); ## color_popup -- show mirc colors ## () - modifier handler ## $_[2] - buffer pointer ## $_[3] - input string ## returns modified input string sub color_popup { Encode::_utf8_on($_[3]); my $cc = qr/(?:\03(?:\d{1,2}(?:,(?:\d{1,2})?)?)?|\02|\x1d|\x0f|\x12|\x15|\x16|\x1f)/; my ($p1, $x, $p2) = split /((?:$cc)?\x19b#)/, $_[3], 2; for ($p1, $p2) { s/($cc)/$1■/g if weechat::config_string_to_boolean(weechat::config_get_plugin('reveal')); Encode::_utf8_on($_ = weechat::hook_modifier_exec(irc_color_decode => 1, weechat::hook_modifier_exec(irc_color_encode => 1, $_))); } $x .= ' ' . weechat::hook_modifier_exec( irc_color_decode => 1, sub { $x =~ /\cC(\d{1,2})(,(\d{1,2})?)?/; my ($fg, $bg) = ($1//-1, $3//-1); my $sc = $bg >= 0 ? $bg : $2?-1:$fg; (join '', map { "\03" . ($ones{0+$_} // 0) . ",$_$_" } $sc >= 0 ? grep /^0?$sc/, '00' .. '99' : ('00' .. '15')) . "\03" }->() ) if $x =~ /^\03/ and weechat::current_buffer() eq $_[2]; "$p1$x$p2" }