/[defdoc]/DefDoc/src/elements/toplevel.lisp
ViewVC logotype

Contents of /DefDoc/src/elements/toplevel.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Sun Feb 15 05:01:44 2004 UTC (10 years, 2 months ago) by rjain
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +3 -0 lines
additions and tweaks for the defdoc-generated defdoc website:
elements that are abbreviations for more complex sequences of elements
hyperlink document element
small-caps style element
subtitle in documents
1 (in-package :defdoc.elements)
2
3 (defclass toplevel-element (vertical-container wrapping-container-mixin)
4 ((title :initform nil
5 :initarg title
6 :accessor title)
7 (subtitle :initform nil
8 :initarg subtitle
9 :accessor subtitle)
10 (author :initform nil
11 :initarg author
12 :accessor author)
13 (date :initform nil
14 :initarg date
15 :accessor date)
16 (copyright :initform nil
17 :initarg copyright
18 :accessor copyright)))
19
20 (defclass toplevel-subelement (vertical-container)
21 ((toplevel-element :initarg toplevel-element)))
22
23 (defclass document (toplevel-element)
24 ((sub-container-class :initform 'page)
25 (title-page-p :type boolean
26 :initform nil
27 :initarg title-page-p
28 :accessor title-page-p
29 :documentation "Whether or not to create a title page if this document is
30 broken into multiple pages.")))
31
32 (defclass page (toplevel-subelement)
33 ((page-number :type integer
34 :initarg page-number
35 :accessor page-number)))
36
37 (defclass report (document)
38 ((title-page-p :initform t)))
39
40 (defclass book (document)
41 ((title-page-p :initform t)))
42
43 (defclass article (document)
44 ())
45
46 (defclass presentation (toplevel-element)
47 ((sub-container-class :initform 'slide)
48 (title-slide-p :type boolean
49 :initform t
50 :initarg title-slide-p
51 :accessor title-slide-p)))
52
53 (defclass slide (toplevel-subelement)
54 ((slide-number :type integer
55 :initarg slide-number
56 :accessor slide-number)))

  ViewVC Help
Powered by ViewVC 1.1.5