From 90f76caa2008d1a07484ee43f141718fdadbf1a7 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 13 Jul 2010 22:58:16 +0200
Subject: [PATCH] emoji: list systems by section divs

---
 base.css  | 3 +++
 emoji.plp | 6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/base.css b/base.css
index 41742e3..70a4429 100644
--- 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;
 }
+.section .section {
+	float: left;
+}
 #charset .section table {
 	margin: -0.5ex 0 1ex; /* headers provide sufficient spacing already */
 }
diff --git a/emoji.plp b/emoji.plp
index 60aaf0d..68c1ec2 100644
--- 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";
 
-- 
2.30.0