diff --git a/da_DK.ISO8859-1/share/sgml/freebsd.dsl b/da_DK.ISO8859-1/share/sgml/freebsd.dsl
index 694d5bf328..d2dfe66fbc 100644
--- a/da_DK.ISO8859-1/share/sgml/freebsd.dsl
+++ b/da_DK.ISO8859-1/share/sgml/freebsd.dsl
@@ -2,9 +2,9 @@
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
+
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
]>
<style-sheet>
@@ -14,9 +14,6 @@
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -45,201 +42,6 @@
(literal "doc@FreeBSD.org"))
(literal ">.")))))
]]>
-
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
- (define (local-en-label-title-sep)
- (list
- (list (normalize "warning") ": ")
- (list (normalize "caution") ": ")
- (list (normalize "chapter") " ")
- (list (normalize "sect1") " ")
- (list (normalize "sect2") " ")
- (list (normalize "sect3") " ")
- (list (normalize "sect4") " ")
- (list (normalize "sect5") " ")
- ))
-
<!-- Fix a problem with the Danish localisation. -->
(define (local-da-label-title-sep)
(list
@@ -248,6 +50,6 @@
</style-specification-body>
</style-specification>
-
+
<external-specification id="docbook" document="freebsd.dsl">
</style-sheet>
diff --git a/de_DE.ISO8859-1/share/sgml/freebsd.dsl b/de_DE.ISO8859-1/share/sgml/freebsd.dsl
index 0b83d26fb8..40c86e7043 100644
--- a/de_DE.ISO8859-1/share/sgml/freebsd.dsl
+++ b/de_DE.ISO8859-1/share/sgml/freebsd.dsl
@@ -20,9 +20,6 @@
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
diff --git a/el_GR.ISO8859-7/share/sgml/freebsd.dsl b/el_GR.ISO8859-7/share/sgml/freebsd.dsl
index 307cc350b2..4316fe3af0 100644
--- a/el_GR.ISO8859-7/share/sgml/freebsd.dsl
+++ b/el_GR.ISO8859-7/share/sgml/freebsd.dsl
@@ -17,7 +17,6 @@
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
<!ENTITY % lang.el.dsssl "IGNORE">
]>
@@ -28,9 +27,6 @@
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -59,7 +55,6 @@
(literal "doc@FreeBSD.org"))
(literal ">.")))))
- <!-- More aesthetically pleasing Greek quotes for HTML output. -->
(element quote
(make sequence
(make entity-ref name: "laquo")
@@ -67,188 +62,6 @@
(make entity-ref name: "raquo")))
]]>
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
(define (local-el-label-title-sep)
(list
(list (normalize "warning") ": ")
diff --git a/en_US.ISO8859-1/share/sgml/freebsd.dsl b/en_US.ISO8859-1/share/sgml/freebsd.dsl
index c6569f7342..a90677e05f 100644
--- a/en_US.ISO8859-1/share/sgml/freebsd.dsl
+++ b/en_US.ISO8859-1/share/sgml/freebsd.dsl
@@ -14,236 +14,6 @@
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
- <!-- HTML only .................................................... -->
-
- <![ %output.html; [
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- (define ($email-footer$)
- (make sequence
- (make element gi: "p"
- attributes: (list (list "align" "center"))
- (make element gi: "small"
- (literal "This, and other documents, can be downloaded from ")
- (create-link
- (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
- (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
- (literal ".")))
- (make element gi: "p"
- attributes: (list (list "align" "center"))
- (make element gi: "small"
- (literal "For questions about FreeBSD, read the ")
- (create-link
- (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
- (literal "documentation"))
- (literal " before contacting <")
- (create-link
- (list (list "HREF" "mailto:questions@FreeBSD.org"))
- (literal "questions@FreeBSD.org"))
- (literal ">.")
- (make empty-element gi: "br")
- (literal "For questions about this documentation, e-mail <")
- (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
- (literal "doc@FreeBSD.org"))
- (literal ">.")))))
- ]]>
-
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
- (define (local-en-label-title-sep)
- (list
- (list (normalize "warning") ": ")
- (list (normalize "caution") ": ")
- (list (normalize "chapter") " ")
- (list (normalize "sect1") " ")
- (list (normalize "sect2") " ")
- (list (normalize "sect3") " ")
- (list (normalize "sect4") " ")
- (list (normalize "sect5") " ")
- ))
-
</style-specification-body>
</style-specification>
diff --git a/es_ES.ISO8859-1/share/sgml/freebsd.dsl b/es_ES.ISO8859-1/share/sgml/freebsd.dsl
index 7a999b331f..b61562899c 100644
--- a/es_ES.ISO8859-1/share/sgml/freebsd.dsl
+++ b/es_ES.ISO8859-1/share/sgml/freebsd.dsl
@@ -2,9 +2,9 @@
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
+
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
]>
<style-sheet>
@@ -14,9 +14,6 @@
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -46,200 +43,6 @@
(literal ">.")))))
]]>
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
- (define (local-en-label-title-sep)
- (list
- (list (normalize "warning") ": ")
- (list (normalize "caution") ": ")
- (list (normalize "chapter") " ")
- (list (normalize "sect1") " ")
- (list (normalize "sect2") " ")
- (list (normalize "sect3") " ")
- (list (normalize "sect4") " ")
- (list (normalize "sect5") " ")
- ))
-
</style-specification-body>
</style-specification>
diff --git a/fr_FR.ISO8859-1/share/sgml/freebsd.dsl b/fr_FR.ISO8859-1/share/sgml/freebsd.dsl
index 209b70ca19..36f354c060 100644
--- a/fr_FR.ISO8859-1/share/sgml/freebsd.dsl
+++ b/fr_FR.ISO8859-1/share/sgml/freebsd.dsl
@@ -2,7 +2,7 @@
The FreeBSD Documentation Project
The FreeBSD French Documentation Project
- $Id: freebsd.dsl,v 1.12 2003-05-22 15:03:49 hrs Exp $
+ $Id: freebsd.dsl,v 1.13 2010-12-08 06:25:59 hrs Exp $
$FreeBSD$
Original revision: 1.17
@@ -10,6 +10,7 @@
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
+
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
]>
@@ -20,9 +21,6 @@
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
<!-- Fix a problem with the French localisation. This should really
be a patch to the dsssl-docbook-modular port, but this gets it
more widely available sooner. A patch will be applied to the
diff --git a/hu_HU.ISO8859-2/share/sgml/freebsd.dsl b/hu_HU.ISO8859-2/share/sgml/freebsd.dsl
index 1a9197e6a6..3920a59a75 100644
--- a/hu_HU.ISO8859-2/share/sgml/freebsd.dsl
+++ b/hu_HU.ISO8859-2/share/sgml/freebsd.dsl
@@ -21,10 +21,6 @@
<style-specification-body>
<![ %output.html; [
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
diff --git a/it_IT.ISO8859-15/share/sgml/freebsd.dsl b/it_IT.ISO8859-15/share/sgml/freebsd.dsl
index 3a4dd642b9..d9f009ce74 100644
--- a/it_IT.ISO8859-15/share/sgml/freebsd.dsl
+++ b/it_IT.ISO8859-15/share/sgml/freebsd.dsl
@@ -7,21 +7,16 @@
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
+
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
- <!-- HTML only .................................................... -->
-
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -51,8 +46,6 @@
(literal ">.")))))
]]>
- <!-- Both sets of stylesheets ..................................... -->
-
(define (local-it-label-title-sep)
(list
(list (normalize "warning") ": ")
diff --git a/ja_JP.eucJP/share/sgml/freebsd.dsl b/ja_JP.eucJP/share/sgml/freebsd.dsl
index c6aa195d20..aa63fe9fb4 100644
--- a/ja_JP.eucJP/share/sgml/freebsd.dsl
+++ b/ja_JP.eucJP/share/sgml/freebsd.dsl
@@ -2,14 +2,48 @@
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
+
+<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
+%freebsd.l10n;
+
+<!ENTITY % output.html "IGNORE">
+<!ENTITY % output.print "IGNORE">
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
-
+ <![ %output.html; [
+ (define ($email-footer$)
+ (make sequence
+ (make element gi: "p"
+ attributes: (list (list "align" "center"))
+ (make element gi: "small"
+ (literal "This, and other documents, can be downloaded from ")
+ (create-link
+ (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
+ (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
+ (literal ".")))
+ (make element gi: "p"
+ attributes: (list (list "align" "center"))
+ (make element gi: "small"
+ (literal "For questions about FreeBSD, read the ")
+ (create-link
+ (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
+ (literal "documentation"))
+ (literal " before contacting <")
+ (create-link
+ (list (list "HREF" "mailto:questions@FreeBSD.org"))
+ (literal "questions@FreeBSD.org"))
+ (literal ">.")
+ (make empty-element gi: "br")
+ (literal "For questions about this documentation, e-mail <")
+ (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
+ (literal "doc@FreeBSD.org"))
+ (literal ">.")))))
+ ]]>
</style-specification-body>
</style-specification>
-
+
<external-specification id="docbook" document="freebsd.dsl">
</style-sheet>
diff --git a/mn_MN.UTF-8/share/sgml/freebsd.dsl b/mn_MN.UTF-8/share/sgml/freebsd.dsl
index 2191461197..5f43deb764 100644
--- a/mn_MN.UTF-8/share/sgml/freebsd.dsl
+++ b/mn_MN.UTF-8/share/sgml/freebsd.dsl
@@ -15,23 +15,16 @@
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
- <!-- HTML only .................................................... -->
-
<![ %output.html; [
<![ %lang.mn.dsssl; [
(define %gentext-language% "mn")
]]>
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -66,200 +59,6 @@
(literal "> хаягаар цахим захидал явуулна уу.")))))
]]>
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
- (define (local-en-label-title-sep)
- (list
- (list (normalize "warning") ": ")
- (list (normalize "caution") ": ")
- (list (normalize "chapter") " ")
- (list (normalize "sect1") " ")
- (list (normalize "sect2") " ")
- (list (normalize "sect3") " ")
- (list (normalize "sect4") " ")
- (list (normalize "sect5") " ")
- ))
-
(define (local-mn-label-title-sep)
(list
(list (normalize "warning") ": ")
diff --git a/nl_NL.ISO8859-1/share/sgml/freebsd.dsl b/nl_NL.ISO8859-1/share/sgml/freebsd.dsl
index 118c6c7f7e..f9c91a91e6 100644
--- a/nl_NL.ISO8859-1/share/sgml/freebsd.dsl
+++ b/nl_NL.ISO8859-1/share/sgml/freebsd.dsl
@@ -15,19 +15,13 @@
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
- <!-- HTML only .................................................... -->
-
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -56,201 +50,6 @@
(literal "doc@FreeBSD.org"))
(literal ">.")))))
]]>
-
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
- (define (local-en-label-title-sep)
- (list
- (list (normalize "warning") ": ")
- (list (normalize "caution") ": ")
- (list (normalize "chapter") " ")
- (list (normalize "sect1") " ")
- (list (normalize "sect2") " ")
- (list (normalize "sect3") " ")
- (list (normalize "sect4") " ")
- (list (normalize "sect5") " ")
- ))
-
</style-specification-body>
</style-specification>
diff --git a/pl_PL.ISO8859-2/share/sgml/freebsd.dsl b/pl_PL.ISO8859-2/share/sgml/freebsd.dsl
index 0cefa84848..267dad116d 100644
--- a/pl_PL.ISO8859-2/share/sgml/freebsd.dsl
+++ b/pl_PL.ISO8859-2/share/sgml/freebsd.dsl
@@ -14,19 +14,13 @@
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
- <!-- HTML only .................................................... -->
-
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -55,201 +49,6 @@
(literal "doc@FreeBSD.org"))
(literal ">.")))))
]]>
-
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
- (define (local-en-label-title-sep)
- (list
- (list (normalize "warning") ": ")
- (list (normalize "caution") ": ")
- (list (normalize "chapter") " ")
- (list (normalize "sect1") " ")
- (list (normalize "sect2") " ")
- (list (normalize "sect3") " ")
- (list (normalize "sect4") " ")
- (list (normalize "sect5") " ")
- ))
-
</style-specification-body>
</style-specification>
diff --git a/pt_BR.ISO8859-1/share/sgml/freebsd.dsl b/pt_BR.ISO8859-1/share/sgml/freebsd.dsl
index 42583fd922..992814f508 100644
--- a/pt_BR.ISO8859-1/share/sgml/freebsd.dsl
+++ b/pt_BR.ISO8859-1/share/sgml/freebsd.dsl
@@ -8,9 +8,9 @@
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
+
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
<!ENTITY % lang.ptbr.dsssl "IGNORE">
]>
@@ -26,13 +26,8 @@
(define %gentext-language% "pt_br")
]]>
- <!-- HTML only .................................................... -->
-
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -61,201 +56,6 @@
(literal "doc@FreeBSD.org"))
(literal ">.")))))
]]>
-
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
- (define (local-en-label-title-sep)
- (list
- (list (normalize "warning") ": ")
- (list (normalize "caution") ": ")
- (list (normalize "chapter") " ")
- (list (normalize "sect1") " ")
- (list (normalize "sect2") " ")
- (list (normalize "sect3") " ")
- (list (normalize "sect4") " ")
- (list (normalize "sect5") " ")
- ))
-
</style-specification-body>
</style-specification>
diff --git a/ru_RU.KOI8-R/share/sgml/freebsd.dsl b/ru_RU.KOI8-R/share/sgml/freebsd.dsl
index 7033a6829f..87d7856605 100644
--- a/ru_RU.KOI8-R/share/sgml/freebsd.dsl
+++ b/ru_RU.KOI8-R/share/sgml/freebsd.dsl
@@ -16,23 +16,18 @@
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
- <!-- HTML only .................................................... -->
-
+
<![ %output.html; [
<![ %lang.ru.dsssl; [
(define %gentext-language% "ru")
]]>
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -80,200 +75,6 @@
(process-children)
(literal "''")))
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
- (define (local-en-label-title-sep)
- (list
- (list (normalize "warning") ": ")
- (list (normalize "caution") ": ")
- (list (normalize "chapter") " ")
- (list (normalize "sect1") " ")
- (list (normalize "sect2") " ")
- (list (normalize "sect3") " ")
- (list (normalize "sect4") " ")
- (list (normalize "sect5") " ")
- ))
-
<!-- Fix a problem with the Russian localization (dbl1ru.dsl). -->
(define (local-ru-label-title-sep)
(list
diff --git a/share/sgml/freebsd-common.dsl b/share/sgml/freebsd-common.dsl
index 0222459280..3d31f5ca51 100644
--- a/share/sgml/freebsd-common.dsl
+++ b/share/sgml/freebsd-common.dsl
@@ -5,6 +5,9 @@
%freebsd.l10n;
<!ENTITY % freebsd.l10n-common PUBLIC "-//FreeBSD//ENTITIES DocBook Language Neutral Entities//EN">
%freebsd.l10n-common;
+
+<!ENTITY % output.html "IGNORE">
+<!ENTITY % output.print "IGNORE">
]>
<style-sheet>
@@ -326,6 +329,18 @@
($charseq$)
(empty-sosofo))))
+ (define (local-en-label-title-sep)
+ (list
+ (list (normalize "warning") ": ")
+ (list (normalize "caution") ": ")
+ (list (normalize "chapter") " ")
+ (list (normalize "sect1") " ")
+ (list (normalize "sect2") " ")
+ (list (normalize "sect3") " ")
+ (list (normalize "sect4") " ")
+ (list (normalize "sect5") " ")
+ ))
+
</style-specification-body>
</style-specification>
</style-sheet>
diff --git a/share/sgml/freebsd-html.dsl b/share/sgml/freebsd-html.dsl
index 5d9efca3b9..a2846b6dda 100644
--- a/share/sgml/freebsd-html.dsl
+++ b/share/sgml/freebsd-html.dsl
@@ -188,7 +188,7 @@
;; /DESC
;; AUTHOR N/A
;; /REFENTRY
- #f)
+ #t)
<!-- Specify how to generate the man page link HREF -->
(define ($create-refentry-xref-link$ #!optional (n (current-node)))
@@ -292,7 +292,6 @@
(if (not (last-sibling? (current-node)))
(literal ", ")
(empty-sosofo))))
-
]]>
<!-- HTML with images ............................................ -->
diff --git a/share/sgml/freebsd-print.dsl b/share/sgml/freebsd-print.dsl
index 230f386c2a..56af7dc066 100644
--- a/share/sgml/freebsd-print.dsl
+++ b/share/sgml/freebsd-print.dsl
@@ -226,6 +226,117 @@
]]>
+ <![ %output.print.niceheaders; [
+
+ (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
+ (define niceheader-rule-spaceafter 0pt)
+
+ (define ($component-title$)
+ (let* ((info (cond
+ ((equal? (gi) (normalize "appendix"))
+ (select-elements (children (current-node)) (normalize "docinfo")))
+ ((equal? (gi) (normalize "article"))
+ (node-list-filter-by-gi (children (current-node))
+ (list (normalize "artheader")
+ (normalize "articleinfo"))))
+ ((equal? (gi) (normalize "bibliography"))
+ (select-elements (children (current-node)) (normalize "docinfo")))
+ ((equal? (gi) (normalize "chapter"))
+ (select-elements (children (current-node)) (normalize "docinfo")))
+ ((equal? (gi) (normalize "dedication"))
+ (empty-node-list))
+ ((equal? (gi) (normalize "glossary"))
+ (select-elements (children (current-node)) (normalize "docinfo")))
+ ((equal? (gi) (normalize "index"))
+ (select-elements (children (current-node)) (normalize "docinfo")))
+ ((equal? (gi) (normalize "preface"))
+ (select-elements (children (current-node)) (normalize "docinfo")))
+ ((equal? (gi) (normalize "reference"))
+ (select-elements (children (current-node)) (normalize "docinfo")))
+ ((equal? (gi) (normalize "setindex"))
+ (select-elements (children (current-node)) (normalize "docinfo")))
+ (else
+ (empty-node-list))))
+ (exp-children (if (node-list-empty? info)
+ (empty-node-list)
+ (expand-children (children info)
+ (list (normalize "bookbiblio")
+ (normalize "bibliomisc")
+ (normalize "biblioset")))))
+ (parent-titles (select-elements (children (current-node)) (normalize "title")))
+ (info-titles (select-elements exp-children (normalize "title")))
+ (titles (if (node-list-empty? parent-titles)
+ info-titles
+ parent-titles))
+ (subtitles (select-elements exp-children (normalize "subtitle"))))
+ (make sequence
+ (make paragraph
+ font-family-name: %title-font-family%
+ font-weight: 'bold
+ font-size: (HSIZE 4)
+ line-spacing: (* (HSIZE 4) %line-spacing-factor%)
+ space-before: (* (HSIZE 4) %head-before-factor%)
+ start-indent: 0pt
+ first-line-start-indent: 0pt
+ quadding: %component-title-quadding%
+ heading-level: (if %generate-heading-level% 1 0)
+ keep-with-next?: #t
+
+ (if (string=? (element-label) "")
+ (empty-sosofo)
+ (literal (gentext-element-name-space (current-node))
+ (element-label)
+ (gentext-label-title-sep (gi)))))
+ (make paragraph
+ font-family-name: %title-font-family%
+ font-weight: 'bold
+ font-posture: 'italic
+ font-size: (HSIZE 6)
+ line-spacing: (* (HSIZE 6) %line-spacing-factor%)
+; space-before: (* (HSIZE 5) %head-before-factor%)
+ start-indent: 0pt
+ first-line-start-indent: 0pt
+ quadding: %component-title-quadding%
+ heading-level: (if %generate-heading-level% 1 0)
+ keep-with-next?: #t
+
+ (if (node-list-empty? titles)
+ (element-title-sosofo) ;; get a default!
+ (with-mode component-title-mode
+ (make sequence
+ (process-node-list titles)))))
+
+ (make paragraph
+ font-family-name: %title-font-family%
+ font-weight: 'bold
+ font-posture: 'italic
+ font-size: (HSIZE 3)
+ line-spacing: (* (HSIZE 3) %line-spacing-factor%)
+ space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
+ space-after: (* (HSIZE 4) %head-after-factor%)
+ start-indent: 0pt
+ first-line-start-indent: 0pt
+ quadding: %component-subtitle-quadding%
+ keep-with-next?: #t
+
+ (with-mode component-title-mode
+ (make sequence
+ (process-node-list subtitles))))
+
+ (if (equal? (gi) (normalize "index"))
+ (empty-sosofo)
+ (make rule
+ length: %body-width%
+ display-alignment: 'start
+ space-before: niceheader-rule-spacebefore
+ space-after: niceheader-rule-spaceafter
+ line-thickness: 0.5pt)))))
+
+ (element authorgroup
+ (empty-sosofo))
+
+ ]]>
+
<!-- Print only ................................................... -->
<![ %output.print; [
(define withpgpkeys
@@ -445,6 +556,66 @@
(define (chunk-parent nd)
(sgml-root-element nd))
+ (define minimal-section-labels #f)
+ (define max-section-level-labels
+ (if minimal-section-labels 3 10))
+
+ (define ($section-title$)
+ (let* ((sect (current-node))
+ (info (info-element))
+ (exp-children (if (node-list-empty? info)
+ (empty-node-list)
+ (expand-children (children info)
+ (list (normalize "bookbiblio")
+ (normalize "bibliomisc")
+ (normalize "biblioset")))))
+ (parent-titles (select-elements (children sect) (normalize "title")))
+ (info-titles (select-elements exp-children (normalize "title")))
+ (titles (if (node-list-empty? parent-titles)
+ info-titles
+ parent-titles))
+ (subtitles (select-elements exp-children (normalize "subtitle")))
+ (renderas (inherited-attribute-string (normalize "renderas") sect))
+ (hlevel ;; the apparent section level;
+ (if renderas ;; if not real section level,
+ (string->number ;; then get the apparent level
+ (substring renderas 4 5)) ;; from "renderas",
+ (SECTLEVEL))) ;; else use the real level
+ (hs (HSIZE (- 4 hlevel))))
+
+ (make sequence
+ (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: (if (node-list-empty? subtitles)
+ (* hs %head-after-factor%)
+ 0pt)
+ start-indent: (if (or (>= hlevel 3)
+ (member (gi) (list (normalize "refsynopsisdiv")
+ (normalize "refsect1")
+ (normalize "refsect2")
+ (normalize "refsect3"))))
+ %body-start-indent%
+ 0pt)
+ first-line-start-indent: 0pt
+ quadding: %section-title-quadding%
+ keep-with-next?: #t
+ heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
+ ;; SimpleSects are never AUTO numbered...they aren't hierarchical
+ (if (> hlevel (- max-section-level-labels 1))
+ (empty-sosofo)
+ (if (string=? (element-label (current-node)) "")
+ (empty-sosofo)
+ (literal (element-label (current-node))
+ (gentext-label-title-sep (gi sect)))))
+ (element-title-sosofo (current-node)))
+ (with-mode section-title-mode
+ (process-node-list subtitles))
+ ($section-info$ info))))
]]>
<![ %output.print.pdf; [
diff --git a/zh_CN.GB2312/share/sgml/freebsd.dsl b/zh_CN.GB2312/share/sgml/freebsd.dsl
index 262b30bc11..17adfb66d7 100644
--- a/zh_CN.GB2312/share/sgml/freebsd.dsl
+++ b/zh_CN.GB2312/share/sgml/freebsd.dsl
@@ -13,19 +13,12 @@
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
- <!-- HTML only .................................................... -->
-
<![ %output.html; [
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -335,184 +328,9 @@
]]>
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
<![ %output.print; [
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
;; ����/usr/local/share/sgml/docbook/dsssl/modular/print/dbcompon.dsl
;; Id: dbcompon.dsl,v 1.5 2003/04/29 06:33:10 adicarlo Exp
;; ʹÿ�µı�����ʾΪ����XX�¡�
diff --git a/zh_TW.Big5/share/sgml/freebsd.dsl b/zh_TW.Big5/share/sgml/freebsd.dsl
index 786be52286..8d4aa9fc3b 100644
--- a/zh_TW.Big5/share/sgml/freebsd.dsl
+++ b/zh_TW.Big5/share/sgml/freebsd.dsl
@@ -2,21 +2,16 @@
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
+
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
- <!-- HTML only .................................................... -->
-
<![ %output.html; [
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -60,381 +55,6 @@
($bold-seq$))))
]]>
-
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- More aesthetically pleasing chapter headers for print output -->
-
- <![ %output.print.niceheaders; [
-
- (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
- (define niceheader-rule-spaceafter 0pt)
-
- (define ($component-title$)
- (let* ((info (cond
- ((equal? (gi) (normalize "appendix"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "article"))
- (node-list-filter-by-gi (children (current-node))
- (list (normalize "artheader")
- (normalize "articleinfo"))))
- ((equal? (gi) (normalize "bibliography"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "chapter"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "dedication"))
- (empty-node-list))
- ((equal? (gi) (normalize "glossary"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "index"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "preface"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "reference"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- ((equal? (gi) (normalize "setindex"))
- (select-elements (children (current-node)) (normalize "docinfo")))
- (else
- (empty-node-list))))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children (current-node)) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle"))))
- (make sequence
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-size: (HSIZE 4)
- line-spacing: (* (HSIZE 4) %line-spacing-factor%)
- space-before: (* (HSIZE 4) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (string=? (element-label) "")
- (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
- (element-label)
- (gentext-label-title-sep (gi)))))
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 6)
- line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-; space-before: (* (HSIZE 5) %head-before-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-title-quadding%
- heading-level: (if %generate-heading-level% 1 0)
- keep-with-next?: #t
-
- (if (node-list-empty? titles)
- (element-title-sosofo) ;; get a default!
- (with-mode component-title-mode
- (make sequence
- (process-node-list titles)))))
-
- (make paragraph
- font-family-name: %title-font-family%
- font-weight: 'bold
- font-posture: 'italic
- font-size: (HSIZE 3)
- line-spacing: (* (HSIZE 3) %line-spacing-factor%)
- space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
- space-after: (* (HSIZE 4) %head-after-factor%)
- start-indent: 0pt
- first-line-start-indent: 0pt
- quadding: %component-subtitle-quadding%
- keep-with-next?: #t
-
- (with-mode component-title-mode
- (make sequence
- (process-node-list subtitles))))
-
- (if (equal? (gi) (normalize "index"))
- (empty-sosofo)
- (make rule
- length: %body-width%
- display-alignment: 'start
- space-before: niceheader-rule-spacebefore
- space-after: niceheader-rule-spaceafter
- line-thickness: 0.5pt)))))
-
- (element authorgroup
- (empty-sosofo))
-
- ]]>
-
- <!-- Print only ................................................... -->
-
- <![ %output.print; [
-
- (define minimal-section-labels #f)
- (define max-section-level-labels
- (if minimal-section-labels 3 10))
-
- (define ($section-title$)
- (let* ((sect (current-node))
- (info (info-element))
- (exp-children (if (node-list-empty? info)
- (empty-node-list)
- (expand-children (children info)
- (list (normalize "bookbiblio")
- (normalize "bibliomisc")
- (normalize "biblioset")))))
- (parent-titles (select-elements (children sect) (normalize "title")))
- (info-titles (select-elements exp-children (normalize "title")))
- (titles (if (node-list-empty? parent-titles)
- info-titles
- parent-titles))
- (subtitles (select-elements exp-children (normalize "subtitle")))
- (renderas (inherited-attribute-string (normalize "renderas") sect))
- (hlevel ;; the apparent section level;
- (if renderas ;; if not real section level,
- (string->number ;; then get the apparent level
- (substring renderas 4 5)) ;; from "renderas",
- (SECTLEVEL))) ;; else use the real level
- (hs (HSIZE (- 4 hlevel))))
-
- (make sequence
- (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: (if (node-list-empty? subtitles)
- (* hs %head-after-factor%)
- 0pt)
- start-indent: (if (or (>= hlevel 3)
- (member (gi) (list (normalize "refsynopsisdiv")
- (normalize "refsect1")
- (normalize "refsect2")
- (normalize "refsect3"))))
- %body-start-indent%
- 0pt)
- first-line-start-indent: 0pt
- quadding: %section-title-quadding%
- keep-with-next?: #t
- heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
- ;; SimpleSects are never AUTO numbered...they aren't hierarchical
- (if (> hlevel (- max-section-level-labels 1))
- (empty-sosofo)
- (if (string=? (element-label (current-node)) "")
- (empty-sosofo)
- (literal (element-label (current-node))
- (gentext-label-title-sep (gi sect)))))
- (element-title-sosofo (current-node)))
- (with-mode section-title-mode
- (process-node-list subtitles))
- ($section-info$ info))))
-
- ]]>
-
- <!-- Both sets of stylesheets ..................................... -->
-
- (define (local-en-label-title-sep)
- (list
- (list (normalize "warning") ": ")
- (list (normalize "caution") ": ")
- (list (normalize "chapter") " ")
- (list (normalize "sect1") " ")
- (list (normalize "sect2") " ")
- (list (normalize "sect3") " ")
- (list (normalize "sect4") " ")
- (list (normalize "sect5") " ")
- ))
-
</style-specification-body>
</style-specification>