[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]
Subject: Re: DOCBOOK-APPS: Providing separate title pages for chapters ...
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
[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]
Powered by eList eXpress LLC