Merge.
<!doctype dsssl-specification [
<!entity % decls "(features? & char-repertoire?)">
<!element dsssl-specification O O (%decls;, style-specification+)>
<!attlist dsssl-specification
dsssl name #fixed dsssl-specification
>
<!element style-specification - O (%decls;, style*)>
<!attlist style-specification
dsssl name #fixed style-specification
id id #required
partial (partial | complete) complete
use idrefs #implied
>
<!element char-repertoire - o empty>
<!attlist char-repertoire
dsssl name #fixed character-repertoire
name cdata #required
>
<!element features - o (#pcdata)>
<!element style - - rcdata>
<!attlist style
dsssl name #fixed style-specification-body
>
]>
<dsssl-specification>
<style-specification id=common partial>
<char-repertoire name="UNREGISTERED::SGML Open//Character Repertoire::ISO/IEC 10646">
<features>table</features>
<style>
(element quote
(sosofo-append
(make character
char: #\left-double-quotation-mark)
(process-children)
(make character
char: #\right-double-quotation-mark)))
(element emph
(make sequence
font-weight: 'bold))
(define monospace-font-family "iso-monospace")
(element code
(make sequence
font-family: monospace-font-family))
(declare-initial-value writing-mode 'left-to-right)
(declare-initial-value font-size 12pt)
(declare-initial-value line-spacing 14pt)
(declare-initial-value font-family "iso-serif")
(define-unit mm .001m)
(define-unit in 25.4mm)
(define-unit pt (/ 1in 72))
(define-unit pi (/ 1in 6))
(define paragraph-indent 20pt)
(element p
(make paragraph
first-line-start-indent: (if (first-sibling?)
0pt
paragraph-indent)))
(define chapter-title-style
(style
font-size: 18pt
line-spacing: 24pt
quadding: 'center))
(element (chapter title)
(sosofo-append
(make paragraph
use: chapter-title-style
span: 2
(literal "Chapter "
(format-number (child-number) "1")))
(make paragraph
use: chapter-title-style
span: 2)))
(element (section title)
(make paragraph
quadding: 'start
(format-number-list (hierarchical-number '("CHAPTER" "SECTION"))
"1"
".")
(literal ". ")
(process-children)))
(define indent-step 60pt)
(element ol
(make sequence
start-indent: (+ (inherited-start-indent)
indent-step)))
(element li
(make paragraph
first-line-start-indent: (- indent-step)
(make line-field
field-width: indent-step
field-align: 'start
(literal (format-number (child-number)
(if (have-ancestor? '("OL" "OL"))
"a"
"1"))))
(process-children)))
(element dl
(make table
table-width: (- (display-size)
(inherited-start-indent)
(inherited-end-indent))
(make sequence
start-indent: 0pt
end-indent: 0pt
(make table-column
column-number: 2
width: (table-unit 1))
(process-children))))
(element dt
(make table-cell
starts-row?: #t))
(element dd
(make table-cell
start-indent: 10pt
ends-row?: #t))
(element caption
(make paragraph))
(element artwork
(make external-graphic
display?: #t
scale: 'to-fit
notation-system-id: (notation-generated-system-id
(entity-notation
(attribute-string "CONTENT")))
system-id: (entity-generated-system-id
(attribute-string "CONTENT"))))
(element xref
(with-mode xref
(process-node-list (element-with-id (attribute-string "REFID")))))
</style>
</style-specification>
<style-specification id=softcopy use=common>
<style>
(mode xref
(element chapter
(make link
destination: (current-node-address)
color: blue-color
(process-first-descendant 'title)))
(element figure
(make multi-mode
multi-modes: '(#f popup)
principal-mode-simultaneous?: #t
(process-first-descendant 'caption)
(make vertical-scroll
label: 'popup
(with-mode #f
(process-node-list (current-node)))))))
(define rgb
(color-space "ISO/IEC 10179:1995//Color Space Family::Device RGB"))
(define blue-color (rgb 0 0 1))
(element doc
(make vertical-scroll
left-margin: 20pt))
(element (doc title)
(make paragraph
font-size: 28pt
line-spacing: 32pt
quadding: 'center))
(element note
(make multi-mode
multi-modes: '(#f expand)
(make marginalia
marginalia-side: 'start
(make character
font-name: "UNREGISTERED::SGML Open//Font::Icons"
glyph-id: "UNREGISTERED::SGML Open//Glyph::Light bulb icon"))
(make vertical-scroll
label: 'expand
(make paragraph))))
</style>
</style-specification>
<style-specification id=hardcopy use=common>
<features>page multi-column query expression</features>
<style>
(define chapter-opening-sink 12pi)
(define column-measure 20pi)
(define column-separation 2pi)
(define page-width 210mm)
(define page-height 297mm)
(define inner-margin 6pi)
(define column-depth 54pi)
(define top-margin 9pi) ; top of page to top of column
(define header-margin 5pi) ; top of page to top of header
(define header-line-spacing 12pt)
(define footer-line-spacing 12pt)
(define folio-margin 5pi) ; from bottom of folio to bottom of page
(define page-region-width
(+ column-measure column-separation column-measure))
(define footer-height
(- page-height top-margin column-depth folio-margin))
(define header-height
(- top-margin header-margin))
(define normal-page-region-height
(- page-height header-margin folio-margin))
(element (doc title)
(sosofo-append
(make page-sequence
initial-page-models: (list chapter-first-page)
(make paragraph
font-size: 28pt
line-spacing: 32pt
quadding: 'center))
(table-of-contents)))
(declare-reference-value-type chapter-title)
(declare-reference-value-type section-title)
(element (chapter title)
(sosofo-append
(make paragraph
use: chapter-title-style
span: 2
(literal "Chapter "
(format-number (child-number) "1")))
(make paragraph
use: chapter-title-style
span: 2
chapter-title: (process-children))))
(element (section title)
(make paragraph
quadding: 'start
section-title: (process-children)
(format-number-list (hierarchical-number '("CHAPTER" "SECTION"))
"1"
".")
(literal ". ")
(process-children)))
(define-page-model chapter-first-page
(region
(x-origin inner-margin)
(y-origin folio-margin)
(width page-region-width)
(height (- page-height top-margin chapter-opening-sink folio-margin))
(flow #f)
(footer
(contents-alignment 'end)
(height footer-height)
(generate (make-page-footer)))
(filling-direction 'top-to-bottom)))
(define-page-model chapter-recto-page
(region
(x-origin inner-margin)
(y-origin folio-margin)
(width page-region-width)
(height normal-page-region-height)
(header
(generate (make paragraph
line-spacing: header-line-spacing
quadding: 'end
font-posture: 'italic
(asis-indirect-sosofo
(find-reference-value 'section-title))))
(contents-alignment 'start)
(height header-height))
(footer
(contents-alignment 'end)
(height footer-height)
(generate (make-page-footer)))
(flow #f))
(filling-direction 'top-to-bottom))
(define-page-model chapter-verso-page
(region
(x-origin (- page-width inner-margin page-region-width))
(y-origin folio-margin)
(width page-region-width)
(height normal-page-region-height)
(header
(generate (make paragraph
line-spacing: header-line-spacing
quadding: 'start
font-posture: 'italic
(asis-indirect-sosofo
(find-reference-value 'chapter-title))))
(contents-alignment start)
(height header-height))
(footer
(contents-alignment 'end)
(height footer-height)
(generate (make-page-footer)))
(flow #f))
(filling-direction 'top-to-bottom))
(define (find-reference-value type)
(first-area-reference-value type
default: (last-preceding-area-reference-value
type)))
(define (make-page-footer)
(make paragraph
quadding: 'center
line-spacing: footer-line-spacing
(number-indirect-sosofo (page-number))))
(element chapter
(make page-sequence
force-first-page: 'front
initial-page-models: (list chapter-first-page)
repeat-page-models: (list chapter-verso-page
chapter-recto-page)
blank-back-page-model: chapter-verso-page
(make column-set-sequence
column-set-model: double-columns)))
(define-column-set-model double-columns
(column-subset
(column
(x-origin 0pt)
(width column-measure))
(column
(x-origin (+ column-measure column-separation))
(width column-measure))
(flow
(main body-text)
(figure top-float bottom-float)
(footnote footnote))))
(element figure
(sync (make anchor
display?: #t)
(make sequence
keep: #t
label: 'figure
span: (if (equal? (attribute-string "SPAN")
"SPAN")
2
1))
type: 'page
max: 1))
(define footnote-font-size 8pt)
(define superscript-shift-ems .4) ; ems to shift up superscript for footnote
;; factor by which to multiply font size for superscripts
(define superscript-size-factor .6)
(element note
(let ((footnote-label
(literal (format-number (note-number) "1"))))
(sync (make sequence
font-size: (* (inherited-font-size)
superscript-size-factor)
placement-offset: (- (* (inherited-font-size)
superscript-shift-ems))
footnote-label)
(make paragraph
label: 'footnote
font-size: footnote-font-size
footnote-label
(literal ". ")
(process-children))
type: 'page)))
;; Footnotes are numbered per chapter.
(define (note-number)
(list-ref (element-number-list '("CHAPTER" "NOTE"))
1))
(mode xref
(element figure
(sosofo-append
(literal "Figure "
(format-number (element-number) "1"))
(literal ", page")
(number-indirect-sosofo (page-number))))
(element chapter
(sosofo-append
(literal "Chapter "
(format-number (child-number) "1")
", ")
(make sequence
font-posture: 'italic
(process-first-descendant 'title))
(literal ", page")
(number-indirect-sosofo (page-number)))))
(define (table-of-contents)
(make page-sequence
force-first-page: 'front
repeat-page-models: (list chapter-first-page)
(make sequence
(make paragraph
use: chapter-title-style
(literal "Table of Contents"))
(with-mode toc
(process-node-list (q-element 'title (tree-root (current-node))))))))
(mode toc
(element title
(make paragraph
(literal (format-number (ancestor-child-number "CHAPTER") "1"))
(if (have-ancestor? "SECTION")
(literal "."
(format-number (ancestor-child-number "SECTION") "1"))
(empty-sosofo))
(literal ". "))
(process-children)
(make leader (literal "."))
(number-indirect-sosofo (page-number))))
</style>
</style-specification>
<style-specification id=hardcopy2 use=hardcopy>
<style>
(element xref
(map-constructor (let ((x (current-node)))
(lambda()
(process-xref x)))
(element-with-id (attribute-string "REFID"))))
(define (process-xref xref-node)
(if (match-element? 'chapter (current-node))
(with-mode xref
(process-node-list (current-node)))
(sosofo-append
(literal "Figure "
(format-number (element-number) "1"))
(general-indirect-sosofo page-ref-if-different
(page-number first-area-of-node: (current-node))
(page-number first-area-of-node: xref-node)))))
(define (page-ref-if-different figure-page current-page)
(if (equal? figure-page current-page)
(empty-sosofo)
(literal ", page "
(format-number figure-page "1"))))
</style>
</style-specification>
</dsssl-specification>
<!-- Keep this comment at the end of the file
Local variables:
mode: dsssl
sgml-indent-step:0
sgml-indent-data:nil
End:
-->