Update of /project/clhp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv13141

Modified Files: style.css index.clhp funcs.lisp Log Message: Addedd the footer and finished main page text.

Date: Thu Nov 13 12:24:40 2003 Author: aventimiglia

Index: public_html/style.css diff -u public_html/style.css:1.1 public_html/style.css:1.2 --- public_html/style.css:1.1 Thu Nov 13 10:33:14 2003 +++ public_html/style.css Thu Nov 13 12:24:40 2003 @@ -67,7 +67,7 @@ #bodyText { line-height: 1.5em; margin: 10mm 14em 0 12em; - padding: 0 1em 1ex 1em; + padding: 0 1em 3.25ex 1em; }

#bodyTextWide {

Index: public_html/index.clhp diff -u public_html/index.clhp:1.5 public_html/index.clhp:1.6 --- public_html/index.clhp:1.5 Thu Nov 13 11:21:40 2003 +++ public_html/index.clhp Thu Nov 13 12:24:40 2003 @@ -19,9 +19,21 @@ ;; CAR as the section name and the CDR as the section contents. (setq *page-sections* '(("Introduction" - "CLHP combines the joys of common Lisp with the ease of PHP for web development") - ("Current version" - "The latest version is 0.2.0alpha"))) + "CLHP combines the joys of common Lisp with the ease of PHP for web development. Just as with PHP, you embed code into an XML or HTML document using XML processing instructions <b>&lt;?clhp :like-this ?&gt;</b>. By using XML processing instructions, lisp code can be embedded in any valid XML document and still result in a valid XML document" + "The CLHP parser is integrated into the <a href='http://www.apache.org/'>Apache</a> web server as a module. When Apache recieves a request for a clhp page, Apache passes it on to a Lisp process which simply looks for the &lt;?clhp processing instructions. The Lisp code inside the processing instructions is evaluated, all output through *STANDARD-OUTPUT* is printed in place of the processing instruction block. All other text outside of the processing instructions is passed on as is." + "The langauge inside CLHP is Common-Lisp, so CLHP itself defines very few functions. It allows you to build Web programs the same way you would write a Lisp program. You can define functions, structures etc inside your page, or you could load external precompiled files with utility functions in them.") + ("Current version" + "The latest version is 0.2.0alpha, it brings the Apache module, asdf package building, and a few small enhancements to the CLHP package.") + ("Mailing Lists" + "<ul> + <li><a href="http://common-lisp.net/mailman/listinfo/clhp-devel%5C%22%3Eclhp-devel</a> List for Developer discussion and bug reports.</li> + <li><a href="http://common-lisp.net/mailman/listinfo/clhp-announce%5C%22%3Eclhp-devel</a> Announcements on Releases, patches, bug-fixes and general news.</li> + <li><a href="http://common-lisp.net/mailman/listinfo/clhp-cvs%5C%22%3Eclhp-cvs</a> Reports on CVS activity.</li> +</ul>") + ("Documentation" + "Sorry, right now you're left to reading the source on how CLHP specific functions and variables work, but I'll have some basic documentation coming soon"))) + +

;; Start of page output (echon +doctype+) @@ -31,7 +43,7 @@ (list (head "CLHP the Common Lisp Hypertext Preprocessor") (tag '|body| - (page-body))))) + (page-body "$Date: 2003/11/13 17:24:40 $")))))

;(defvar *title* "CLHP the Common Lisp Hypertext Preprocessor")

Index: public_html/funcs.lisp diff -u public_html/funcs.lisp:1.2 public_html/funcs.lisp:1.3 --- public_html/funcs.lisp:1.2 Thu Nov 13 11:21:40 2003 +++ public_html/funcs.lisp Thu Nov 13 12:24:40 2003 @@ -1,4 +1,4 @@ -;; $Id: funcs.lisp,v 1.2 2003/11/13 16:21:40 aventimiglia Exp $ +;; $Id: funcs.lisp,v 1.3 2003/11/13 17:24:40 aventimiglia Exp $ ;; ;; Functions used on clhp website ;; at http://common-lisp.net/project/clhp @@ -49,25 +49,39 @@ web links" (tag '|div| '|id| "header" (list - (tag '|span| '|class| "headerTitle" (list caption "&nbsp;")) + (tag '|span| '|class| "headerTitle" '|id| "top" + (list caption "&nbsp;")) (tag '|span| '|class| "headerSubTitle" subtitle) (tag '|div| '|class| "headerLinks" (make-links +header-links+)) (tag '|div| '|class| "siteMap" (make-links +site-links+)))))

-(defun page-body () +(defun page-body (cvs-date) (list (page-header "CLHP" "the Common Lisp Hypertext Preprocessor") (page-menu) (tag '|div| '|id| "bodyText" (loop for section in *page-sections* - nconcing (make-page-section section))))) + nconcing (make-page-section section))) + (page-footer cvs-date))) + +(defun page-footer (cvs-date) + (tag '|div| '|id| "footer" + (tag '|div| + (list + (tag '|b| "Modified: ") + (tag '|span| '|class| "footerCol2" cvs-date))))) + +

(defun make-page-section (section) (let ((name (car section))) - (cons - (tag '|h1| '|id| name name) - (loop for p in (cdr section) - collect (tag '|p| p))))) + (nconc + (cons + (tag '|h1| '|id| name name) + (loop for p in (cdr section) + collect (tag '|p| p))) + (list (tag '|a| '|class| "topOfPage" '|href| "#top" + '|title| "Go to Top of Page" "top")))))

(defun page-menu () (if *page-sections*