[defdoc-cvs] CVS update: DefDoc/src/elements/textual.lisp DefDoc/src/elements/links.lisp DefDoc/src/elements/style.lisp

[Rahul Jain]

Update of /project/defdoc/cvsroot/DefDoc/src/elements
In directory common-lisp.net:/tmp/cvs-serv29729/src/elements

Modified Files:
	links.lisp style.lisp 
Added Files:
	textual.lisp 
Log Message:
add bibliographical citation class, rejigger class hierarchy to have a common texual element superclass

Date: Sun Feb 15 21:13:23 2004
Author: rjain



Index: DefDoc/src/elements/links.lisp
diff -u DefDoc/src/elements/links.lisp:1.1 DefDoc/src/elements/links.lisp:1.2
--- DefDoc/src/elements/links.lisp:1.1	Sun Feb 15 00:01:44 2004
+++ DefDoc/src/elements/links.lisp	Sun Feb 15 21:13:23 2004
@@ -1,5 +1,8 @@
 (in-package :defdoc.elements)
 
-(defclass link (horizontal-element horizontal-container
-                flowing-container-mixin)
+(defclass link (texual-structure-element)
   ((url :initarg url :type string :accessor url)))
+
+(defclass citation (texual-structure-element)
+  ((reference :initarg reference :accessor reference)
+   (location :initarg location :accessor location)))


Index: DefDoc/src/elements/style.lisp
diff -u DefDoc/src/elements/style.lisp:1.2 DefDoc/src/elements/style.lisp:1.3
--- DefDoc/src/elements/style.lisp:1.2	Sun Feb 15 00:01:44 2004
+++ DefDoc/src/elements/style.lisp	Sun Feb 15 21:13:23 2004
@@ -1,21 +1,15 @@
 (in-package :defdoc.elements)
 
-(defclass style-container (horizontal-element horizontal-container
-                           flowing-container-mixin)
-  ()
-  (:documentation "Abstract class for containers that merely give stylistic properties to
-their contents."))
-
-(defclass bold (style-container)
+(defclass bold (texual-structure-element)
   ()
   (:documentation "The contents of this container are to use a bolder font (if possible)."))
 
-(defclass italic (style-container)
+(defclass italic (texual-structure-element)
   ()
   (:documentation "The contents of this container are to toggle the use of italicization
 relative to its parent."))
 
-(defclass small-caps (style-container)
+(defclass small-caps (texual-structure-element)
   ()
   (:documentation "The contents of this container are ideally to render
 with lowercase letters using uppercase glpyhs scaled to be as tall as