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