revert html5 elements usage
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 31 Dec 2009 17:11:21 +0000 (17:11 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 31 Dec 2009 17:11:21 +0000 (17:11 +0000)
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)].

base.css
charset.plp
common.inc.plp
index.plp
red.css
termcol.plp
unicode.plp

index b22c038..139c94c 100644 (file)
--- a/base.css
+++ b/base.css
@@ -36,22 +36,19 @@ hr {
        margin: 0;
 }
 
-section {
-       display: block;
-}
-section ul {
+.section ul {
        margin-bottom: 1ex;
 }
-section h2 {
+.section h2 {
        margin: 0 1ex;
        clear: both;
 }
-section table {
+.section table {
        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 */
 }
 
@@ -61,10 +58,10 @@ p {
 p.aside {
        font-size: 80%;
 }
-footer p {
+p.footer {
        margin: 1em 0 0;
 }
-.help + footer p {
+.help + .footer {
        margin: 0;
 }
 
@@ -244,7 +241,7 @@ table.glyphs.dimap {
 .diinfo {
        -moz-column-width: 24em;
 }
-.diinfo > section {
+.diinfo > div {
        overflow: hidden;
 }
 
index e84ae82..e2b2e27 100644 (file)
@@ -99,7 +99,7 @@ for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#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}) {
@@ -144,7 +144,7 @@ for my $row (@request) {
                }
                print "\n";
        }
-       print "</table></section>\n";
+       print "</table></div>\n";
 }
 
 :>
index e48cd2c..fb1d54a 100644 (file)
@@ -57,7 +57,6 @@ sub Html {
        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' ? '•' : ' -- ';
@@ -66,7 +65,8 @@ sub Html {
        # leading output
        $header{content_type} = "text/html; charset=$meta->{charset}";
        print <<"EOT";
-<!DOCTYPE HTML>
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+ "http://www.w3.org/TR/html4/loose.dtd">
 <html lang="en">
 
 <head>
@@ -76,14 +76,14 @@ sub Html {
 <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";
-<footer><p>
+<p class="footer">
        <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"
@@ -91,7 +91,7 @@ EOT
        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>
-</p></footer>
+</p>
 
 </html>
 EOT
index 1a48c15..839392d 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -23,7 +23,7 @@ Originally created by Mischa <span style="font-variant:small-caps">Poslawsky</sp
 but you're free to use, print, alter, and redistribute under the AGPL license.
 </p>
 
-<section>
+<div class="section">
 <h2>Keyboard maps</h2>
 <ul>
 <li><a href="/readline">readline</a>
@@ -33,22 +33,22 @@ but you're free to use, print, alter, and redistribute under the AGPL license.
 <li><a href="/nethack">nethack</a>
 <li><a href="/mplayer">mplayer</a>
 </ul>
-</section>
+</div>
 
-<section>
+<div class="section">
 <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>
-</section>
+</div>
 
-<section>
+<div class="section">
 <h2>Other references</h2>
 <ul>
 <li><a href="/countries">country codes</a>
 <li><a href="/termcol">terminal colours</a>
 </ul>
-</section>
+</div>
 
diff --git a/red.css b/red.css
index fabe9a6..e953f5b 100644 (file)
--- a/red.css
+++ b/red.css
@@ -20,7 +20,7 @@ h1 {
 h2, caption {
        text-shadow: #F00 0 0 1em, #F00 0 0 1ex;
 }
-footer p {
+p.footer {
        border: 1px dashed #600;
        border-width: 1px 0 0;
        margin-top: 1.5em;
index ad6ae77..4b91032 100644 (file)
@@ -18,7 +18,7 @@ use List::Util 'min';
 :>
 <h1>Terminal colours</h1>
 
-<section>
+<div class="section">
 <:
 sub luminance {
        # perceived brightness (using ITU-R recommendation 601 luma co-efficients)
@@ -83,11 +83,11 @@ for my $term (qw/html cga xterm tango/) {
        }
        print "</table>\n\n";
 }
-:></section>
+:></div>
 
 <hr>
 
-<section>
+<div class="section">
 <h2>88-colour space</h2>
 <:
 for my $r (0 .. 3) {
@@ -107,11 +107,11 @@ print '<table><tr>';
 print colcell(80+$_, (($_ + 2 + ($_>0)) * 255/11) x 3) for 0 .. 7;
 print "</table>\n\n";
 
-:></section>
+:></div>
 <: if ($ENV{PATH_INFO} =~ /256/) { :>
 <hr>
 
-<section>
+<div class="section">
 <h2>256-colour space</h2>
 <:
 for my $r (0 .. 5) {
@@ -134,7 +134,7 @@ for my $row (0, 12) {
 }
 print "\n";
 
-:></section>
+:></div>
 <: } :>
 <hr>
 
index a2e834a..4a6856e 100644 (file)
@@ -119,11 +119,11 @@ sub glyph_table {
 
 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($_);
                }
-               print '</section>';
+               print '</div>';
        }
 }