Update of /project/clhp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv24505
Modified Files: index.clhp funcs.lisp Added Files: view-source.clhp Log Message: Beginning work on View-Source page.
Date: Thu Nov 13 15:06:15 2003 Author: aventimiglia
Index: public_html/index.clhp diff -u public_html/index.clhp:1.6 public_html/index.clhp:1.7 --- public_html/index.clhp:1.6 Thu Nov 13 12:24:40 2003 +++ public_html/index.clhp Thu Nov 13 15:06:14 2003 @@ -31,62 +31,24 @@ <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"))) + "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. If you want to see examples of CLHP in action, click the <b>View-Source</b> link at the top of any of the pages on this site.")))
;; Start of page output (echon +doctype+) +?>
-(echon - (tag '|html| - (list - (head "CLHP the Common Lisp Hypertext Preprocessor") - (tag '|body| - (page-body "$Date: 2003/11/13 17:24:40 $"))))) - - -;(defvar *title* "CLHP the Common Lisp Hypertext Preprocessor") -;(defvar *readme* "/home/ant/src/clhp/README") -;(defvar *links* '(("Download" "ftp://common-lisp.net/pub/project/clhp"))) -; -; -;(defun dump-text-file (file-name) -; (with-open-file -; (stream file-name :direction :input :if-does-not-exist :error) -; (let* ((buffer-size (file-length stream)) -; (buffer (make-array buffer-size :element-type 'character))) -; (read-sequence buffer stream) -; buffer))) -; -;(defun link (pair) -; "Takes a cons pair (CONTENT URI) and forms a link." -; (tag "a" "href" (cadr pair) (car pair))) -; -;(echo -; (tag "html" -; (list -; (tag "head" -; (tag "title" *title*)) -; (tag "body" -; (list -; (tag "h1" *title*) -; (tag "hr") -; (tag "p" (list -; "I apologize for the lack of content on this site, " -; "CLHP is still in it's early stages, so this simply " -; "contains the README file, with the addition of some " -; "extra links")) -; (tag "p" -; (list -; "To get the latest version, click the " -; (link (assoc "Download" *links* :test #'string=)) -; " link. To checkout the CVS via anonymous pserver cvs, use " -; (tag "b" (list -; "anonymous@common-lisp.net:/project/clhp/cvsroot " -; "co clhp")))) -; (tag "h3" "README") -; (tag "hr") -; (tag "pre" (dump-text-file *readme*))))))) -;(format t "~&") -?> \ No newline at end of file +<html> + +<?clhp (echon (head "CLHP the Common Lisp Hypertext Preprocessor")) ?> + +<body> + +<?clhp +(loop for tag in (page-body "$Date: 2003/11/13 20:06:14 $") + do (echon tag)) +?> + +</body> +</html>
Index: public_html/funcs.lisp diff -u public_html/funcs.lisp:1.4 public_html/funcs.lisp:1.5 --- public_html/funcs.lisp:1.4 Thu Nov 13 12:27:05 2003 +++ public_html/funcs.lisp Thu Nov 13 15:06:14 2003 @@ -1,4 +1,4 @@ -;; $Id: funcs.lisp,v 1.4 2003/11/13 17:27:05 aventimiglia Exp $ +;; $Id: funcs.lisp,v 1.5 2003/11/13 20:06:14 aventimiglia Exp $ ;; ;; Functions used on clhp website ;; at http://common-lisp.net/project/clhp @@ -7,8 +7,8 @@ (defpackage :net.common-lisp.aventimiglia.clhp.www (:nicknames #:www) (:use #:cl #:clhp) - (:export #:+doctype+ #:echon #:head #:*page-sections* - #:page-body)) + (:export #:+doctype+ #:echon #:head #:*page-sections* #:page-body + #:page-header))
(in-package :www)
@@ -18,9 +18,11 @@ '(("http://common-lisp.net/" "Common-Lisp.net")))
(defconstant +site-links+ - '(("http://common-lisp.net/cgi-bin/viewcvs.cgi/clhp/?cvsroot=clhp" + '(("/" "Home") + ("http://common-lisp.net/cgi-bin/viewcvs.cgi/clhp/?cvsroot=clhp" "ViewCVS") ("ftp://common-lisp.net/pub/project/clhp/" "Downloads"))) +
(defvar *page-sections* nil "These are the text sections of the page. Each section is a element @@ -53,7 +55,12 @@ (list caption " ")) (tag '|span| '|class| "headerSubTitle" subtitle) (tag '|div| '|class| "headerLinks" (make-links +header-links+)) - (tag '|div| '|class| "siteMap" (make-links +site-links+))))) + (tag '|div| '|class| "siteMap" + (make-links + (append +site-links+ + (list (list (format nil "/view-source.clhp?page=~A" + (gethash :script_name *server-env*)) + "View-Source"))))))))
(defun page-body (cvs-date) (list