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

Contents of /DefDoc/website/website.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Thu Oct 11 16:24:19 2007 UTC (6 years, 6 months ago) by rjain
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +40 -36 lines
Use project-website document class from contribs
1 (asdf:operate 'asdf:load-op :defdoc.contrib.project-website)
2
3 (defpackage :defdoc.website
4 (:use :defdoc :defdoc.elements :defdoc.layout :common-lisp :defdoc.frontends.basic
5 :defdoc.contrib.project-website))
6
7 (in-package :defdoc.website)
8
9 (defabbreviation DefDoc (doc italic () "Def") (doc small-caps () "Doc"))
10 (defabbreviation LaTeX "LaTeX")
11
12 (defun gen-src-link (target)
13 (concatenate 'string "/cgi-bin/viewcvs.cgi/DefDoc/src" target "?cvsroot=defdoc"
14 (unless (eql (aref target (1- (length target))) #\/)
15 "&rev=HEAD&content-type=text/vnd.viewcvs-markup")))
16
17 (defun gen-mailing-list-link (target)
18 (concatenate 'string "/mailman/listinfo/defdoc-" target))
19
20 (defdoc index (project-website name (doc DefDoc)
21 short-description "An extensible, dynamic document creation system"
22 author "Rahul Jain")
23 (documentation ()
24 (paragraph ()
25 "I have written up a document that is an overview of the goals and rationale behind "(DefDoc)". "
26 "It is available as "
27 (link (url "overview.tex") (LaTeX))", "
28 (link (url "overview.pdf") "PDF")", and "
29 (link (url "overview.ps") "Postscript")"."))
30 (code ()
31 (paragraph ()
32 "The code is very incomplete, but what there is is "
33 (link (url (gen-src-link "/")) "publically available")". "
34 "There are definitions for various types of "
35 (link (url (gen-src-link "/elements/")) "document elements")". "
36 "There are also definitions for the abstract types of "
37 (link (url (gen-src-link "/layout/")) "layout engines")
38 " as well as the "
39 (link (url (gen-src-link "/layout/html-engine.lisp")) " HTML layout engine")". "
40 "Finally, there is a "
41 (link (url (gen-src-link "/frontends/basic/")) "basic frontend")", "
42 "essentially a few simple macros for creating "(DefDoc)" documents. "
43 "A more fully-featured frontend is planned, which will be sensitive to the "
44 "current context and allow texual content to be entered unquoted.")
45 (paragraph ()
46 "This site is actually a "(DefDoc)" "
47 (link (url (gen-src-link "/../website/website.lisp")) "document")"."))
48 (dependencies ()
49 (link (url "http://www.common-lisp.net/projects/rjain-utils/specified-types.html")
50 "Specified types"))
51 (communication ()
52 (paragraph ()
53 "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")".")))

  ViewVC Help
Powered by ViewVC 1.1.5