emoji: page listing msn emoticon i/o and unicode equivalents

[sheet.git] / emoji.plp

diff --git a/emoji.plp b/emoji.plp
new file mode 100644 (file)
index 0000000..2bb0b9a
--- /dev/null
+++ b/emoji.plp
@@ -0,0 +1,34 @@
+<(common.inc.plp)><:
+
+Html({
+       title => 'emoji cheat sheet',
+       version => 'v1.0',
+       description => [
+               "MSN emoticons",
+       ],
+       keywords => [qw'
+               sheet cheat emoticon smiley emoji msn
+       '],
+       stylesheet => [qw'light dark red'],
+});
+
+:>
+<h1>MSN emoticons</h1>
+
+<:
+my @info = do 'emoji.inc.pl' or die $@;
+my $MSNURL = '<img src="http://messenger.msn.com/Resource/emoticons/%s.gif">';
+
+print '<table class="glyphs"><tbody>'."\n";
+for (my $i = 0; $i <= $#info; $i++) {
+       my $name = $info[$i++];
+       my ($input, $char, $desc) = @{ $info[$i] };
+       if ($char < 0) {
+               # inexact
+               $char = -$char;
+       }
+       printf "<tr><th>%s<td><kbd>%s</kbd><td>$MSNURL<td>%s\n",
+               $name, EscapeHTML($input), $desc, chr($char);
+}
+print "</table>\n";
+