Update of /project/defdoc/cvsroot/DefDoc/src/elements In directory common-lisp.net:/tmp/cvs-serv25120/src/elements Modified Files: package.lisp style.lisp toplevel.lisp Added Files: abbreviations.lisp links.lisp Log Message: 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 Date: Sun Feb 15 00:01:44 2004 Author: rjain Index: DefDoc/src/elements/package.lisp diff -u DefDoc/src/elements/package.lisp:1.1.1.1 DefDoc/src/elements/package.lisp:1.2 --- DefDoc/src/elements/package.lisp:1.1.1.1 Sun Dec 7 18:27:11 2003 +++ DefDoc/src/elements/package.lisp Sun Feb 15 00:01:44 2004 @@ -74,6 +74,7 @@ #:toplevel-subelement #:document #:title + #:subtitle #:author #:copyright #:date @@ -98,7 +99,16 @@ ;;; style.lisp #:bold - #:italic)) + #:italic + #:small-caps + + ;;; abbreviations.lisp + #:abbreviation + #:defabbreviation + + ;;; links.lisp + #:link + #:url)) (defpackage :defdoc.elements.section-header (:use) Index: DefDoc/src/elements/style.lisp diff -u DefDoc/src/elements/style.lisp:1.1.1.1 DefDoc/src/elements/style.lisp:1.2 --- DefDoc/src/elements/style.lisp:1.1.1.1 Sun Dec 7 18:27:11 2003 +++ DefDoc/src/elements/style.lisp Sun Feb 15 00:01:44 2004 @@ -14,3 +14,9 @@ () (:documentation "The contents of this container are to toggle the use of italicization relative to its parent.")) + +(defclass small-caps (style-container) + () + (:documentation "The contents of this container are ideally to render +with lowercase letters using uppercase glpyhs scaled to be as tall as +the x-height, while preserving weighting.")) Index: DefDoc/src/elements/toplevel.lisp diff -u DefDoc/src/elements/toplevel.lisp:1.1.1.1 DefDoc/src/elements/toplevel.lisp:1.2 --- DefDoc/src/elements/toplevel.lisp:1.1.1.1 Sun Dec 7 18:27:11 2003 +++ DefDoc/src/elements/toplevel.lisp Sun Feb 15 00:01:44 2004 @@ -4,6 +4,9 @@ ((title :initform nil :initarg title :accessor title) + (subtitle :initform nil + :initarg subtitle + :accessor subtitle) (author :initform nil :initarg author :accessor author)