--- /dev/null
+<(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";
+