]> ;; your stuff goes here... (define %generate-article-titlepage% #t) (define %generate-article-toc% #t) (define %generate-article-titlepage-on-separate-page% #t) (define %generate-article-toc-on-titlepage% #f) (define %article-page-number-restart% #t) (define %chapter-autolabel% #t) (define %section-autolabel% #t) (define (toc-depth nd) 3) ; === Media objects === (define preferred-mediaobject-extensions ;; this magic allows to use different graphical (list "eps")) ;; formats for printing and putting online (define acceptable-mediaobject-extensions '()) (define preferred-mediaobject-notations (list "EPS")) (define acceptable-mediaobject-notations (list "linespecific")) ; === Rendering === (define %head-after-factor% 0.2) ;; not much whitespace after orderedlist head (define ($paragraph$) ;; more whitespace after paragraph than before (make paragraph first-line-start-indent: (if (is-first-para) %para-indent-firstpara% %para-indent%) space-before: (* %para-sep% 4) space-after: (/ %para-sep% 4) quadding: %default-quadding% hyphenate?: %hyphenation% language: (dsssl-language-code) (process-children)))