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