perl: common styling for release date side notes

diff --git a/base.css b/base.css
index c231fe1fb0619827d2b54c7e7e2d3f273e4e1f9f..185fdace82f879772b29d3662c1d1b01d8ae443a 100644 (file)
--- a/base.css
+++ b/base.css
@@ -85,6 +85,11 @@ ul {
        text-align: left;
 }
 
        text-align: left;
 }
 

+h2 small {
+       position: absolute; /* side note; do not influence alignment */
+       margin-left: 1em;
+}
+

 dl > dt {
        float: left;
        width: 50%;
 dl > dt {
        float: left;
        width: 50%;

diff --git a/perl.plp b/perl.plp
index 9cb834832467d0175b2112200f51f6857a0aec49..7b230383a50c813afb4394dd2647da5b4fd706f4 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -25,7 +25,7 @@ my $info = do 'perl.inc.pl' or die $@ // $!;
 for my $vernum (reverse sort keys %{$info}) {
        my $verrow = $info->{$vernum};
        print '<div class="section">'."\n";
 for my $vernum (reverse sort keys %{$info}) {
        my $verrow = $info->{$vernum};
        print '<div class="section">'."\n";

-       printf '<h2>%vd <small style="position:absolute; margin-left:1em">%s</small></h2><dl>'."\n", $vernum, $verrow->{release};
+       printf '<h2>%vd <small>%s</small></h2><dl>'."\n", $vernum, $verrow->{release};

        printf '<dt>%s<dd>%s', @{$_}, '<br/>' for @{ $verrow->{new} };
        printf '<dt>Unicode</dt><dd>v%s', $_ for $verrow->{unicode} || ();
        print "</dl>\n";
        printf '<dt>%s<dd>%s', @{$_}, '<br/>' for @{ $verrow->{new} };
        printf '<dt>Unicode</dt><dd>v%s', $_ for $verrow->{unicode} || ();
        print "</dl>\n";