margin: 0;
}
h2, caption {
- font-size: 125%;
+ font-size: 110%;
font-weight: bold;
}
caption {
margin: 0;
}
-.diinfo h2 {
+.section h2 {
margin: 0 1ex;
clear: both;
- font-size: 110%;
- text-align: left;
+}
+.section table {
+ float: left;
+ position: relative; /* prevents buggy hovering in table if caption present in gecko */
+ margin: 1ex 1ex 2ex;
+}
+#charset .section table {
+ margin: -0.5ex 0 1ex; /* headers provide sufficient spacing already */
}
p {
/* tables */
-li table {
- float: left;
- position: relative; /* prevents buggy hovering if table-caption present in gecko */
-}
-
table {
border-collapse: collapse;
}
overflow: hidden;
}
-.diinfo table.glyphs {
- margin: 1ex 1ex 2ex;
- float: left;
-}
-
/* glyph cell overlay (digraph labels) */
.glyphs.dilabel td {
<link rel="stylesheet" type="text/css" media="all" href="/base.css">
</head>
-<body>
+<body id="charset">
<h1>Character encoding</h1>
<:
return $_;
}
-print "<ul>\n";
-
my @nibble = (0..9, 'A'..'F');
for my $row (@request) {
- printf '<li><table class="glyphs%s">', !$row->{cell} && ' charmap';
+ printf '<div class="section"><table class="glyphs%s">', !$row->{cell} && ' charmap';
printf '<caption>%s</caption>', $row->{set};
print '<col>' x 17;
for my $section (qw{thead}) {
}
print "\n";
}
- print "</table>\n";
+ print "</table></div>\n";
}
-print "</ul>\n";
-
:>
<hr>
<body id="colour">
<h1>Terminal colours</h1>
-<ul>
+<div class="section">
<:
sub luminance {
# perceived brightness (using ITU-R recommendation 601 luma co-efficients)
);
for my $term (qw/html cga xterm tango/) {
- print '<li>', "\n";
print '<table>', "\n";
print "<caption>$term</caption>\n";
for my $num (0 .. 15) {
print '<tr>',
colcell($col{"-$term"}[$num] || $num, $rgb, $col{$term}[0]);
}
- print "</table></li>\n\n";
+ print "</table>\n\n";
}
-:></ul>
+:></div>
<hr>
-<h2>88-colour space</h2><ul>
+
+<div class="section">
+<h2>88-colour space</h2>
<:
for my $r (0 .. 3) {
- print '<li><table>';
+ print '<table>';
for my $g (0 .. 3) {
print '<tr>';
for my $b (0 .. 3) {
}
print "\n";
-print '<li><table><tr>';
+print '<table><tr>';
print colcell(80, ($_) x 3) for 46, 92, 115, 139, 162, 185, 208, 231;
print "</table>\n\n";
-:></ul>
+:></div>
<hr>
-<h2>256-colour space</h2><ul>
+
+<div class="section">
+<h2>256-colour space</h2>
<:
for my $r (0 .. 5) {
- print '<li><table>';
+ print '<table>';
for my $g (0 .. 5) {
print '<tr>';
for my $b (0 .. 5) {
print "\n";
for my $row (0, 12) {
- print '<li><table><tr>';
+ print '<table><tr>';
print colcell(232+$_, ($_*10 + 8) x 3) for $row .. $row+11;
print "</table>\n";
}
print "\n";
-:></ul>
+:></div>
<hr>
sub print_glyph_tables {
while (@_) {
- printf "<div><h2>%s</h2>\n\n", shift;
+ printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
while (ref $_[0] and $_ = shift) {
print glyph_table($_);
}