/[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.3 by rjain, Sun Feb 15 08:48:19 2004 UTC revision 1.4 by rjain, Thu Oct 11 16:24:19 2007 UTC
# Line 1  Line 1 
1  (asdf:operate 'asdf:load-op :defdoc)  (asdf:operate 'asdf:load-op :defdoc.contrib.project-website)
2    
3  (defpackage :defdoc.website  (defpackage :defdoc.website
4      (:use :defdoc :defdoc.elements :defdoc.layout :common-lisp :defdoc.frontends.basic))      (:use :defdoc :defdoc.elements :defdoc.layout :common-lisp :defdoc.frontends.basic
5              :defdoc.contrib.project-website))
6    
7  (in-package :defdoc.website)  (in-package :defdoc.website)
8    
# Line 16  Line 17 
17  (defun gen-mailing-list-link (target)  (defun gen-mailing-list-link (target)
18    (concatenate 'string "/mailman/listinfo/defdoc-" target))    (concatenate 'string "/mailman/listinfo/defdoc-" target))
19    
20  (defdoc index (document title (doc DefDoc)  (defdoc index (project-website name (doc DefDoc)
21                          subtitle "An extensible, dynamic document creation system"                                 short-description "An extensible, dynamic document creation system"
22                          author "Rahul Jain")                                 author "Rahul Jain")
23    (section (title "Documentation")    (documentation ()
24             (paragraph ()                   (paragraph ()
25                        "I have written up a document that is an overview of the goals and rationale behind "(DefDoc)". "                              "I have written up a document that is an overview of the goals and rationale behind "(DefDoc)". "
26                        "It is available as "                              "It is available as "
27                        (link (url "overview.tex") (LaTeX))", "                              (link (url "overview.tex") (LaTeX))", "
28                        (link (url "overview.pdf") "PDF")", and "                              (link (url "overview.pdf") "PDF")", and "
29                        (link (url "overview.ps") "Postscript")"."))                              (link (url "overview.ps") "Postscript")"."))
30    (section (title "Code")    (code ()
31             (paragraph ()          (paragraph ()
32                        "The code is very incomplete, but what there is is "                     "The code is very incomplete, but what there is is "
33                        (link (url (gen-src-link "/")) "publically available")". "                     (link (url (gen-src-link "/")) "publically available")". "
34                        "There are definitions for various types of "                     "There are definitions for various types of "
35                        (link (url (gen-src-link "/elements/")) "document elements")". "                     (link (url (gen-src-link "/elements/")) "document elements")". "
36                        "There are also definitions for the abstract types of "                     "There are also definitions for the abstract types of "
37                        (link (url (gen-src-link "/layout/")) "layout engines")                     (link (url (gen-src-link "/layout/")) "layout engines")
38                        " as well as the "                     " as well as the "
39                        (link (url (gen-src-link "/layout/html-engine.lisp")) " HTML layout engine")". "                     (link (url (gen-src-link "/layout/html-engine.lisp")) " HTML layout engine")". "
40                        "Finally, there is a "                     "Finally, there is a "
41                        (link (url (gen-src-link "/frontends/basic/")) "basic frontend")", "                     (link (url (gen-src-link "/frontends/basic/")) "basic frontend")", "
42                        "essentially a few simple macros for creating "(DefDoc)" documents. "                     "essentially a few simple macros for creating "(DefDoc)" documents. "
43                        "A more fully-featured frontend is planned, which will be sensitive to the "                     "A more fully-featured frontend is planned, which will be sensitive to the "
44                        "current context and allow texual content to be entered unquoted.")                     "current context and allow texual content to be entered unquoted.")
45             (paragraph ()          (paragraph ()
46                        "This site is actually a "(DefDoc)" "                     "This site is actually a "(DefDoc)" "
47                        (link (url (gen-src-link "/../website/website.lisp")) "document")"."))                     (link (url (gen-src-link "/../website/website.lisp")) "document")"."))
48    (section (title "Communication")    (dependencies ()
49             (paragraph ()                  (link (url "http://www.common-lisp.net/projects/rjain-utils/specified-types.html")
50                        "There are 3 mailing lists for "(DefDoc)", "                        "Specified types"))
51                        (link (url (gen-mailing-list-link "announce")) "defdoc-announce")", "    (communication ()
52                        (link (url (gen-mailing-list-link "devel")) "defdoc-devel")", and "                   (paragraph ()
53                        (link (url (gen-mailing-list-link "cvs")) "defdoc-cvs")".")))                              "There are 3 mailing lists for "(DefDoc)", "
54                                (link (url (gen-mailing-list-link "announce")) "defdoc-announce")", "
55                                (link (url (gen-mailing-list-link "devel")) "defdoc-devel")", and "
56                                (link (url (gen-mailing-list-link "cvs")) "defdoc-cvs")".")))

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

  ViewVC Help
Powered by ViewVC 1.1.5