February 2004 - defdoc-cvs@common-lisp.net

[defdoc-cvs] CVS update: DefDoc/contrib/project-website/COPYRIGHT DefDoc/contrib/project-website/defdoc.contrib.project-website.asd DefDoc/contrib/project-website/project-website.lisp
by Rahul Jain 16 Feb '04

16 Feb '04

Update of /project/defdoc/cvsroot/DefDoc/contrib/project-website In directory common-lisp.net:/tmp/cvs-serv32032/contrib/project-website Added Files: COPYRIGHT defdoc.contrib.project-website.asd project-website.lisp Log Message: add a contrib for generating a project website Date: Mon Feb 16 00:45:35 2004 Author: rjain

1 0

[defdoc-cvs] CVS update: DefDoc/src/layout/flexible-layout-engine.lisp
by Rahul Jain 16 Feb '04

16 Feb '04

Update of /project/defdoc/cvsroot/DefDoc/src/layout In directory common-lisp.net:/tmp/cvs-serv31682/src/layout Modified Files: flexible-layout-engine.lisp Log Message: get rid of rogue whitespace Date: Mon Feb 16 00:45:19 2004 Author: rjain Index: DefDoc/src/layout/flexible-layout-engine.lisp diff -u DefDoc/src/layout/flexible-layout-engine.lisp:1.1.1.1 DefDoc/src/layout/flexible-layout-engine.lisp:1.2 --- DefDoc/src/layout/flexible-layout-engine.lisp:1.1.1.1 Sun Dec 7 18:27:07 2003 +++ DefDoc/src/layout/flexible-layout-engine.lisp Mon Feb 16 00:45:19 2004 @@ -17,7 +17,7 @@ previous-previous-penalty) (completed-element section-header previous-element) - (previous-previous-penalty *lone-heading-penalty* + (previous-previous-penalty *lone-heading-penalty* previous-penalty) (previous-element (pop contents) current-element)

1 0

[defdoc-cvs] CVS update: DefDoc/src/layout/engine-framework.lisp
by Rahul Jain 16 Feb '04

16 Feb '04

Update of /project/defdoc/cvsroot/DefDoc/src/layout In directory common-lisp.net:/tmp/cvs-serv24782/src/layout Modified Files: engine-framework.lisp Log Message: call PREPARE directly on the toplevel element instead of on its subelements so that subclasses can hook in Date: Mon Feb 16 00:44:57 2004 Author: rjain Index: DefDoc/src/layout/engine-framework.lisp diff -u DefDoc/src/layout/engine-framework.lisp:1.2 DefDoc/src/layout/engine-framework.lisp:1.3 --- DefDoc/src/layout/engine-framework.lisp:1.2 Sun Feb 15 00:01:45 2004 +++ DefDoc/src/layout/engine-framework.lisp Mon Feb 16 00:44:57 2004 @@ -262,8 +262,7 @@ (let ((*vertical-sequence* '()) (*vertical-sequence-tail* '()) (*header-level* 1)) - (dolist (subelement (contents input)) - (prepare subelement output)) + (prepare input output) (compute-breaks input *vertical-sequence* output))) (defmethod convert :around ((input toplevel-element) (output t))

1 0

[defdoc-cvs] CVS update: DefDoc/src/defdoc.asd
by Rahul Jain 16 Feb '04

16 Feb '04

Update of /project/defdoc/cvsroot/DefDoc/src In directory common-lisp.net:/tmp/cvs-serv12194/src Modified Files: defdoc.asd Log Message: add the new files from the rejiggering of class hierarchy to the defsystem form Date: Mon Feb 16 00:44:20 2004 Author: rjain Index: DefDoc/src/defdoc.asd diff -u DefDoc/src/defdoc.asd:1.4 DefDoc/src/defdoc.asd:1.5 --- DefDoc/src/defdoc.asd:1.4 Sun Feb 15 00:24:14 2004 +++ DefDoc/src/defdoc.asd Mon Feb 16 00:44:08 2004 @@ -24,12 +24,14 @@ :depends-on ("basic-elements")) (:file "structural" :depends-on ("basic-elements")) - (:file "style" + (:file "textual" :depends-on ("basic-elements")) + (:file "style" + :depends-on ("textual")) (:file "abbreviations" :depends-on ("basic-elements")) (:file "links" - :depends-on ("basic-elements"))) + :depends-on ("textual"))) :depends-on (:layout-core)) #+nil (:module :font-metrics

1 0

[defdoc-cvs] CVS update: Directory change: DefDoc/contrib/project-website
by Rahul Jain 16 Feb '04

16 Feb '04

Update of /project/defdoc/cvsroot/DefDoc/contrib/project-website In directory common-lisp.net:/tmp/cvs-serv7463/contrib/project-website Log Message: Directory /project/defdoc/cvsroot/DefDoc/contrib/project-website added to the repository Date: Mon Feb 16 00:41:58 2004 Author: rjain New directory DefDoc/contrib/project-website added

1 0

[defdoc-cvs] CVS update: Directory change: DefDoc/contrib
by Rahul Jain 16 Feb '04

16 Feb '04

Update of /project/defdoc/cvsroot/DefDoc/contrib In directory common-lisp.net:/tmp/cvs-serv3104/contrib Log Message: Directory /project/defdoc/cvsroot/DefDoc/contrib added to the repository Date: Mon Feb 16 00:40:21 2004 Author: rjain New directory DefDoc/contrib added

1 0

[defdoc-cvs] CVS update: DefDoc/src/elements/textual.lisp DefDoc/src/elements/links.lisp DefDoc/src/elements/style.lisp
by Rahul Jain 16 Feb '04

16 Feb '04

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

1 0

[defdoc-cvs] CVS update: DefDoc/src/COPYRIGHT
by Rahul Jain 15 Feb '04

15 Feb '04

Update of /project/defdoc/cvsroot/DefDoc/src In directory common-lisp.net:/tmp/cvs-serv9376/src Added Files: COPYRIGHT Log Message: copyright notice Date: Sun Feb 15 14:08:18 2004 Author: rjain

1 0

[defdoc-cvs] CVS update: DefDoc/website/website.lisp
by Rahul Jain 15 Feb '04

15 Feb '04

Update of /project/defdoc/cvsroot/DefDoc/website In directory common-lisp.net:/tmp/cvs-serv7168/website Modified Files: website.lisp Log Message: add info about mailing lists Date: Sun Feb 15 03:48:19 2004 Author: rjain Index: DefDoc/website/website.lisp diff -u DefDoc/website/website.lisp:1.2 DefDoc/website/website.lisp:1.3 --- DefDoc/website/website.lisp:1.2 Sun Feb 15 00:26:36 2004 +++ DefDoc/website/website.lisp Sun Feb 15 03:48:19 2004 @@ -13,6 +13,9 @@ (unless (eql (aref target (1- (length target))) #\/) "&rev=HEAD&content-type=text/vnd.viewcvs-markup"))) +(defun gen-mailing-list-link (target) + (concatenate 'string "/mailman/listinfo/defdoc-" target)) + (defdoc index (document title (doc DefDoc) subtitle "An extensible, dynamic document creation system" author "Rahul Jain") @@ -40,4 +43,10 @@ "current context and allow texual content to be entered unquoted.") (paragraph () "This site is actually a "(DefDoc)" " - (link (url (gen-src-link "/../website/website.lisp")) "document")"."))) + (link (url (gen-src-link "/../website/website.lisp")) "document")".")) + (section (title "Communication") + (paragraph () + "There are 3 mailing lists for "(DefDoc)", " + (link (url (gen-mailing-list-link "announce")) "defdoc-announce")", " + (link (url (gen-mailing-list-link "devel")) "defdoc-devel")", and " + (link (url (gen-mailing-list-link "cvs")) "defdoc-cvs")".")))

1 0

[defdoc-cvs] CVS update: DefDoc/src/layout/html-engine.lisp
by Rahul Jain 15 Feb '04

15 Feb '04

Update of /project/defdoc/cvsroot/DefDoc/src/layout In directory common-lisp.net:/tmp/cvs-serv14849 Modified Files: html-engine.lisp Log Message: oops, don't output "-" when there is no subtitle Date: Sun Feb 15 00:35:04 2004 Author: rjain Index: DefDoc/src/layout/html-engine.lisp diff -u DefDoc/src/layout/html-engine.lisp:1.4 DefDoc/src/layout/html-engine.lisp:1.5 --- DefDoc/src/layout/html-engine.lisp:1.4 Sun Feb 15 00:20:53 2004 +++ DefDoc/src/layout/html-engine.lisp Sun Feb 15 00:35:04 2004 @@ -235,8 +235,9 @@ (with-html-block+ (1 :mandatory :HEAD) (with-html-block (:TITLE) (convert-to-text *document-title*) - (write-string " - " *html-stream*) - (convert-to-text *document-subtitle*)) + (when *document-subtitle* + (write-string " - " *html-stream*) + (convert-to-text *document-subtitle*))) (dolist (element *html-head-elements*) (pprint-newline :linear *html-stream*) (write-html-tag* element)))

1 0