From: Jirka Kosek Date: Mon, 23 Sep 2002 15:17:28 +0000 (+0000) Subject: Added DSSSL stylesheet for print rendering of DocBook Slides instances. X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=306db1f210846031f604b408164535e8bce9ede4;p=docbook-dsssl Added DSSSL stylesheet for print rendering of DocBook Slides instances. --- diff --git a/contrib/samples/dsssl/slides/README b/contrib/samples/dsssl/slides/README new file mode 100644 index 000000000..bd46e0a61 --- /dev/null +++ b/contrib/samples/dsssl/slides/README @@ -0,0 +1,23 @@ +This directory contains slides.dsl stylesheet which can be used for +rendering DocBook Slides. It outputs one slide to one page and you can +use auxiliary tools or print drivers to get 2up or 4up page +arrangements. I use this stylesheet to print slides for my +students. Stylesheet is not perfect, but does amount of usable work. + +Typical usage is: + +jade -d slides.dsl -t rtf /path/to/xml.dcl your-slides.xml + +If you get following error message from Jade: + +jade.exe:slides.dsl:2:96:W: cannot generate system identifier for public text "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" + +you must add entry for DSSSL print stylesheet to your catalog file, or +change second line of slides.dsl from PUBLIC to SYSTEM identifier and +replace FPI with path to your local copy of print stylesheet. + +Enjoy it! + +Jirka Kosek + +e-mail:jirka@kosek.cz \ No newline at end of file diff --git a/contrib/samples/dsssl/slides/slides.dsl b/contrib/samples/dsssl/slides/slides.dsl new file mode 100644 index 000000000..71d0225cf --- /dev/null +++ b/contrib/samples/dsssl/slides/slides.dsl @@ -0,0 +1,193 @@ + +]> + + + +(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 preferred-mediaobject-extensions + (list "wmf" "eps" "ps" "jpg" "jpeg" "png")) + +(define preferred-mediaobject-notations + (list "WMF" "EPS" "PS" "JPG" "JPEG" "PNG" "linespecific")) + +(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 "foilgroup"))) + (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 foilgroup + (process-children)) + +(element (foilgroup title) + (empty-sosofo)) + +(define (named-formal-objects) + (list (normalize "figure") + (normalize "equation"))) + + + + + +