Breaks styling in MSIE upto version 8 (hurray). Not worth it (yet) as
classes are nearly as descriptive.
Completely reverts
v1.2-135-g9a4d896 [use html5 elements (section, footer)].
-section {
- display: block;
-}
-section ul {
margin: 0 1ex;
clear: both;
}
margin: 0 1ex;
clear: both;
}
float: left;
position: relative; /* prevents buggy hovering in table if caption present in gecko */
margin: 1ex 1ex 2ex;
}
float: left;
position: relative; /* prevents buggy hovering in table if caption present in gecko */
margin: 1ex 1ex 2ex;
}
-#charset section table {
+#charset .section table {
margin: -0.5ex 0 1ex; /* headers provide sufficient spacing already */
}
margin: -0.5ex 0 1ex; /* headers provide sufficient spacing already */
}
p.aside {
font-size: 80%;
}
p.aside {
font-size: 80%;
}
.diinfo {
-moz-column-width: 24em;
}
.diinfo {
-moz-column-width: 24em;
}
my @nibble = (0..9, 'A'..'F');
for my $row (@request) {
my @nibble = (0..9, 'A'..'F');
for my $row (@request) {
- printf '<section><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}) {
printf '<caption>%s</caption>', $row->{set};
print '<col>' x 17;
for my $section (qw{thead}) {
- print "</table></section>\n";
+ print "</table></div>\n";
ref $_ eq 'ARRAY' and $_ = join ' ', @$_ for $meta->{description};
ref $_ eq 'ARRAY' and $_ = join ', ', @$_ for $meta->{keywords};
ref $_ eq 'ARRAY' and $_ = join "\n", @$_ for $meta->{rawstyle}, $meta->{raw};
ref $_ eq 'ARRAY' and $_ = join ' ', @$_ for $meta->{description};
ref $_ eq 'ARRAY' and $_ = join ', ', @$_ for $meta->{keywords};
ref $_ eq 'ARRAY' and $_ = join "\n", @$_ for $meta->{rawstyle}, $meta->{raw};
- ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet};
# other vars
my $sep = $meta->{charset} eq 'utf-8' ? '•' : ' -- ';
# other vars
my $sep = $meta->{charset} eq 'utf-8' ? '•' : ' -- ';
# leading output
$header{content_type} = "text/html; charset=$meta->{charset}";
print <<"EOT";
# leading output
$header{content_type} = "text/html; charset=$meta->{charset}";
print <<"EOT";
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+ "http://www.w3.org/TR/html4/loose.dtd">
<meta name="keywords" content="$meta->{keywords}">
<link rel="icon" type="image/png" href="/clip.png">
EOT
<meta name="keywords" content="$meta->{keywords}">
<link rel="icon" type="image/png" href="/clip.png">
EOT
- print $_, "\n" for $meta->{stylesheet} || ();
+ print stylesheet(@$_), "\n" for $meta->{stylesheet} || ();
print $_, "\n" for $meta->{raw} || ();
print qq{</head>\n\n<body id="$file">\n};
# prepare trailing output
PLP_END {
print <<"EOT";
print $_, "\n" for $meta->{raw} || ();
print qq{</head>\n\n<body id="$file">\n};
# prepare trailing output
PLP_END {
print <<"EOT";
<a href="/" rel="home">sheet.shiar.nl</a>/$file.<a href="/source/$file.plp"
rel="code" title="Written in Perl">plp</a>
<a href="http://git.shiar.nl/sheet.git/history/HEAD:/$file.plp"
<a href="/" rel="home">sheet.shiar.nl</a>/$file.<a href="/source/$file.plp"
rel="code" title="Written in Perl">plp</a>
<a href="http://git.shiar.nl/sheet.git/history/HEAD:/$file.plp"
created by <a href="http://shiar.nl/" rel="author">Shiar</a> $sep
<a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="copyright"
title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
created by <a href="http://shiar.nl/" rel="author">Shiar</a> $sep
<a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="copyright"
title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
but you're free to use, print, alter, and redistribute under the AGPL license.
</p>
but you're free to use, print, alter, and redistribute under the AGPL license.
</p>
<h2>Keyboard maps</h2>
<ul>
<li><a href="/readline">readline</a>
<h2>Keyboard maps</h2>
<ul>
<li><a href="/readline">readline</a>
<li><a href="/nethack">nethack</a>
<li><a href="/mplayer">mplayer</a>
</ul>
<li><a href="/nethack">nethack</a>
<li><a href="/mplayer">mplayer</a>
</ul>
<h2>Unicode characters</h2>
<ul>
<li><a href="/charset">charsets</a>
<li><a href="/unicode">common glyphs</a>
<li><a href="/digraphs">digraphs</a>
</ul>
<h2>Unicode characters</h2>
<ul>
<li><a href="/charset">charsets</a>
<li><a href="/unicode">common glyphs</a>
<li><a href="/digraphs">digraphs</a>
</ul>
<h2>Other references</h2>
<ul>
<li><a href="/countries">country codes</a>
<li><a href="/termcol">terminal colours</a>
</ul>
<h2>Other references</h2>
<ul>
<li><a href="/countries">country codes</a>
<li><a href="/termcol">terminal colours</a>
</ul>
h2, caption {
text-shadow: #F00 0 0 1em, #F00 0 0 1ex;
}
h2, caption {
text-shadow: #F00 0 0 1em, #F00 0 0 1ex;
}
border: 1px dashed #600;
border-width: 1px 0 0;
margin-top: 1.5em;
border: 1px dashed #600;
border-width: 1px 0 0;
margin-top: 1.5em;
:>
<h1>Terminal colours</h1>
:>
<h1>Terminal colours</h1>
<:
sub luminance {
# perceived brightness (using ITU-R recommendation 601 luma co-efficients)
<:
sub luminance {
# perceived brightness (using ITU-R recommendation 601 luma co-efficients)
}
print "</table>\n\n";
}
}
print "</table>\n\n";
}
<h2>88-colour space</h2>
<:
for my $r (0 .. 3) {
<h2>88-colour space</h2>
<:
for my $r (0 .. 3) {
print colcell(80+$_, (($_ + 2 + ($_>0)) * 255/11) x 3) for 0 .. 7;
print "</table>\n\n";
print colcell(80+$_, (($_ + 2 + ($_>0)) * 255/11) x 3) for 0 .. 7;
print "</table>\n\n";
<: if ($ENV{PATH_INFO} =~ /256/) { :>
<hr>
<: if ($ENV{PATH_INFO} =~ /256/) { :>
<hr>
<h2>256-colour space</h2>
<:
for my $r (0 .. 5) {
<h2>256-colour space</h2>
<:
for my $r (0 .. 5) {
sub print_glyph_tables {
while (@_) {
sub print_glyph_tables {
while (@_) {
- printf '<section><h2>%s</h2>'."\n\n", shift;
+ printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
while (ref $_[0] and $_ = shift) {
print glyph_table($_);
}
while (ref $_[0] and $_ = shift) {
print glyph_table($_);
}