Update of /project/defdoc/cvsroot/DefDoc/website
In directory common-lisp.net:/tmp/cvs-serv30592/website
Modified Files:
website.lisp
Log Message:
since current clc require doesn't take user-packages into account, use asdf directly
fix link urls to include a "/" after "src"
Date: Sun Feb 15 00:26:36 2004
Author: rjain
Index: DefDoc/website/website.lisp
diff -u DefDoc/website/website.lisp:1.1 DefDoc/website/website.lisp:1.2
--- DefDoc/website/website.lisp:1.1 Sun Feb 15 00:02:02 2004
+++ DefDoc/website/website.lisp Sun Feb 15 00:26:36 2004
@@ -1,3 +1,5 @@
+(asdf:operate 'asdf:load-op :defdoc)
+
(defpackage :defdoc.website
(:use :defdoc :defdoc.elements :defdoc.layout :common-lisp :defdoc.frontends.basic))
@@ -26,16 +28,16 @@
"The code is very incomplete, but what there is is "
(link (url (gen-src-link "/")) "publically available")". "
"There are definitions for various types of "
- (link (url (gen-src-link "elements/")) "document elements")". "
+ (link (url (gen-src-link "/elements/")) "document elements")". "
"There are also definitions for the abstract types of "
- (link (url (gen-src-link "layout/")) "layout engines")
+ (link (url (gen-src-link "/layout/")) "layout engines")
" as well as the "
- (link (url (gen-src-link "layout/html-engine.lisp")) " HTML layout engine")". "
+ (link (url (gen-src-link "/layout/html-engine.lisp")) " HTML layout engine")". "
"Finally, there is a "
- (link (url (gen-src-link "frontends/basic/")) "basic frontend")", "
+ (link (url (gen-src-link "/frontends/basic/")) "basic frontend")", "
"essentially a few simple macros for creating "(DefDoc)" documents. "
"A more fully-featured frontend is planned, which will be sensitive to the "
"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")".")))
