/[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 - (hide 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 rjain 1.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