/[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 - (hide 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 rjain 1.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 rjain 1.2 (subtitle :initform nil
8     :initarg subtitle
9     :accessor subtitle)
10 rjain 1.1 (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