Update of /project/defdoc/cvsroot/DefDoc/contrib/project-website In directory clnet:/tmp/cvs-serv20352/contrib/project-website
Modified Files: project-website.lisp Log Message: add "Dependencies" section
--- /project/defdoc/cvsroot/DefDoc/contrib/project-website/project-website.lisp 2004/02/16 05:45:35 1.1 +++ /project/defdoc/cvsroot/DefDoc/contrib/project-website/project-website.lisp 2007/10/11 16:22:10 1.2 @@ -7,7 +7,8 @@ #:short-description #:documentation #:code - #:communication)) + #:communication + #:dependencies))
(in-package :defdoc.contrib.project-website)
@@ -24,12 +25,18 @@ (defclass communication (section) ((title :allocation :class :initform "Communication")))
+(defclass dependencies (section) + ((title :allocation :class :initform "Dependencies"))) + +(defmethod convert ((input dependencies) (output t)) + (break) + (convert (make-instance 'itemized-list (contents input)) output))
(defgeneric section-before-p (o1 o2))
#.`(progn ,@ - (let ((order '(documentation code communication))) + (let ((order '(documentation code dependencies communication))) (loop for (prior . following-list) on order nconc (loop for following in following-list collect `(defmethod section-before-p ((o1 ,prior) (o2 ,following))