+++ /dev/null
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY docbook.dsl PUBLIC
- "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
-]>
-
-<style-sheet>
-<style-specification use="docbook">
-<style-specification-body>
-
-;; 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)))
-
-</style-specification-body>
-</style-specification>
-<external-specification id="docbook" document="docbook.dsl">
-</style-sheet>