[PATCH] Add support for address@hidden'

[Ludovic Courtès]

Hi,

The attached patch adds support for address@hidden'---guess
what it does.  ;-)  It does so using address@hidden', which does not seem to 
pose
any problem.

Thanks,
Ludovic.

diff --git a/include/book b/include/book
index 401fc51..0df1670 100644
--- a/include/book
+++ b/include/book
@@ -43,6 +43,7 @@
   # @InitialSpace      { lout                  } # initial space style
   # @InitialLanguage   { English               } # initial language
   # @InitialColour     { black                 } # initial colour
+  # @InitialBackgroundColour   { white         } # initial background colour
   # @OptimizePages     { No                    } # optimize page breaks?
   # @HeadingFont       { Bold                  } # font for @Heading
   # @FixedWidthFont    { Courier Base -1p      } # font for @F
diff --git a/include/bsf b/include/bsf
index b2ca24a..52fc5b3 100644
--- a/include/bsf
+++ b/include/bsf
@@ -263,6 +263,7 @@ def @BasicSetup
     named @InitialSpace          { lout                } # initial space style
     named @InitialLanguage{ English            } # initial language
     named @InitialColour  { black              } # initial colour
+    named @InitialBackgroundColour { white     } # initial background colour
     named @OptimizePages  { No                 } # optimize page breaks?
     named @HeadingFont   { Bold                } # font for @Heading
     named @FixedWidthFont { Courier Base -1p   } # font for @F
diff --git a/include/doc b/include/doc
index c5e9d65..5911b99 100644
--- a/include/doc
+++ b/include/doc
@@ -44,6 +44,7 @@
   # @InitialSpace      { lout                  } # initial space style
   # @InitialLanguage   { English               } # initial language
   # @InitialColour     { black                 } # initial colour
+  # @InitialBackgroundColour   { white         } # initial background colour
   # @OptimizePages     { No                    } # optimize page breaks?
   # @HeadingFont       { Bold                  } # font for @Heading
   # @FixedWidthFont    { Courier Base -1p      } # font for @F
diff --git a/include/dsf b/include/dsf
index ae05e7d..ca519f8 100644
--- a/include/dsf
+++ b/include/dsf
@@ -874,12 +874,20 @@ def @DocumentSetup
        } @Graphic x
     }
 
+    def @ColouriseBackground left color right x
+    {
+      color @Colour
+      @Box margin { 0c } paint { color } linewidth { 0c }
+      @InitialColour @Colour x
+    }
+
     def @OddPage
        left extra
        named @Orient {}
        right x
     {
        @PageSet
+       @InitialBackgroundColour @ColouriseBackground
        { @OrientationAngle @Orient } @Rotate
        { @OrientedWidth @Orient } @Wide { @OrientedHeight @Orient } @High
        {   //@TopMargin ||@OddLeftMargin
@@ -896,6 +904,7 @@ def @DocumentSetup
        right x
     {
        @PageSet
+       @InitialBackgroundColour @ColouriseBackground
        { @OrientationAngle @Orient } @Rotate
        { @OrientedWidth @Orient } @Wide { @OrientedHeight @Orient } @High
        {   //@TopMargin ||@EvenLeftMargin
diff --git a/include/picture b/include/picture
index 006dece..bd23a89 100644
--- a/include/picture
+++ b/include/picture
@@ -44,6 +44,7 @@
   # @InitialSpace      { lout                  } # initial space style
   # @InitialLanguage   { English               } # initial language
   # @InitialColour     { black                 } # initial colour
+  # @InitialBackgroundColour   { white         } # initial background colour
   # @OptimizePages     { No                    } # optimize page breaks?
   # @HeadingFont       { Bold                  } # font for @Heading
   # @FixedWidthFont    { Courier Base -1p      } # font for @F
diff --git a/include/report b/include/report
index a0b82c0..7b2c3ee 100644
--- a/include/report
+++ b/include/report
@@ -48,6 +48,7 @@
   # @InitialSpace      { lout                  } # initial space style
   # @InitialLanguage   { English               } # initial language
   # @InitialColour     { black                 } # initial colour
+  # @InitialBackgroundColour   { white         } # initial background colour
   # @OptimizePages     { No                    } # optimize page breaks?
   # @HeadingFont       { Bold                  } # font for @Heading
   # @FixedWidthFont    { Courier Base -1p      } # font for @F
diff --git a/include/slides b/include/slides
index 91886ba..a6b0788 100644
--- a/include/slides
+++ b/include/slides
@@ -46,6 +46,7 @@
   # @InitialSpace      { lout                  } # initial space style
   # @InitialLanguage   { English               } # initial language
   # @InitialColour     { black                 } # initial colour
+  # @InitialBackgroundColour   { white         } # initial background colour
   # @OptimizePages     { No                    } # optimize page breaks?
   # @HeadingFont       { Bold                  } # font for @Heading
   # @FixedWidthFont    { Courier Base -1p      } # font for @F