[ 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)))))