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