5 use Encode qw(decode_utf8 encode_utf8);
11 authors => 'Jonathan McDowell',
12 contact => 'noodles@earth.li',
13 name => 'unicode-expand',
14 description => 'Expands Unicode characters to include their names',
15 license => 'Public Domain',
16 changed => "Fri Dec 8 13:39:00 UTC 2017",
17 url => 'https://the.earth.li/~noodles/unicode-expand.pl',
20 sub expand_message_public {
21 my ($server, $data, $nick, $mask, $target) = @_;
22 Irssi::signal_continue($server, expand($data), $nick, $mask, $target);
25 sub expand_message_private {
26 my ($server, $data, $nick, $mask) = @_;
27 Irssi::signal_continue($server, expand($data), $nick, $mask);
31 my ($server, $channel, $nick, $mask, $reason) = @_;
32 Irssi::signal_continue($server, $channel, $nick, $mask, expand($reason));
36 my ($server, $nick, $mask, $reason) = @_;
37 Irssi::signal_continue($server, $nick, $mask, expand($reason));
41 my ($server, $channel, $nick, $kicker, $mask, $reason) = @_;
42 Irssi::signal_continue($server, $channel, $nick, $kicker, $mask, expand($reason));
46 my ($server, $channel, $topic, $nick, $mask) = @_;
47 Irssi::signal_continue($server, $channel, expand($topic), $nick, $mask);
53 $data = decode_utf8($data);
54 $data =~ s{([^[:ascii:]\p{Letter}\p{Punctuation}\p{Control}\p{Space}\p{Currency_Symbol}])}{
55 "${1}[".charnames::viacode(ord $1)."]"
61 Irssi::signal_add('message public', \&expand_message_public);
62 Irssi::signal_add('message private', \&expand_message_private);
63 Irssi::signal_add('message part', \&expand_part);
64 Irssi::signal_add('message quit', \&expand_quit);
65 Irssi::signal_add('message kick', \&expand_kick);
66 Irssi::signal_add('message topic', \&expand_topic);
67 Irssi::signal_add('message irc action', \&expand_message_public);
68 Irssi::signal_add('message irc notice', \&expand_message_public);