<(common.inc.plp)><: Html({ title => 'emoji cheat sheet', version => 'v1.0', description => [ "Emoticons overview and Unicode equivalents" . " of MSN, Y!M, and Gmail icons.", ], keywords => [qw' sheet cheat emoticon smiley emoji unicode chat im messenger msn yahoo ym gmail google '], stylesheet => [qw'light'], }); :>

IM emoticons

<: print "

$title

%s

'."\n\n", $meta->{name} // $system; print ''."\n"; for (my $i = 0; $i <= $#info; $i++) { my $name = $info[$i]; unless (ref $info[$i+1] eq 'ARRAY') { printf '

'."\n", $name; next; } my ($input, $flags, $char, $desc) = @{ $info[++$i] }; printf('

	`%s`	%s%s'."\n", sprintf($meta->{icon} // '%s', $name), EscapeHTML($name), EscapeHTML($input), $desc // $name, $char ? '	'.chr($char) : '', ); } print "

\n\n";