Re: DOCBOOK-APPS: Providing separate title pages for chapters ...

[Richard Sharpe <sharpe at ns dot aus dot com>]

Richard Sharpe wrote:

> Hi,
> 
> I would like to allow for each chapter to have their own title pages.
> 
> I suggest that an empty function be defined and called in dbcompon.dsl 
> in the functions that handle chapters.
> 
> This will allow us to override the empty function in our customization 
> layer to do exactly what we want ...

Attached is a patch for DSSSL-1.70 that does exactly that. It has been 
tested and works.

Regards
-------
Richard Sharpe, rsharpe@ns.aus.com, LPIC1
www.samba.org, www.ethereal.com, SAMS Teach Yourself Samba
in 24 Hours, Special Edition, Using Samba
--- dbcompon.dsl.orig	Mon Jul  2 00:55:18 2001
+++ dbcompon.dsl	Mon Jul  2 00:56:17 2001
@@ -205,27 +205,32 @@
 	   (page-outer-footer gi)
 	   (page-inner-footer gi)))))
 
+(define (make-title-page)
+  (empty-sosofo))
+
 (define ($component$)
-  (make simple-page-sequence
-    page-n-columns: %page-n-columns%
-    page-number-restart?: (or %page-number-restart% 
-			      (book-start?) 
-			      (first-chapter?))
-    page-number-format: ($page-number-format$)
-    use: default-text-style
-    left-header:   ($left-header$)
-    center-header: ($center-header$)
-    right-header:  ($right-header$)
-    left-footer:   ($left-footer$)
-    center-footer: ($center-footer$)
-    right-footer:  ($right-footer$)
-    start-indent: %body-start-indent%
-    input-whitespace-treatment: 'collapse
-    quadding: %default-quadding%
-    (make sequence
-      ($component-title$)
-      (process-children))
-    (make-endnotes)))
+  (make sequence
+    (make-title-page)
+    (make simple-page-sequence
+      page-n-columns: %page-n-columns%
+      page-number-restart?: (or %page-number-restart% 
+				(book-start?) 
+				(first-chapter?))
+      page-number-format: ($page-number-format$)
+      use: default-text-style
+      left-header:   ($left-header$)
+      center-header: ($center-header$)
+      right-header:  ($right-header$)
+      left-footer:   ($left-footer$)
+      center-footer: ($center-footer$)
+      right-footer:  ($right-footer$)
+      start-indent: %body-start-indent%
+      input-whitespace-treatment: 'collapse
+      quadding: %default-quadding%
+      (make sequence
+	($component-title$)
+	(process-children))
+      (make-endnotes))))
 
 (define ($component-title$)
   (let* ((info (cond