<!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:

-->