Rely on the style sheet more for the distutils markup.

2 files changed, 18 insertions, 5 deletions

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 @@ div.note .label         { margin-right: 0.5em;
 
 
 /*
+ * 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.