/[defdoc]/DefDoc/src/layout/output-formats.lisp
ViewVC logotype

Contents of /DefDoc/src/layout/output-formats.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Sun Dec 7 23:27:07 2003 UTC (10 years, 4 months ago) by rjain
Branch: MAIN, defdoc
CVS Tags: start, HEAD
Changes since 1.1: +0 -0 lines
initial import

1 (in-package :defdoc.layout)
2
3 ;;;
4 ;;; Format types for the output destination
5 ;;;
6
7 (defclass pretty-printable-mixin ()
8 ((print-pretty :type boolean
9 :initform t
10 :initarg print-pretty
11 :accessor print-pretty)
12 (print-right-margin :type (integer 1)
13 :initform 72
14 :initarg print-right-margin
15 :accessor print-right-margin)
16 (print-miser-width :type (or null (integer 0))
17 :initform 20
18 :initarg print-miser-width
19 :accessor print-miser-width)))
20
21 (defclass auxiliary-output (output-destination)
22 ((main-output :initarg main-output
23 :accessor main-output))
24 (:documentation "A destination for auxiliary output of the layout engine."))
25
26 (defclass log-output (auxiliary-output)
27 ()
28 (:documentation "A destination for output about the operations of the layout engine."))
29
30 (defclass html-output (output-destination pretty-printable-mixin)
31 ())
32
33 (defclass html-output-with-v3.2-styles (html-output)
34 ())
35
36 (defclass html-output-with-embedded-css (html-output)
37 ())
38
39 (defclass html-output-with-css (html-output)
40 ())
41
42 (defclass single-page-html-output (html-output no-layout)
43 ())
44
45 (defclass single-page-html-output-with-embedded-css
46 (single-page-html-output html-output-with-embedded-css)
47 ()
48 (:documentation "A recommended mixture of the various html-output subclasses."))
49
50 (defclass multi-page-html-output (html-output flexible-layout output-pages-are-files)
51 ((page-size :initform (make-spring 150 words + 50 words - 50 words))
52 (output-file-suffix :initform ".html")))
53
54 (defclass multi-page-html-output-with-css (multi-page-html-output html-output-with-css)
55 ()
56 (:documentation "A recommended mixture of the various html-output subclasses."))
57
58 (defclass css-output (auxiliary-output pretty-printable-mixin)
59 ((print-pretty :initform nil)))
60
61 (defclass css-v2-output (css-output)
62 ())
63
64 (defclass plain-text-output (output-destination fixed-width-layout)
65 ((page-width :initform (make-length 72 'em))))
66
67 (defclass single-page-plain-text-output (plain-text-output)
68 ())
69
70 (defclass multi-page-plain-text-output (plain-text-output)
71 ((page-height :initform (make-spring 25 em))))
72
73 (defclass multi-file-plain-text-output
74 (multi-page-plain-text-output output-pages-are-files)
75 ((page-height :initform (make-spring 60 em))
76 (output-file-suffix :initform ".txt")))
77
78 (defclass dvi-output (output-destination fixed-layout)
79 ())
80
81 (defclass pdf-output (output-destination fixed-layout)
82 ())
83
84 (defclass ps-output (output-destination fixed-layout pretty-printable-mixin)
85 ((print-pretty :initform nil)))
86
87 (defclass latex-output (output-destination no-layout pretty-printable-mixin)
88 ())

  ViewVC Help
Powered by ViewVC 1.1.5