Push more of the display control into the style sheet.
diff --git a/Doc/html/style.css b/Doc/html/style.css
index bde3ce0..0bdda92 100644
--- a/Doc/html/style.css
+++ b/Doc/html/style.css
@@ -27,6 +27,13 @@
* the normal text size.
*/
+body { color: #000000;
+ background-color: #ffffff; }
+
+a:active { color: #ff0000; }
+a:visited { color: #551a8b; }
+a:link { color: #0000bb; }
+
h1, h2, h3, h4, h5, h6 { font-family: avantgarde, sans-serif;
font-weight: bold }
h1 { font-size: 180% }
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index d78efc8..b551158 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -26,8 +26,7 @@
$AUTO_NAVIGATION = 0;
# these exactly match the python.org colors
-$BODYTEXT = ('bgcolor="#ffffff" text="#000000"'
- . ' link="#0000bb" vlink="#551a8b" alink="#ff0000"');
+$BODYTEXT = '';
$CHILDLINE = "\n<p><hr>\n";
$VERBOSITY = 0;
@@ -506,6 +505,7 @@
# content of the page.
sub make_head_and_body {
my($title, $body) = @_;
+ $body = " $body" unless ($body eq '');
my $DTDcomment = '';
my($version, $isolanguage) = ($HTML_VERSION, 'EN');
my %isolanguages = ( 'english', 'EN' , 'USenglish', 'EN.US'
@@ -541,7 +541,7 @@
, ($BASE ? "<base href=\"$BASE\">\n" : "" )
, "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">"
, $more_links_mark
- , "\n</head>\n<body $body>\n");
+ , "\n</head>\n<body$body>");
}
1; # This must be the last line