[defdoc-cvs] CVS DefDoc/website

[rjain]

Update of /project/defdoc/cvsroot/DefDoc/website
In directory clnet:/tmp/cvs-serv20572

Modified Files:
	website.lisp 
Log Message:
Use project-website document class from contribs


--- /project/defdoc/cvsroot/DefDoc/website/website.lisp	2004/02/15 08:48:19	1.3
+++ /project/defdoc/cvsroot/DefDoc/website/website.lisp	2007/10/11 16:24:19	1.4
@@ -1,7 +1,8 @@
-(asdf:operate 'asdf:load-op :defdoc)
+(asdf:operate 'asdf:load-op :defdoc.contrib.project-website)
 
 (defpackage :defdoc.website
-    (:use :defdoc :defdoc.elements :defdoc.layout :common-lisp :defdoc.frontends.basic))
+    (:use :defdoc :defdoc.elements :defdoc.layout :common-lisp :defdoc.frontends.basic
+          :defdoc.contrib.project-website))
 
 (in-package :defdoc.website)
 
@@ -16,37 +17,40 @@
 (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")
-  (section (title "Documentation")
-           (paragraph ()
-                      "I have written up a document that is an overview of the goals and rationale behind "(DefDoc)". "
-                      "It is available as "
-                      (link (url "overview.tex") (LaTeX))", "
-                      (link (url "overview.pdf") "PDF")", and "
-                      (link (url "overview.ps") "Postscript")"."))
-  (section (title "Code")
-           (paragraph ()
-                      "The code is very incomplete, but what there is is "
-                      (link (url (gen-src-link "/")) "publically available")". "
-                      "There are definitions for various types of "
-                      (link (url (gen-src-link "/elements/")) "document elements")". "
-                      "There are also definitions for the abstract types of "
-                      (link (url (gen-src-link "/layout/")) "layout engines")
-                      " as well as the "
-                      (link (url (gen-src-link "/layout/html-engine.lisp")) " HTML layout engine")". "
-                      "Finally, there is a "
-                      (link (url (gen-src-link "/frontends/basic/")) "basic frontend")", "
-                      "essentially a few simple macros for creating "(DefDoc)" documents. "
-                      "A more fully-featured frontend is planned, which will be sensitive to the "
-                      "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")"."))
-  (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")".")))
+(defdoc index (project-website name (doc DefDoc)
+                               short-description "An extensible, dynamic document creation system"
+                               author "Rahul Jain")
+  (documentation ()
+                 (paragraph ()
+                            "I have written up a document that is an overview of the goals and rationale behind "(DefDoc)". "
+                            "It is available as "
+                            (link (url "overview.tex") (LaTeX))", "
+                            (link (url "overview.pdf") "PDF")", and "
+                            (link (url "overview.ps") "Postscript")"."))
+  (code ()
+        (paragraph ()
+                   "The code is very incomplete, but what there is is "
+                   (link (url (gen-src-link "/")) "publically available")". "
+                   "There are definitions for various types of "
+                   (link (url (gen-src-link "/elements/")) "document elements")". "
+                   "There are also definitions for the abstract types of "
+                   (link (url (gen-src-link "/layout/")) "layout engines")
+                   " as well as the "
+                   (link (url (gen-src-link "/layout/html-engine.lisp")) " HTML layout engine")". "
+                   "Finally, there is a "
+                   (link (url (gen-src-link "/frontends/basic/")) "basic frontend")", "
+                   "essentially a few simple macros for creating "(DefDoc)" documents. "
+                   "A more fully-featured frontend is planned, which will be sensitive to the "
+                   "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")"."))
+  (dependencies ()
+                (link (url "http://www.common-lisp.net/projects/rjain-utils/specified-types.html")
+                      "Specified types"))
+  (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")".")))