From a50696c9e1fb181b6ff938aed929ada8582ea176 Mon Sep 17 00:00:00 2001 From: Peter Eisentraut Date: Thu, 4 Oct 2001 22:30:14 +0000 Subject: [PATCH] Finetuning for legalnotice in print output. Add some "ASCII markup" for text output. --- doc/src/sgml/stylesheet.dsl | 49 ++++++++++++++++++++++++++++++++++++- 1 file changed, 48 insertions(+), 1 deletion(-) diff --git a/doc/src/sgml/stylesheet.dsl b/doc/src/sgml/stylesheet.dsl index db655f47df..9439050010 100644 --- a/doc/src/sgml/stylesheet.dsl +++ b/doc/src/sgml/stylesheet.dsl @@ -1,4 +1,4 @@ - + @@ -121,6 +121,32 @@ (cond (tex-backend "eps") (rtf-backend "ai"))) ;; ApplixWare? +;; The rules in the default stylesheet for productname format it as +;; a paragraph. This may be suitable for productname directly +;; within *info, but it's nonsense when productname is used +;; inline, as we do. +(mode set-titlepage-recto-mode + (element (para productname) ($charseq$))) +(mode set-titlepage-verso-mode + (element (para productname) ($charseq$))) +(mode book-titlepage-recto-mode + (element (para productname) ($charseq$))) +(mode book-titlepage-verso-mode + (element (para productname) ($charseq$))) +;; Add more here if needed... + +;; Format legalnotice justified and with space between paragraphs. +(mode book-titlepage-verso-mode + (element (legalnotice para) + (make paragraph + use: book-titlepage-verso-style ;; alter this if ever it needs to appear elsewhere + quadding: %default-quadding% + line-spacing: (* 0.8 (inherited-line-spacing)) + font-size: (* 0.8 (inherited-font-size)) + space-before: (* 0.8 %para-sep%) + space-after: (* 0.8 %para-sep%) + (process-children)))) + ]]> -- 2.40.0