emoji: list systems by section divs

[sheet.git] / emoji.plp

diff --git a/emoji.plp b/emoji.plp
index 60aaf0d7491aea0713fd852b7fa749b28f983f78..68c1ec25df67fdc28b305c22718ca615a8505d91 100644 (file)
--- a/emoji.plp
+++ b/emoji.plp
@@ -18,7 +18,7 @@ Html({
 <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";
@@ -27,7 +27,7 @@ for my $system (qw'gmail msn yahoo') {
        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];
@@ -46,5 +46,5 @@ for my $system (qw'gmail msn yahoo') {
        print "</table></div>\n\n";
 }
 
-print "</ul><hr>\n\n";
+print "</div><hr>\n\n";