From 7d8ff0059e749f13803b4a8b72a1a102e2d5d48f Mon Sep 17 00:00:00 2001 From: gferg <> Date: Wed, 2 Aug 2000 17:37:59 +0000 Subject: [PATCH] updated --- LDP/builder/dsssl/ldp.dsl | 69 +++++++++++++++++++++++++++++++++++---- 1 file changed, 63 insertions(+), 6 deletions(-) diff --git a/LDP/builder/dsssl/ldp.dsl b/LDP/builder/dsssl/ldp.dsl index b8f99c6b..04d7abf8 100644 --- a/LDP/builder/dsssl/ldp.dsl +++ b/LDP/builder/dsssl/ldp.dsl @@ -19,6 +19,63 @@ ;; customize the print stylesheet ;; ============================== +(declare-characteristic preserve-sdata? + ;; this is necessary because right now jadetex does not understand + ;; symbolic entities, whereas things work well with numeric entities. + "UNREGISTERED::James Clark//Characteristic::preserve-sdata?" + #f) + +(define %generate-article-toc% + ;; Should a Table of Contents be produced for Articles? + #t) + +(define (toc-depth nd) + 2) + +(define %generate-article-titlepage-on-separate-page% + ;; Should the article title page be on a separate page? + #t) + +(define %section-autolabel% + ;; Are sections enumerated? + #t) + +(define %footnote-ulinks% + ;; Generate footnotes for ULinks? + #f) + +(define %bop-footnotes% + ;; Make "bottom-of-page" footnotes? + #f) + +(define %body-start-indent% + ;; Default indent of body text + 0pi) + +(define %para-indent-firstpara% + ;; First line start-indent for the first paragraph + 0pt) + +(define %para-indent% + ;; First line start-indent for paragraphs (other than the first) + 0pt) + +(define %block-start-indent% + ;; Extra start-indent for block-elements + 0pt) + +(define formal-object-float + ;; Do formal objects float? + #t) + +(define %hyphenation% + ;; Allow automatic hyphenation? + #t) + +(define %admon-graphics% + ;; Use graphics in admonitions? + #f) + @@ -33,20 +90,19 @@ -;; this is necessary because right now jadetex does not understand -;; symbolic entities, whereas things work well with numeric entities. (declare-characteristic preserve-sdata? + ;; this is necessary because right now jadetex does not understand + ;; symbolic entities, whereas things work well with numeric entities. "UNREGISTERED::James Clark//Characteristic::preserve-sdata?" #f) -;; put the legal notice in a separate file (define %generate-legalnotice-link% + ;; put the legal notice in a separate file #t) -;; use graphics in admonitions, and have their path be "stylesheet-images" -;; NO: they do not yet look very good (define %admon-graphics-path% - "./stylesheet-images/") + ;; use graphics in admonitions, set their + "../images/") (define %admon-graphics% #f) @@ -70,6 +126,7 @@ #t) (define (chunk-skip-first-element-list) + ;; forces the Table of Contents on separate page '()) (define %root-filename%