<h1>IM emoticons</h1>
<:
-print "<ul>\n";
+print '<div class="section">'."\n";
for my $system (qw'gmail msn yahoo') {
my @info = do "emoji-$system.inc.pl";
my $title = $meta->{name} // $system;
$title = qq{<a href="$_">$title</a>} for $meta->{source} || ();
- printf '<div class="section"><h3>%s</h3>'."\n\n", $meta->{name} // $system;
+ printf '<div class="section"><h2>%s</h2>'."\n\n", $meta->{name} // $system;
print '<table><tbody>'."\n";
for (my $i = 0; $i <= $#info; $i++) {
my $name = $info[$i];
print "</table></div>\n\n";
}
-print "</ul><hr>\n\n";
+print "</div><hr>\n\n";