From 972c9e85bb82289826b99c961689c32bd06a270a Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 19 Oct 2004 15:40:38 +0000
Subject: [PATCH] Rely on the style sheet more for the distutils markup.

---
 Doc/html/style.css      | 13 +++++++++++++
 Doc/perl/distutils.perl | 10 +++++-----
 2 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/Doc/html/style.css b/Doc/html/style.css
index 33a1380259..f7a19df9f1 100644
--- a/Doc/html/style.css
+++ b/Doc/html/style.css
@@ -150,6 +150,19 @@ div.note .label         { margin-right: 0.5em;
 .availability .platform { font-weight: bold; }
 
 
+/*
+ * 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.
  */
diff --git a/Doc/perl/distutils.perl b/Doc/perl/distutils.perl
index 0bcd6ee957..afc2e4aec4 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.
-- 
2.40.0