5 use Encode qw(decode_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($server, $target, $data),
23 $nick, $mask, $target);
26 sub expand_message_private {
27 my ($server, $data, $nick, $mask) = @_;
28 Irssi::signal_continue($server, expand($server, $nick, $data),
33 my ($server, $channel, $nick, $mask, $reason) = @_;
34 Irssi::signal_continue($server, $channel, $nick, $mask,
35 expand($server, $channel, $reason));
39 my ($server, $nick, $mask, $reason) = @_;
40 Irssi::signal_continue($server, $nick, $mask,
41 expand($server, $nick, $reason));
45 my ($server, $channel, $nick, $kicker, $mask, $reason) = @_;
46 Irssi::signal_continue($server, $channel, $nick, $kicker, $mask,
47 expand($server, $channel, $reason));
51 my ($server, $channel, $topic, $nick, $mask) = @_;
52 Irssi::signal_continue($server, $channel,
53 expand($server, $channel, $topic), $nick, $mask);
57 my ($server, $target, $data) = @_;
59 $data = decode_utf8($data);
60 $data =~ s{([^\p{Letter}\p{Punctuation}\p{Control}\p{Space}\p{Sc}[:ascii:]])}{
61 "${1} [".charnames::viacode(ord $1)."]"
67 Irssi::signal_add('message public', \&expand_message_public);
68 Irssi::signal_add('message private', \&expand_message_private);
69 Irssi::signal_add('message part', \&expand_part);
70 Irssi::signal_add('message quit', \&expand_quit);
71 Irssi::signal_add('message kick', \&expand_kick);
72 Irssi::signal_add('message topic', \&expand_topic);
73 Irssi::signal_add('message irc action', \&expand_message_public);
74 Irssi::signal_add('message irc notice', \&expand_message_public);