PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>

  PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>

]>

<style-sheet>

<style-specification id="print" use="print-stylesheet">

<style-specification-body> 

;; This draws in version 1.74b of the module docbook DSSSL stylesheets

;; together with sourceforge patch #502637

;; customize the print stylesheet

(define %hsize-bump-factor% 1.1)

(define %chapter-autolabel%

  ;; Are chapters enumerated?

  #f)

(define %two-side% #t)

;;

;; We are targeting pdfjadetex - and converting from PDF to postscript

;; We need to make sure that .pdf images (actually .epdf) are preferred

;; over others

(define %graphic-extensions%

;; List of graphic filename extensions

'("pdf" "eps" "epsf" "gif" "tif" "tiff" "jpg" "jpeg" "png"))

(define preferred-mediaobject-notations

  (list "PDF" "EPS" "PS" "JPG" "JPEG" "PNG" "linespecific"))

(define preferred-mediaobject-extensions

  (list "pdf" "eps" "ps" "jpg" "jpeg" "png"))

(define %titlepage-in-info-order% #f)

;; Fix bug in numbering of the preface

;;

;; ISC: 23/11/02 - I think this is in version 1.76 of the stylesheets

;; but I will leave it here for now

      (define ($component$)

        (make simple-page-sequence

          page-n-columns: %page-n-columns%

          page-number-restart?: (or %page-number-restart%

                                    (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)))

;; Customise the title page

;;

;; We want to choose the items to go on the page, the placement of them

;; and the font. We want a logo in the bottom right hand corner

;; And a nice thick rule above the title.

;;

(element book 

  (let* ((bookinfo  (select-elements (children (current-node)) 

				     (normalize "bookinfo")))

	 (dedication (select-elements (children (current-node)) 

				      (normalize "dedication")))

	 (nl        (titlepage-info-elements (current-node) bookinfo)))

    (make sequence

      (if %generate-book-titlepage%

	  (make simple-page-sequence

	    page-n-columns: %titlepage-n-columns%

	    input-whitespace-treatment: 'collapse

	    use: default-text-style

		bottom-margin: 144pt

		right-footer: ($title-right-footer$)

	    (book-titlepage nl 'recto)

	    (make display-group

	      break-before: 'page

	      (book-titlepage nl 'verso)))

	  (empty-sosofo))

      (if (node-list-empty? dedication)

	  (empty-sosofo)

	  (with-mode dedication-page-mode

	    (process-node-list dedication)))

      (if (not (generate-toc-in-front))

	  (process-children)

	  (empty-sosofo))

      (if %generate-book-toc%

	  (make simple-page-sequence

	    page-n-columns: %page-n-columns%

	    page-number-format: ($page-number-format$ (normalize "toc"))

	    use: default-text-style

	    left-header:   ($left-header$ (normalize "toc"))

	    center-header: ($center-header$ (normalize "toc"))

	    right-header:  ($right-header$ (normalize "toc"))

	    left-footer:   ($left-footer$ (normalize "toc"))

	    center-footer: ($center-footer$ (normalize "toc"))

	    right-footer:  ($right-footer$ (normalize "toc"))

	    input-whitespace-treatment: 'collapse

	    (build-toc (current-node)

		       (toc-depth (current-node))))

	  (empty-sosofo))

      (let loop ((gilist ($generate-book-lot-list$)))

	(if (null? gilist)

	    (empty-sosofo)

	    (if (not (node-list-empty? 

		      (select-elements (descendants (current-node))

				       (car gilist))))

		(make simple-page-sequence

		  page-n-columns: %page-n-columns%

		  page-number-format: ($page-number-format$ (normalize "lot"))

		  use: default-text-style

		  left-header:   ($left-header$ (normalize "lot"))

		  center-header: ($center-header$ (normalize "lot"))

		  right-header:  ($right-header$ (normalize "lot"))

		  left-footer:   ($left-footer$ (normalize "lot"))

		  center-footer: ($center-footer$ (normalize "lot"))

		  right-footer:  ($right-footer$ (normalize "lot"))

		  input-whitespace-treatment: 'collapse

		  (build-lot (current-node) (car gilist))

		  (loop (cdr gilist)))

		(loop (cdr gilist)))))

      (if (generate-toc-in-front)

	  (process-children)

	  (empty-sosofo)))))

(define %openjade-logo%

   ;; The openjade logo

    "logo.png" )

(define ($title-right-footer$)

  (if-first-page

    (make external-graphic

	  scale:               1.0

	  entity-system-id:    %openjade-logo%

	  notation-system-id:  "PDF"

	  display?:            #f)

    (empty-sosofo)))

(define (book-titlepage-recto-elements)

  (list (normalize "corpauthor")

        (normalize "subtitle")

        (normalize "title")

        (normalize "graphic")))

(define (book-titlepage-verso-elements)

  (list (normalize "legalnotice")

        (normalize "copyright")

        (normalize "edition")

        (normalize "pubdate")

        (normalize "abstract")

        (normalize "revhistory")))  

(define (book-titlepage-before node side)

(empty-sosofo)

	)

(mode book-titlepage-recto-mode

    (element graphic

        (make display-group

             (make external-graphic

                 entity-system-id: (attribute-string "fileref")

                 display?:               #t

             )

        )

    )                         

    (element title

        (make paragraph

                font-size:      36pt

                font-family-name:       "Palatino"

                font-weight:    'bold

                space-before:   12pt

		line-spacing:	36pt

                (make rule

			space-after: 4pt

                        line-thickness: 1pt)

                (process-children)

        )                                                                       

    )

    (element subtitle

        (make paragraph

                font-size:      24pt

		line-spacing:	24pt

                font-family-name:       "Palatino"

                font-weight:    'bold

                (process-children)

        )

    ) 

    (element corpauthor

        (make paragraph

                font-size:      24pt

                line-spacing:      24pt

                space-after:   6pt

                font-family-name:       "Palatino"

                font-weight:    'normal

                (process-children)

        )                                                                       

    )

)

</style-specification-body>

</style-specification>

<style-specification id="html" use="html-stylesheet">

<style-specification-body>

;; customize the html stylesheet

;; customize the html stylesheet

(define %body-attr%

  ;; What attributes should be hung off of BODY?

  (list

     (list "BGCOLOR" "#FFFFFF")

     (list "TEXT" "#000000")))

</style-specification-body>

</style-specification>

<external-specification id="print-stylesheet" document="print-ss">

<external-specification id="html-stylesheet"  document="html-ss">

</style-sheet>