Re: DOCBOOK-APPS: FYI - Slides online for a talk I gave on DocBook XML

[Jirka Kosek <jirka@kosek.cz>]

Dan York wrote:

> the link to the XML file.  To generate the PDF file, I just generated FO using
> the fo-plain.xsl file found with the other stylesheets, then ran that through
> Fop to get something I really wasn't pleased with, but didn't really care
> about. :-)

If you are interested I created customization for DSSSL stylesheets to
deal with Slides DTD. It gave me better results than provided
fo-plain.xsl. I'm attaching it to e-mail if anybody is currious. You
must change path pointing to base DSSSL print stylesheet in 

<!ENTITY docbook.dsl SYSTEM "/src/db/dsssl/print/docbook.dsl" CDATA
DSSSL>

in order to use it. 

				Jirka


-- 
-----------------------------------------------------------------
  Jirka Kosek  	                     
  e-mail: jirka@kosek.cz
  http://www.kosek.cz
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY docbook.dsl SYSTEM "/src/db/dsssl/print/docbook.dsl" CDATA DSSSL>
]>

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

(define %visual-acuity% "my")
(define %paper-type% "A4")

(define %body-start-indent% 0pi)
(define %verbatim-size-factor% 0.95)

(define %callout-default-col% 70)

(element property ($mono-seq$))

(define %bf-size%
  ;; Defines the body font size
  (case %visual-acuity%
    (("tiny") 8pt)
    (("normal") 10pt)
    (("eleven") 11pt)
    (("my") 14pt)
    (("presbyopic") 12pt)
    (("large-type") 24pt)))

(define %body-font-family% "Verdana")
(define %title-font-family% "Verdana")

(define %graphic-extensions% 
  ;; List of graphic filename extensions
  '("eps" "wmf" "epsf" "gif" "tif" "tiff" "jpg" "jpeg" "png"))

(element slides
  (make simple-page-sequence
    page-n-columns: %page-n-columns%
    page-number-format: ($page-number-format$)
    use: default-text-style
    left-header:   ($left-header$)
    center-header:  (literal "")
    right-header:  ($right-header$)
;;    left-footer:   (literal (data (select-elements (children (select-elements (children (current-node)) (normalize "slidesinfo"))) (normalize "title"))))
    left-footer: ($left-footer$)
    center-footer: ($center-footer$)
    right-footer:  ($right-footer$)
    start-indent: %body-start-indent%
    input-whitespace-treatment: 'collapse
    quadding: %default-quadding%
    (process-children)))

(element slidesinfo
  (make sequence
    quadding: 'center
  (process-children)))

(element (slidesinfo author)
  (make paragraph
    quadding: 'center
    space-before: 96pt
    space-after: 96pt
  (next-match)))

(element (slidesinfo copyright)
  (empty-sosofo))

(element (slidesinfo title)
  (let* ((renderas (attribute-string "renderas"))
	 (hlevel 0)                   
	 (hs (HSIZE (- 4 hlevel))))
    (make paragraph
      font-family-name: %title-font-family%
      font-weight:  (if (< hlevel 5) 'bold 'medium)
      font-posture: (if (< hlevel 5) 'upright 'italic)
      font-size: hs
      line-spacing: (* hs %line-spacing-factor%)
      space-before: (* hs %head-before-factor%)
      space-after: (* hs %head-after-factor%)
      start-indent: (if (< hlevel 3)
			0pt
			%body-start-indent%)
      first-line-start-indent: 0pt
      quadding: 'center
      keep-with-next?: #t
      (process-children))))

(element (slidesinfo subtitle)
  (let* ((renderas (attribute-string "renderas"))
	 (hlevel 2)                   
	 (hs (HSIZE (- 4 hlevel))))
    (make paragraph
      font-family-name: %title-font-family%
      font-weight:  (if (< hlevel 5) 'bold 'medium)
      font-posture: (if (< hlevel 5) 'upright 'italic)
      font-size: hs
      line-spacing: (* hs %line-spacing-factor%)
      space-before: (* hs %head-before-factor%)
      space-after: (* hs %head-after-factor%)
      start-indent: (if (< hlevel 3)
			0pt
			%body-start-indent%)
      first-line-start-indent: 0pt
      quadding: 'center
      keep-with-next?: #t
      (process-children))))
  

(element foil
;;  (make paragraph
;;    break-before: 'page
  (make simple-page-sequence
    page-n-columns: %page-n-columns%
    page-number-format: ($page-number-format$)
    use: default-text-style
    left-header:   (literal (data (select-elements (children (parent (current-node))) (normalize "title"))))
    center-header: ($center-header$)
    right-header:  (literal (data (select-elements (children (current-node)) (normalize "title"))))
    left-footer:   (literal (data 
			     (select-elements
			      (children
			       (select-elements
				(children
				 (select-elements 
				  (parent
				   (select-elements 
				    (parent (current-node)) 
				    (normalize "section"))) 
				  (normalize "slides")))
				(normalize "slidesinfo")))
			      (normalize "title"))))
    center-footer: ($center-footer$)
    right-footer:  ($right-footer$)
    start-indent: %body-start-indent%
    input-whitespace-treatment: 'collapse
    quadding: %default-quadding%
    (process-children)))

(element (foil title)
  (let* ((renderas (attribute-string "renderas"))
	 (hlevel 1)                   
	 (hs (HSIZE (- 4 hlevel))))
    (make paragraph
      font-family-name: %title-font-family%
      font-weight:  (if (< hlevel 5) 'bold 'medium)
      font-posture: (if (< hlevel 5) 'upright 'italic)
      font-size: hs
      line-spacing: (* hs %line-spacing-factor%)
      space-before: (* hs %head-before-factor%)
      space-after: (* hs %head-after-factor%)
      start-indent: (if (< hlevel 3)
			0pt
			%body-start-indent%)
      first-line-start-indent: 0pt
      quadding: 'center
      keep-with-next?: #t
      (process-children))))

(element (foil subtitle)
  (let* ((renderas (attribute-string "renderas"))
	 (hlevel 2)                   
	 (hs (HSIZE (- 4 hlevel))))
    (make paragraph
      font-family-name: %title-font-family%
      font-weight:  (if (< hlevel 5) 'bold 'medium)
      font-posture: (if (< hlevel 5) 'upright 'italic)
      font-size: hs
      line-spacing: (* hs %line-spacing-factor%)
      space-before: (* hs %head-before-factor%)
      space-after: (* hs %head-after-factor%)
      start-indent: (if (< hlevel 3)
			0pt
			%body-start-indent%)
      first-line-start-indent: 0pt
      quadding: 'center
      keep-with-next?: #t
      (process-children))))

(element section
  (process-children))

(element (section title)
  (empty-sosofo))

(define (named-formal-objects)
  (list (normalize "figure")
	(normalize "equation")))

</style-specification>

<external-specification id="docbook" document="docbook.dsl">