[ Next | Previous ]
Some DSSSL stylesheet snippets

(element emph
  (make sequence
    font-weight: 'bold))

(define monospace-font-family "Courier")

(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 "Helvetica")

(define paragraph-indent 24pt)

(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 (ancestor-child-number) "1")))
    (make paragraph
      use: chapter-title-style
      span: 2)))

(define (expt b n)
  (if (= n 0)
      1
      (* b (expt b (- n 1)))))

[ Next | Previous ]