-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;
+print "<ul>\n";
+
+for my $system (qw'msn yahoo') {
+ my @info = do "emoji-$system.inc.pl";
+ printf '<div class="section"><h3>%s</h3>'."\n\n", $system;
+ print '<table><tbody>'."\n";
+ for (my $i = 0; $i <= $#info; $i++) {
+ my $name = $info[$i];
+ unless (ref $info[$i+1] eq 'ARRAY') {
+ printf '</table><table><tbody>'."\n", $name;
+ next;
+ }
+ my ($input, $attr, $char, $desc) = @{ $info[++$i] };
+ printf('<tr><th><img src="'.$ICONURL{$system}.'"><td><kbd>%s</kbd><td>%s%s'."\n",
+ $name, EscapeHTML($input), $desc // $name, $char ? '<td>'.chr($char) : '',
+ );