From: Jonathan McDowell <noodles@earth.li>
Date: Fri, 4 Jan 2019 09:13:58 +0000 (+0000)
Subject: Add earliest available revision
X-Git-Url: https://the.earth.li/gitweb/?p=unicode-expand.git;a=commitdiff_plain;h=5b560e84a43c665e0d8566799ab5699c4e47da64

Add earliest available revision

This is the earliest version I still have; initial work was not tracked
in git in any fashion.
---

5b560e84a43c665e0d8566799ab5699c4e47da64
diff --git a/unicode-expand.pl b/unicode-expand.pl
new file mode 100644
index 0000000..d7ae931
--- /dev/null
+++ b/unicode-expand.pl
@@ -0,0 +1,68 @@
+use strict;
+use warnings;
+
+use utf8;
+use Encode qw(decode_utf8 encode_utf8);
+use charnames ();
+
+use Irssi;
+our $VERSION = '1.30';
+our %IRSSI = (
+    authors     => 'Jonathan McDowell',
+    contact     => 'noodles@earth.li',
+    name        => 'unicode-expand',
+    description => 'Expands Unicode characters to include their names',
+    license     => 'Public Domain',
+    changed     => "Fri Dec  8 13:39:00 UTC 2017",
+    url         => 'https://the.earth.li/~noodles/unicode-expand.pl',
+);
+
+sub expand_message_public {
+    my ($server, $data, $nick, $mask, $target) = @_;
+    Irssi::signal_continue($server, expand($data), $nick, $mask, $target);
+}
+
+sub expand_message_private {
+    my ($server, $data, $nick, $mask) = @_;
+    Irssi::signal_continue($server, expand($data), $nick, $mask);
+}
+
+sub expand_part {
+    my ($server, $channel, $nick, $mask, $reason) = @_;
+    Irssi::signal_continue($server, $channel, $nick, $mask, expand($reason));
+}
+
+sub expand_quit {
+    my ($server, $nick, $mask, $reason) = @_;
+    Irssi::signal_continue($server, $nick, $mask, expand($reason));
+}
+
+sub expand_kick {
+    my ($server, $channel, $nick, $kicker, $mask, $reason) = @_;
+    Irssi::signal_continue($server, $channel, $nick, $kicker, $mask, expand($reason));
+}
+
+sub expand_topic {
+    my ($server, $channel, $topic, $nick, $mask) = @_;
+    Irssi::signal_continue($server, $channel, expand($topic), $nick, $mask);
+}
+
+sub expand {
+    my ($data) = @_;
+
+    $data = decode_utf8($data);
+    $data =~ s{([^[:ascii:]\p{Letter}\p{Punctuation}\p{Control}\p{Space}\p{Currency_Symbol}])}{
+        "${1}[".charnames::viacode(ord $1)."]"
+    }ge;
+
+    return $data;
+}
+
+Irssi::signal_add('message public', \&expand_message_public);
+Irssi::signal_add('message private', \&expand_message_private);
+Irssi::signal_add('message part', \&expand_part);
+Irssi::signal_add('message quit', \&expand_quit);
+Irssi::signal_add('message kick', \&expand_kick);
+Irssi::signal_add('message topic', \&expand_topic);
+Irssi::signal_add('message irc action', \&expand_message_public);
+Irssi::signal_add('message irc notice', \&expand_message_public);