]> ;; 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) (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 (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 (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 nice look systems 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) ) ) ) ;; 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")))