[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