Rely on the style sheet more for the distutils markup.
diff --git a/Doc/html/style.css b/Doc/html/style.css
index 33a1380..f7a19df 100644
--- a/Doc/html/style.css
+++ b/Doc/html/style.css
@@ -151,6 +151,19 @@
/*
+ * Additional styles for the distutils package.
+ */
+.du-command { font-family: monospace; }
+.du-option { font-family: avantgarde, sans-serif; }
+.du-filevar { font-family: avantgarde, sans-serif;
+ font-style: italic; }
+.du-xxx:before { content: "** ";
+ font-weight: bold; }
+.du-xxx:after { content: " **";
+ font-weight: bold; }
+
+
+/*
* Some specialization for printed output.
*/
@media print {
diff --git a/Doc/perl/distutils.perl b/Doc/perl/distutils.perl
index 0bcd6ee..afc2e4a 100644
--- a/Doc/perl/distutils.perl
+++ b/Doc/perl/distutils.perl
@@ -3,19 +3,19 @@
package main;
sub do_cmd_command {
- return use_wrappers(@_[0], '<code>', '</code>');
+ return use_wrappers(@_[0], '<code class="du-command">', '</code>');
}
sub do_cmd_option {
- return use_wrappers(@_[0], '<font face="sans-serif">', '</font>');
+ return use_wrappers(@_[0], '<span class="du-option">', '</span>');
}
sub do_cmd_filevar {
- return use_wrappers(@_[0], '<font face="sans-serif"><i>', '</i></font>');
+ return use_wrappers(@_[0], '<span class="du-filevar">', '</span>');
}
sub do_cmd_XXX {
- return use_wrappers(@_[0], '<b>** ', ' **</b>');
+ return use_wrappers(@_[0], '<b class="du-xxx">', '</b>');
}
-1;
+1; # Bad Perl.