[defdoc-cvs] CVS update: DefDoc/website/website.lisp

[Rahul Jain]

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")".")))