]]>

]]>

]>

;;#######################################################################

;;#                                                                     #

;;#                 The GNOME Documentation Project's                   #

;;#                  Custion DocBook Stylesheet Layer                   #

;;#                    by Dave Mason dcm@redhat.com                     #

;;#            Based on Norman Walsh's Modular Stylesheets              #

;;#                                                                     #

;;#            This is intended as a drop-in replacement for            #

;;#            the cygnus-both.dsl file in DocBook Tools.               #

;;#           Just copy it to the location dbtools created              #

;;#                   and rename it cygnus-both.dsl                     #

;;#                                                                     #

;;#                       This is Version 1.0-4                         #

;;#                  patched to fix RTF output (#49677)                 #

;;#                patched to work with docbook-dsssl-1.72              #

;;#                 patched for ADDRESS output (#50605)                 #

;;#                      removed comment and remark                     #

;;#                      disabled use-id-as-filename                    #

;;#               don't define %graphic-default-extension%              #

;;#######################################################################

-->

<style-sheet>

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

<style-specification-body> 

;;==========================================================================

;;                               PRINT

;;==========================================================================

;;======================================

;;General Options

;;======================================

;;Do you want to print on both sides of the paper?

(define %two-side% 

 #t)

;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)

(define %section-autolabel% 

 #f)

;;Show URL links? If the text of the link and the URL are identical,

;;the parenthetical URL is suppressed.

(define %show-ulinks%

 #t)

;Make Ulinks footnotes to stop bleeding in the edges - this increases

;'jade --> print' time tremendously keep this in mind before

;complaining!

(define %footnote-ulinks%

  #t)

;;Tex Backend on

(define tex-backend 

 #t)

;;Define Line Spacing

(define %line-spacing-factor% 1.1)

;;Define the Paragraph Style

(define para-style

  (style

   font-size: %bf-size%

   font-weight: 'medium

   font-posture: 'upright

   font-family-name: %body-font-family%

   line-spacing: (* %bf-size% %line-spacing-factor%)))

(define ($object-titles-after$)

  (list (normalize "figure")))

;;======================================

;;Book Options

;;======================================

;;Do you want a title page for a Book?

(define %generate-book-titlepage%

 #t)

;;Do you want a separate page for the title?

(define %generate-book-titlepage-on-separate-page%

 #t)

;;Generate Book TOC?

(define %generate-book-toc% 

 #t)

;;What depth should the TOC generate?

;;!Only top level of appendixes!

(define (toc-depth nd)

  (if (string=? (gi nd) (normalize "book"))

      3

      (if (string=? (gi nd) (normalize "appendix"))

        0

        1)))

;;Do you want a TOC for the element part?

(define %generate-part-toc% 

 #f)

;;Do you want the part toc on the part titlepage or separate?

(define %generate-part-toc-on-titlepage%

 #t)

;;Generate Part Title Page?

(define %generate-part-titlepage% 

  #f)

;;Do you want the Part intro on the part title page?

(define %generate-partintro-on-titlepage%

  #t)

;;What elements should have a LOT?

(define ($generate-book-lot-list$)

  (list (normalize "equation")))

;;Do you want chapters enumerated?

(define %chapter-autolabel% 

 #t)

;;Do you want Chapter's and Appendix's 

;;to have automatic labels?

(define %chap-app-running-head-autolabel% 

  #t)

;;======================================

;;Article Options

;;======================================

;;Do you want a title page for an Article?

(define %generate-article-titlepage%

 #t)

;;Generate Article TOC?

(define %generate-article-toc% 

 #t)

;;Do you want a separate page for the title?

(define %generate-article-titlepage-on-separate-page%

 #t)

;;Do you want the article toc on the titlepage or separate?

(define %generate-article-toc-on-titlepage%

 #t)

;;Do you want to start new page numbers with each article?

(define %article-page-number-restart%

 #f)

;;Titlepage Separate?

(define (chunk-skip-first-element-list)

  '())

;;Titlepage Not Separate

;(define (chunk-skip-first-element-list)

;  (list (normalize "sect1")

;	(normalize "section")))

;;======================================

;;Columns

;;======================================

;;How many columns do you want?

(define %page-n-columns%

 1)

;;How much space between columns?

(define %page-column-sep%

 0.2in)

;;How many Columns on the titlepage?

(define %titlepage-n-columns%

  1)

;;Balance columns?

(define %page-balance-colums%

#t)

;;======================================

;;Fonts

;;======================================

;;Defines the general size of the text in the document. normal(10),

;;presbyopic(12), and large-type(24). 

(define %visual-acuity%

 "normal")

;;What font would you like for titles?

(define %title-font-family% 

  "Helvetica")

;;What font would you like for the body?

(define %body-font-family% 

 "Palatino")

;;What font would you like for mono-seq?

(define %mono-font-family% 

 "Courier New")

;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is

;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc

(define %hsize-bump-factor% 

 1.1)

;;What size do you want the body fonts?

(define %bf-size%

 (case %visual-acuity%

    (("tiny") 8pt)

    (("normal") 10pt)

    (("presbyopic") 12pt)

    (("large-type") 24pt)))

(define-unit em %bf-size%)

;;======================================

;;Margins

;;======================================

(define %left-right-margin% 6pi)

;;How much indentation for the body?

(define %body-start-indent% 

 4pi)

;;How big is the left margin? (relative to physical page)

(define %left-margin% 

 8pi) ;white-paper-column

;;How big is the right margin? (relative to physical page)

(define %right-margin% 

 8pi) ;white-paper-column

;;How big do you want the margin at the top?

(define %top-margin%

(if (equal? %visual-acuity% "large-type")

      7.5pi

      6pi))

;;How big do you want the margin at the bottom?

(define %bottom-margin% 

 (if (equal? %visual-acuity% "large-type")

      7.5pi 

      5pi))

;;Define the text width. (Change the elements in the formula rather

;;than the formula itself)

;(define %text-width% (- %page-width% (* %left-right-margin% 2)))

(define %text-width%  (- %page-width% (+ %left-margin% %right-margin%)))

;;Define the body width. (Change the elements in the formula rather

;;than the formula itself)

(define %body-width% 

 (- %text-width% %body-start-indent%))

;;Define distance between paragraphs

(define %para-sep% 

 (/ %bf-size% 2.0))

;;Define distance between block elements (figures, tables, etc.).

(define %block-sep% 

 (* %para-sep% 2.0))

;;Indent block elements?

(define %block-start-indent% 

  0pt)

;0pt

;;======================================

;;Admon Graphics

;;======================================

;;Do you want admon graohics on?

(define %admon-graphics%

 #f)

;;Where are the admon graphics?

(define %admon-graphics-path%

 "../images/")

;;======================================

;;Quadding

;;======================================

;;What quadding do you want by default; start, center, justify, or end?

(define %default-quadding%

 'justify)

;;What quadding for component titles(Chapter, Appendix, etc)?

(define %component-title-quadding% 

 'start)

;;What quadding for section titles?

(define %section-title-quadding% 

 'start)

;;What quadding for section sub-titles?

(define %section-subtitle-quadding%

 'start)

;;What quadding for article title?

(define %article-title-quadding% 

 'center)

;;What quadding for article sub-titles?

(define %article-subtitle-quadding%

 'center)

;;What quadding for division subtitles?

(define %division-subtitle-quadding% 

  'start)

;;What quadding for component subtitles?

(define %component-subtitle-quadding% 

  'start)

;;======================================

;;Paper Options

;;======================================

;;What size paper do you need? A4, USletter, USlandscape, or RedHat?

(define %paper-type%

 "USletter")

;;Now define those paper types' width

(define %page-width%

 (case %paper-type%

    (("A4") 210mm)

    (("USletter") 8.5in)

    (("USlandscape") 11in)))

;;Now define those paper types' height

(define %page-height%

 (case %paper-type%

    (("A4") 297mm)

    (("USletter") 11in)

    (("USlandscape") 8.5in)))

;;======================================

;;Functions

;;======================================

(define (OLSTEP)

  (case

   (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)

	((1) 1.2em)

	((2) 1.2em)

	((3) 1.6em)

	((0) 1.4em)))

(define (ILSTEP) 1.0em)

(define (PROCSTEP ilvl)

  (if (> ilvl 1) 1.8em 1.4em))

(define (PROCWID ilvl)

  (if (> ilvl 1) 1.8em 1.4em))

(define ($comptitle$)

  (make paragraph

	font-family-name: %title-font-family%

	font-weight: 'bold

	font-size: (HSIZE 2)

	line-spacing: (* (HSIZE 2) %line-spacing-factor%)

	space-before: (* (HSIZE 2) %head-before-factor%)

	space-after: (* (HSIZE 2) %head-after-factor%)

	start-indent: 0pt

	first-line-start-indent: 0pt

	quadding: 'start

	keep-with-next?: #t

	(process-children-trim)))

;;Callouts are confusing in Postscript... fix them.

(define %callout-fancy-bug% 

 #f)

;;By default perils are centered and dropped into a box with a really

;;big border - I have simply decreased the border thickness -

;;unfortunately it takes all this to do it - sigh.

(define ($peril$)

  (let* ((title     (select-elements 

		     (children (current-node)) (normalize "title")))

	 (has-title (not (node-list-empty? title)))

	 (adm-title (if has-title 

			(make sequence

			  (with-mode title-sosofo-mode

			    (process-node-list (node-list-first title))))

			(literal

			 (gentext-element-name 

			  (current-node)))))

	 (hs (HSIZE 2)))

  (if %admon-graphics%

      ($graphical-admonition$)

      (make display-group

	space-before: %block-sep%

	space-after: %block-sep%

	font-family-name: %admon-font-family%

	font-size: (- %bf-size% 1pt)

	font-weight: 'medium

	font-posture: 'upright

	line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)

	(make box

	  display?: #t

	  box-type: 'border

	  line-thickness: .5pt

	  start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)

	  end-indent: (inherited-end-indent)

	  (make paragraph

	    space-before: %para-sep%

	    space-after: %para-sep%

	    start-indent: 1em

	    end-indent: 1em

	    font-family-name: %title-font-family%

	    font-weight: 'bold

	    font-size: hs

	    line-spacing: (* hs %line-spacing-factor%)

	    quadding: 'center

	    keep-with-next?: #t

	    adm-title)

	  (process-children))))))

;;======================================

;;Non-printing Elements

;;======================================

(element TITLEABBREV (empty-sosofo))

(element SUBTITLE (empty-sosofo))

(element SETINFO (empty-sosofo))

(element BOOKINFO (empty-sosofo))

(element BIBLIOENTRY (empty-sosofo))

(element BIBLIOMISC (empty-sosofo))

(element BOOKBIBLIO (empty-sosofo))

(element SERIESINFO (empty-sosofo))

(element DOCINFO (empty-sosofo))

(element ARTHEADER (empty-sosofo))

;;(element ADDRESS (empty-sosofo))

;;Show comment element?

(define %show-comments%

  #t)

;;======================================

;;Formalpara titles

;;======================================

;;Change the way Formal Paragraph titles are displayed. The commented

;;out section will run the titles in the paragraphs. 

(element (formalpara title)

  ;(make sequence

  ;font-weight: 'bold

  ;($runinhead$))

  ($lowtitle$ 5 7))

;;======================================

;;Inlines

;;======================================

(element application ($mono-seq$))

(element command ($bold-seq$))

(element filename ($mono-seq$))

(element function ($mono-seq$))

(element guibutton ($bold-seq$))

(element guiicon ($bold-seq$))

(element guilabel ($italic-seq$))

(element guimenu ($bold-seq$))

(element guimenuitem ($bold-seq$))

(element hardware ($bold-mono-seq$))

(element keycap ($bold-seq$))

(element literal ($mono-seq$))

(element parameter ($italic-mono-seq$))

(element prompt ($mono-seq$))

(element symbol ($charseq$))

(element emphasis ($italic-seq$))

</style-specification-body>

</style-specification>

;;===========================================================================

;;                                HTML

;;===========================================================================

-->

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

<style-specification-body> 

;; this is necessary because right now jadetex does not understand

;; symbolic entities, whereas things work well with numeric entities.

(declare-characteristic preserve-sdata?

          "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"

          #f)

;;=========================

;;Header HTML 4.0.1

;;=========================

(define %html-pubid% "-//W3C//DTD HTML 4.01//EN")

;;=========================

;;Common Stuff

;;=========================

;;Should there be a link to the legalnotice?

(define %generate-legalnotice-link%

  #t)

;;What graphics extensions allowed?

(define %graphic-extensions% 

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

;;What is the default extension for images?

(define %graphic-default-extension% "png")

;;Use element ids as filenames?

(define %use-id-as-filename%

 #f)

;;=========================

;;Book Stuff

;;=========================

;;Do you want a TOC for Books?

(define %generate-book-toc% 

  #t)

;;What depth should the TOC generate?

;;!Only top level of appendixes!

(define (toc-depth nd)

  (if (string=? (gi nd) (normalize "book"))

      3

      (if (string=? (gi nd) (normalize "appendix"))

        0

        1)))

;;What elements should have an LOT?

(define ($generate-book-lot-list$)

  (list (normalize "equation")))

;;Do you want a title page for your Book?

(define %generate-book-titlepage%

#t)

;;=========================

;;Part Stuff

;;=========================

;;Should parts have TOCs?

(define %generate-part-toc% 

  #t)

;;Should part TOCs be on their titlepages?

(define %generate-part-toc-on-titlepage%

  #t)

;;Do you want a title page for your part?

(define %generate-part-titlepage% 

  #t)

;;Should the Part intro be on the part title page?

(define %generate-partintro-on-titlepage%

 #t)

(define %para-autolabel%

 #t)

;;========================

;;Chapter Stuff

;;=======================

;;No TOCs in Chapters

(define $generate-chapter-toc$

 (lambda ()

    #f))

;;=========================

;;Navigation

;;=========================

;;Should there be navigation at top?

(define %header-navigation%

 #t)

;;Should there be navigation at bottom?

(define %footer-navigation%

  #t)

;;Use tables to create the navigation?

(define %gentext-nav-use-tables%

 #t)

;;If tables are used for navigation, 

;;how wide should they be? 

(define %gentext-nav-tblwidth% 

"100%")

;;Add arrows to navigation (comment these 

;;out if you want admon graphics here)

(define (gentext-en-nav-prev prev) 

  (make sequence (literal "<<< Previous")))

;;Add arrows to navigation (comment these 

;;out if you want admon graphics here)

(define (gentext-en-nav-next next)

  (make sequence (literal "Next >>>")))

;;=========================

;;Tables and Lists

;;=========================

;;Should Variable lists be tables?

(define %always-format-variablelist-as-table%

 #f)

;;What is the length of the 'Term' in a variablelist?

(define %default-variablelist-termlength%

  20)

;;When true | If the terms are shorter than 

;;the termlength above then the variablelist 

;;will be formatted as a table.

(define %may-format-variablelist-as-table%

#f)

;;This overrides the tgroup definition 

;;(copied from 1.20, dbtable.dsl).

;;It changes the table background color, 

;;cell spacing and cell padding.

;;This is based on gtk-doc additions - thanks!

(element tgroup

  (let* ((wrapper   (parent (current-node)))

	 (frameattr (attribute-string (normalize "frame") wrapper))

	 (pgwide    (attribute-string (normalize "pgwide") wrapper))

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

				     (normalize "footnote")))

	 (border (if (equal? frameattr (normalize "none"))

		     '(("BORDER" "0"))

		     '(("BORDER" "1"))))

	 (bgcolor '(("BGCOLOR" "#E0E0E0")))

	 (width (if (equal? pgwide "1")

		    (list (list "WIDTH" ($table-width$)))

		    '()))

	 (head (select-elements (children (current-node)) (normalize "thead")))

	 (body (select-elements (children (current-node)) (normalize "tbody")))

	 (feet (select-elements (children (current-node)) (normalize "tfoot"))))

    (make element gi: "TABLE"

	  attributes: (append

		       border

		       width

		       bgcolor

		       '(("CELLSPACING" "0"))

		       '(("CELLPADDING" "4"))

		       (if %cals-table-class%

			   (list (list "CLASS" %cals-table-class%))

			   '()))

	  (process-node-list head)

	  (process-node-list body)

	  (process-node-list feet)

	  (make-table-endnotes))))

;;===================

;; Admon Graphics

;;===================

;;Should Admon Graphics be used?

(define %admon-graphics%

  #t)

;;Where are those admon graphics?

(define %admon-graphics-path%

  "./stylesheet-images/")

;;Given an admonition node, returns the 

;;name of the graphic that should

;;be used for that admonition.

;;Define admon graphics usage

;;NOTE these will change to pngs 

;;soon in the GDP when Tigert gets 

;;the time to make special ones for us!

(define ($admon-graphic$ #!optional (nd (current-node)))

  (cond ((equal? (gi nd) (normalize "tip"))

	 (string-append %admon-graphics-path% "tip.gif"))

	((equal? (gi nd) (normalize "note"))

	 (string-append %admon-graphics-path% "note.gif"))

	((equal? (gi nd) (normalize "important"))

	 (string-append %admon-graphics-path% "important.gif"))

	((equal? (gi nd) (normalize "caution"))

	 (string-append %admon-graphics-path% "caution.gif"))

	((equal? (gi nd) (normalize "warning"))

	 (string-append %admon-graphics-path% "warning.gif"))

	(else (error (string-append (gi nd) " is not an admonition.")))))

;;Given an admonition node, returns