unicode-expand.pl

   1 use strict;
   2 use warnings;
   3
   4 use utf8;
   5 use Encode qw(decode_utf8 encode_utf8);
   6 use charnames ();
   7
   8 use Irssi;
   9 our $VERSION = '1.30';
  10 our %IRSSI = (
  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',
  18 );
  19
  20 sub expand_message_public {
  21     my ($server, $data, $nick, $mask, $target) = @_;
  22     Irssi::signal_continue($server, expand($data), $nick, $mask, $target);
  23 }
  24
  25 sub expand_message_private {
  26     my ($server, $data, $nick, $mask) = @_;
  27     Irssi::signal_continue($server, expand($data), $nick, $mask);
  28 }
  29
  30 sub expand_part {
  31     my ($server, $channel, $nick, $mask, $reason) = @_;
  32     Irssi::signal_continue($server, $channel, $nick, $mask, expand($reason));
  33 }
  34
  35 sub expand_quit {
  36     my ($server, $nick, $mask, $reason) = @_;
  37     Irssi::signal_continue($server, $nick, $mask, expand($reason));
  38 }
  39
  40 sub expand_kick {
  41     my ($server, $channel, $nick, $kicker, $mask, $reason) = @_;
  42     Irssi::signal_continue($server, $channel, $nick, $kicker, $mask, expand($reason));
  43 }
  44
  45 sub expand_topic {
  46     my ($server, $channel, $topic, $nick, $mask) = @_;
  47     Irssi::signal_continue($server, $channel, expand($topic), $nick, $mask);
  48 }
  49
  50 sub expand {
  51     my ($data) = @_;
  52
  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)."]"
  56     }ge;
  57
  58     return $data;
  59 }
  60
  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);