X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/de59372b51cfb0d344257ae0287ce344abcdda77..7e61bf43e629fb11d22bebfd4b31226fdea31651:/emoji.plp

diff --git a/emoji.plp b/emoji.plp
new file mode 100644
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";
+