[defdoc-cvs] CVS DefDoc/contrib/project-website
rjain
rjain at common-lisp.net
Thu Oct 11 16:22:10 UTC 2007
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))
More information about the Defdoc-cvs
mailing list