emoji: list systems by section divs
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 13 Jul 2010 20:58:16 +0000 (22:58 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Wed, 10 Nov 2010 21:40:55 +0000 (22:40 +0100)
base.css
emoji.plp

index 41742e337423134065b54d50a664898e9be2474a..70a4429063484fc8178851d18f26fa49b00fd7f0 100644 (file)
--- a/base.css
+++ b/base.css
@@ -48,6 +48,9 @@ hr {
        position: relative; /* prevents buggy hovering in table if caption present in gecko */
        margin: 1ex 1ex 2ex;
 }
        position: relative; /* prevents buggy hovering in table if caption present in gecko */
        margin: 1ex 1ex 2ex;
 }
+.section .section {
+       float: left;
+}
 #charset .section table {
        margin: -0.5ex 0 1ex; /* headers provide sufficient spacing already */
 }
 #charset .section table {
        margin: -0.5ex 0 1ex; /* headers provide sufficient spacing already */
 }
index 60aaf0d7491aea0713fd852b7fa749b28f983f78..68c1ec25df67fdc28b305c22718ca615a8505d91 100644 (file)
--- a/emoji.plp
+++ b/emoji.plp
@@ -18,7 +18,7 @@ Html({
 <h1>IM emoticons</h1>
 
 <:
 <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";
 
 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} || ();
 
        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><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 "</table></div>\n\n";
 }
 
-print "</ul><hr>\n\n";
+print "</div><hr>\n\n";