1 files changed, 49 insertions, 0 deletions
diff --git a/doc/docbook.dsl b/doc/docbook.dsl
new file mode 100644
index 0000000..e8fabe0
--- /dev/null
+++ b/doc/docbook.dsl
@@ -0,0 +1,49 @@
+<!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>