[clhp-cvs] CVS update: public_html/view-source.clhp public_html/index.clhp public_html/funcs.lisp - clhp-cvs@common-lisp.net - mailman3.common-lisp.net

13 Nov 2003

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 "&nbsp;"))
    (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

    