/[defdoc]/DefDoc/website/website.lisp
ViewVC logotype

Diff of /DefDoc/website/website.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by rjain, Sun Feb 15 05:26:36 2004 UTC revision 1.3 by rjain, Sun Feb 15 08:48:19 2004 UTC
# Line 13  Line 13 
13                 (unless (eql (aref target (1- (length target))) #\/)                 (unless (eql (aref target (1- (length target))) #\/)
14                   "&rev=HEAD&content-type=text/vnd.viewcvs-markup")))                   "&rev=HEAD&content-type=text/vnd.viewcvs-markup")))
15    
16    (defun gen-mailing-list-link (target)
17      (concatenate 'string "/mailman/listinfo/defdoc-" target))
18    
19  (defdoc index (document title (doc DefDoc)  (defdoc index (document title (doc DefDoc)
20                          subtitle "An extensible, dynamic document creation system"                          subtitle "An extensible, dynamic document creation system"
21                          author "Rahul Jain")                          author "Rahul Jain")
# Line 40  Line 43 
43                        "current context and allow texual content to be entered unquoted.")                        "current context and allow texual content to be entered unquoted.")
44             (paragraph ()             (paragraph ()
45                        "This site is actually a "(DefDoc)" "                        "This site is actually a "(DefDoc)" "
46                        (link (url (gen-src-link "/../website/website.lisp")) "document")".")))                        (link (url (gen-src-link "/../website/website.lisp")) "document")"."))
47      (section (title "Communication")
48               (paragraph ()
49                          "There are 3 mailing lists for "(DefDoc)", "
50                          (link (url (gen-mailing-list-link "announce")) "defdoc-announce")", "
51                          (link (url (gen-mailing-list-link "devel")) "defdoc-devel")", and "
52                          (link (url (gen-mailing-list-link "cvs")) "defdoc-cvs")".")))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5